10、单元格格式

1、颜色

excel的颜色可以使用三种方式获取，1：excel内置颜色；2：利用QBColor方法；3：使用RGB方法

内置颜色
excel共有56中内置颜色，可用过ColorIndex属性设置，如expression.ColorIndex = 1

QBColor 方法

一共有15中颜色，可通过Color属性设置，如expression.Color = QBColor(1)

RGB 方法

excel实际并不能全部支持RGB的所有颜色，只能支持其中一部分，RGB的设置也是于Color属性一起，如expression.Color = RGB(255,0,0)

2、单元格判断

2.1、判断是否空单元格

if Range("a1") = "" Then
if Len([a1]) = 0 Then
if VBA.IsEmpty([a1]) Then

2.2、判断是否为数字

if VBA.IsNumeric([a2]) And [a2] <> "" then # IsNumberic方法将空单元格也判断为数字
if Application.IsNumber([a2]) then # 使用工作表的IsNumber函数判断

2.3、判断是否为文本

If Application.IsText([a3]) Then
If VBA.TypeName([a3].Value) = "String" Then

2.4、判断是否为汉字

利用ASCII来判断
if [a4] > "z" Then

2.5、判断错误值

IsError(range对象)

3、设置单元格自定义格式

NumberFormatLoccal 属性

以用户语言字符串返回或设置对象的格式代码。Variant 类型，可读写。

语法

expression.NumberFormatLocal

参数

expression 必需。该表达式返回上面的对象之一。

示例

[a1].NumberFormatLocal = "0.00"

4、单元格合并

Merge 方法

通过指定 Range 对象创建合并单元格。

语法

expression.Merge(Across)

参数

expression 必需。该表达式返回一个 Range 对象。

Across Variant 类型，可选。如果该值为 True，则将指定区域内的每一行合并为一个合并单元格。默认值为 False，合并指定区域。

说明

1、合并区域的值在该区域左上角的单元格中指定。

MergeAree 属性

返回一个 Range 对象，该对象代表包含指定单元格的合并区域。如果指定的单元格不在合并区域内，则该属性返回指定的单元格。只读。Variant 类型。

语法

expression.MergeArea

参数

expression 必需。该表达式返回“应用于”列表中的对象之一。

说明

MergeArea 属性只应用于单个单元格区域。

MergeCells 属性

如果区域或样式包含合并单元格，则该值为 True。Variant 类型，可读写。

说明

1、选定包含合并单元格的区域时，所选定的区域可能与所期望选定的区域不同。可用 Address 属性检验选定区域的地址。
2、如果指定区域不包含合并单元格，返回Null