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 王小涛_同學
本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！