Question

用VBA如何设置单元格的格式类型

如Range("A1:A65536").NumberFormatLocal = "yyyy-m-d;@"时间格式的
其它格式的怎么设置，如文本；数值（保留位数）

Answer 1

用VBA设置单元格的格式类型步骤如下：

1、首先我们打开一个工作样表作为例子；

2、单元格的格式类型解释起来就是excel中对单元格中的字体，字体颜色和背景颜色等进行格式设置，来达到突出显示的效果，比如图例中以红色显眼标错，蓝色突出对比等等都属于条件格式设置。

3、单元格的格式属于FormatConditions属性，format即格式。这里我们设置的是所选区域，也就是Selection对象，用鼠标框取的这一部分作为对象。

4、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub FormatConditions() 

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, Formula1:="10" 

Selection.FormatConditions(1).Font.ColorIndex = 3 

End Sub

输入以上代码后就用VBA设置完成单元格格式类型了。

Answer 2

Sub s()
    [a1].NumberFormatLocal = "@" '设置A1单元格为文本格式
    [b1].NumberFormatLocal = "yyyy/m/d" '设置B1单元格为日期格式
    [c1].NumberFormatLocal = "[$-F400]h:mm:ss AM/PM" '设置C1单元格为时间格式
    [d1].NumberFormatLocal = "0.00%" '设置D1单元格为百分比格式
    [e1].NumberFormatLocal = "0.00E+00" '设置E1单元格为科学记数法格式
    [f1].NumberFormatLocal = "G/通用格式" '设置F1单元格为常规格式
End Sub

Answer 3

Cells(1,i).Value = Format(Cells(1,i).Value, "###0.00")
Range("A1:A65536").NumberFormatLocal = "@"
Range("A1:A65536").NumberFormatLocal= "G/通用格式"
等等

Answer 4

Excel攻略第十四招：VBA之单元格的格式