更改特定图纸上的数字格式

Question

我在这个论坛上搜索了一个解决方案，但没有一个技巧对我有帮助。也许我太新手了，无法自己编写代码。

我正试图设置一个日期格式"；dd.mm.yyyy"；在纸上"；片材2"；在G3:G的范围内。

With Worksheets("Sheet2")
Range("G3, G").NumberFormat = "dd.mm.yyyy"

你们能指出我遗漏了什么吗？

Answer 1

由于以下问题，您的代码不是正确的代码。

1. 一个单元格地址应该同时具有行&列详细信息。在您给出的代码中，没有提到最后一个单元格行
2. 使用Collan符号"："以选择第一&最后一个单元格
3. 您使用了"；用"；语句，但该区域未被该语句引用。意思是，你必须放一个点"之前的范围遵循正确的做法

以下是已更正的代码。

With Worksheets("Sheet2")
.Range("G3:G25").NumberFormat = "dd.mm.yyyy" 'here i am assuming G25 is the last cell
End With

如果您不确定最后一个单元格，可以使用以下代码。

Sub Test()
With Worksheets("Sheet2")
.Range("G3: " & .Cells(.Rows.Count, "G").End(xlUp).Address).NumberFormat = "dd.mm.yyyy"
End With
End Sub