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

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

1、用VALUE函数将字符型数字转换成数字型，

value函数可以将表示数字的文本字符串转换为数字，它的语法结构是：value（text），value函数只有一个参数text，表示要转换为数字格式的文本，文本参数可以直接引用双引号中的文本，也可以引用其他单元格中的文本。

2、用四则运算法将字符型数字转换成数字型，可以使用+0、-0、*1、/1将字符数转换为数字。

3、数字型数字转换成文本型，

使用文本函数将数字转换为文本类型，

文本函数的基本语法格式：text（value，format_text），

值：是数值、计算结果为数值的公式或对包含数值的单元格的引用。

格式文本：用作带引号的文本字符串的数字格式。

例如：C2=文本（b2,0），它变为文本类型。

4、用&“”将数字型数字转换成文本型，例如：A3=B3&ampamp；“”转换为文本类型。

5、在数字类型编号之前添加文本标识符“或”，例如：D2=”，C2=D2&ampamp；B2，它将被转换为文本类型编号。

1234567

Sub 除法()mrow = Cells(Rows.Count, "C").End(3).Row[f16] = "=iferror(B13/C13/D13/E13,0)"Range([f16], Cells(mrow + 1, "F")).FillDownRange([f16], Cells(mrow + 1, "F")).Copy[f16].PasteSpecial Paste = xlValuesEnd Sub

---