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