vba：数字格式‘Range.NumberFormatLocal 属性

pgymeitianjinbu

已于 2023-04-03 15:38:18 修改

阅读量2.5k

点赞数

文章标签： excel 学习

于 2023-04-03 15:32:03 首次发布

本文链接：https://blog.youkuaiyun.com/pgymeitianjinbu/article/details/129930766

版权

本文介绍了如何使用VBA的Range.NumberFormatLocal属性来获取和设置Excel单元格的数字格式。提供了三个示例子程序，分别用于获取单元格的数字格式代码、设置单元格为两位小数格式以及在保存数据时同步设置日期时间格式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'Range.NumberFormatLocal 属性
Sub 获取单元格设置数字格式()
For Each Rng In [a1:a3]
Cells(Rng.Row, 2) = Rng.NumberFormatLocal '获取单元格的格式代码
Next Rng
End Sub

Sub 给单元格设置数字格式()
For Each Rng In [a1:a3]
Rng.NumberFormatLocal = "0.00"
Next Rng
End Sub

100.00

0.20

1200.00

Sub 保存1111()
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
a = Application.CountA(Worksheets("记录保存").[a:a])
Range([a5], es).Copy Worksheets("记录保存").Cells(a + 1, 1)
With Worksheets("记录保存")
.Cells(a + 1, "f").Resize(es.Row - 4) = [b2] '保存入库单
.Cells(a + 1, "g").Resize(es.Row - 4) = [e2] '保存供应商
.Cells(a + 1, "h").Resize(es.Row - 4) = Now() '保存日期时间
.Cells(a + 1, "h").Resize(es.Row - 4).NumberFormatLocal = "e-m-d aaaa"
End With
MsgBox "保存成功!"
End Sub