VBA 第8课 Excel单元格的颜色,格式的设置

Sub 颜色()
Dim x As Integer
Range("a1:b60").Clear
For x = 1 To 56 Step 1
Range("a" & x) = x
Range("b" & x).Interior.ColorIndex = x   '填充颜色
Range("a" & x).Font.ColorIndex = x   '字体颜色
Next
End Sub

------------------------------------------------------------------------------------------------

'1.判断是否为空单元格
Sub d1()
'If Range("a1") = "" Then
'If Len([a1]) = 0 Then
If VBA.IsEmpty([a1]) Then
[b1] = "空值"
End If
End Sub

'2.判断是否为数字
Sub d2()
If VBA.IsNumeric([a1]) Then
[b1] = "数字"
Else
[b1] = "不是数字"
End If
End Sub

'3.判断是否为文本
Sub d3()
If VBA.TypeName([a1].Value) = "String" Then
[b1] = "文本"
Else
[b1] = "不是文本"
End If
'If Application.WorksheetFunction.IsText([a1]) Then
'[b1] = "文本"
'Else
'[b1] = "不是文本"
'End If
End Sub

'4.判断是否为汉字
Sub d4()
If [a1] > "z" Then
[b1] = "汉字"
End If
End Sub

转载请注明作者与出处：http://blog.csdn.net/u013511642  王小涛_同學