跟着校长学VBA之第14集:单元格格式

hwc2ycy

一、Excel中的颜色
Excel中的颜色可以用两种方式获取，一种是EXCEL内置颜色，另一种是利用QBCOLOR函数返回

1.   Sub y1()
   
2.    Dim x As Integer
   
3.     Range("a1:b60").Clear
   
4.     For x = 1 To 56
   
5.       Range("a" & x) = x
   
6.       Range("b" & x).Font.ColorIndex = 3
   
7.     Next x
   
8.   End Sub
   
9. 
   
10.    Sub y2()
    
11.     Dim x As Integer
    
12.      For x = 0 To 15
    
13.       Range("d" & x + 1) = x
    
14.       Range("e" & x + 1).Interior.Color = QBColor(x)
    
15.      Next x
    
16.    End Sub
    
17. 
    
18.   Sub y3()
    
19.     Dim 红 As Integer, 绿 As Integer, 蓝 As Integer
    
20.     红 = 255
    
21.     绿 = 123
    
22.     蓝 = 100
    
23.     Range("g1").Interior.Color = RGB(红, 绿, 蓝)
    
24.   End Sub

复制代码

很多颜色值只适合在窗体中使用。

二、单元格的数字格式
1.判断数值的格式
是否为空格
range("a1") =""
VBA.IsEmpty
len(range("a1")

是否数字
VBA.IsNumeric，对于空格返回0，需要注意
Application.WorksheetFunction.IsNumber

判断是否为文本
Application.WorksheetFunction.IsText
VBA.TypeName
VarType

判断是否为汉字
> "z"
ascW

判断错误值
vba.iserror
Application.WorksheetFunction.IsError

判断是否是日期
VBA.IsDate

2.设置单元格自定义格式
NumberFormat,NumberFormatLocal属性
很多属性也有同样的名字，不过加了Loal，这和语言本地化相关。
比如图片的name是pictrue 1，namelocal是图片1

3.按指定格式从单元格返回数值
format函数，和工作表中TEXT用法差不多。

三、单元格合并
Merge，合并
MergeArea，指定单元格的合并区域，如果指定单元格非合并单元格，则返回的是指定单元格
MergeCells，检测指定单元格区域是否包含合并单元格

1.    '合并H列相同单元格
   
2.    
   
3.      Sub h4()
   
4.       Dim x As Integer
   
5.       Dim rg As Range
   
6.       Set rg = Range("h1")
   
7.        Application.DisplayAlerts = False
   
8.       For x = 1 To 13
   
9.         If Range("h" & x + 1) = Range("h" & x) Then
   
10.           Set rg = Union(rg, Range("h" & x + 1))
    
11.         Else
    
12.          
    
13.            rg.Merge
    
14.          
    
15.           Set rg = Range("h" & x + 1)
    
16.         End If
    
17.       Next x
    
18.       Application.DisplayAlerts = True
    
19.      End Sub

复制代码