VBA学习笔记之单元格式之数字格式

'Range.NumberFormatLocal 属性

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

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

重点来了：

 1 Sub 保存1111()
 2 Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
 3 aa = es.Address
 4 a = Application.CountA(Worksheets("记录保存").[a:a])
 5 Range([a5], es).Copy Worksheets("记录保存").Cells(a + 1, 1)
 6 With Worksheets("记录保存")
 7 '这里的Resize用法很巧妙，从"记录保存"的新添加的第一行，扩展到要添加的所有商品的行数
 8 '实现了不定行数copy到另一个sheet的指定位置
 9 '-4是因为商品有关数据从第五行开始
10 .Cells(a + 1, "f").Resize(es.Row - 4) = [b2] '保存入库单
11 .Cells(a + 1, "g").Resize(es.Row - 4) = [e2] '保存供应商
12 .Cells(a + 1, "h").Resize(es.Row - 4) = Now() '保存日期时间
13 .Cells(a + 1, "h").Resize(es.Row - 4).NumberFormatLocal = "e-m-d aaaa"
14 End With
15 MsgBox "保存成功!"
16 End Sub

效果图：

 

转载于:https://www.cnblogs.com/gilgamesh-hjb/p/7463876.html