第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
[b5] = “错误值”
End If
End Sub
52、 判断是否为日期
Sub d11()
[b6] = “”
If VBA.IsDate([a6]) Then
[b6] = “日期”
End If
End Sub
53、 设置单元格自定义格式
Sub d30()
Range(“d1:d8”).NumberFormatLocal = “0.00”
End Sub
54、 颜色设置
Excel中的颜色可以用两种方式获取，一种是EXCEL内置颜色56种(.Interior.ColorIndex)，另一种是利用QBCOLOR函数返回16种。
1）Interior.ColorIndex
Sub y1()
Dim x As Integer
Range(“a1:b60”).Clear
For x = 1 To 56
Range(“a” & x) = x
Range(“b” & x).Interior.ColorIndex = x
Next x
End Sub
2)QBColor函数
Sub y2()
Dim x As Integer
For x = 0 To 15
Range(“d” & x + 1) = x
Range(“e” & x + 1).Interior.Color = QBColor(x)
Next x
End Sub
3）RGB函数
Sub y3()
Dim 红 As Integer, 绿 As Integer, 蓝 As Integer
红 = 255
绿 = 123
蓝 = 100
Range(“g1”).Interior.Color = RGB(红, 绿, 蓝)
End Sub
55、 单元格合并
Sub h1()
Range(“g1:h3”).Merge
End Sub
56、 合并区域的返回信息
Sub h2()
Range(“e1”) = Range(“b3”).MergeArea.Address '返回单元格所在的合并单元格区域
End Sub
57、 判断是否含合并单元格
采用IsNull,
Sub h3()
’ MsgBox Range(“b2”).MergeCells
’ MsgBox Range(“A1:D7”).MergeCells
Range(“e2”) = IsNull(Range(“a1:d7”).MergeCells)
Range(“e3”) = IsNull(Range(“a9:d72”).MergeCells)
End Sub
58、 综合示例
合并H列相同单元格
Sub h4()
Dim x As Integer
Dim rg As Range
Set rg = Range(“h1”)
Application.DisplayAlerts = False '屏蔽警告
For x = 1 To 13
If Range(“h” & x + 1) = Range(“h” & x) Then
Set rg = Union(rg, Range(“h” & x + 1))
Else
rg.Merge
Set rg = Range(“h” & x + 1)
End If
Next x
Application.DisplayAlerts = True '恢复警告
End Sub
