单元格格式_vba-31 单元格格式之数字格式

'range.numberformatlocal 属性

Sub 获取单元格设置数字格式()

For Each rng In [a4:a6]

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

---

Sub 保存1111() '3-22-23文件

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