相关知识点：
Format（原始内容，期望格式，每周起始日，每年起始周）将原始内容（数字、日期、文本等）转换成
指定格式的字符串并返回。除了第一个参数（原始内容）外，其他参数均为可选。
#：代表一位数字，
”.##”:小数点后保留两位
“##.##”:前后都是保留两位数，523.12格式化以后变成523.12不会截断整数部分
例1 将数字转换为货币格式
Sub huobi()
Dim i, a
i=532.65333
s=Format(i,”Currency”)
MsgBox s ‘返回￥532.65
End Sub
例2 小数点保留小数
Sub a()
Dim i, s
i=131332.65487
s=Format(i,”.###”) ‘返回小数点后三位小数131332.655，并且四舍五入
‘s=Format(i,”￥.###”) ‘返回货币￥131332.655
MsgBox s
End Sub
例3 应用在表格中
Sub a()
Dim i, s
For i=3 To 21
s=Format(cells(i,2),”￥.###”) ‘返回的数值四舍五入，两位的保留两位
‘s=Format(cells(i,2),”￥.000”) ‘返回的数值四舍五入，两位的最后补零
Cells(i,3)=s
Next i
End Sub
 
例4 同时定义四种格式，用分号隔开：正数，负数，零和Null(空值)
Sub a()
Dim i, s
For i=3 To 21
s=Format(cells(i,2),”￥.000;(￥.000);零;-”) ‘返回的数值四舍五入，两位的保留两位
Cells(i,3)=s
Next i
End Sub
例5 日期类型
 
Sub dateformat()
Dim s as string, d as date
d=Range(“d3”).Value
s=Format(d,”long date”) ‘返回2016年8月16日
‘s=Format(d,”m月第d天（公元yyyy年），dddd”) ‘返回8月第16天（公元2018年），Tuesday
MsgBox s
End Sub
| 
转播
