第14集 单元格的格式
47、 判断是否为空单元格
Sub d1()
[b1] = “”
'If Range(“a1”) = “” Then
'If Len([a1]) = 0 Then
If VBA.IsEmpty([a1]) Then
[b1] = “空值”
End If
End Sub
48、 判断是否为数值
Sub d2()
[b2] = “”
If VBA.IsNumeric([a2]) And [a2] <> “” Then 'IsNumeric判断认为空的也是数字,所以需加<>""的判断
’ If Application.WorksheetFunction.IsNumber([a2]) Then
[b2] = “数字”
End If
End Sub
49、 判断是否为文本
Sub d3()
[b3] = “”
'If Application.WorksheetFunction.IsText([A3]) Then
If VBA.TypeName([a3].Value) = “String” Then
[b3] = “文本”
End If
End Sub
50、 判断是否为汉字
Sub d4()
[b4] = “”
If [a4] > “z” Then
[b4] = “汉字”
End If
End Sub
51、 判断错误值
Sub d10()
[b5] = “”
'If VBA.IsError([a5]) Then
If Application.WorksheetFunction.IsError([a5]) Then