vba - 短日期的数字格式代码是什么？

Question

我知道我可以编写以下代码将数字格式化为日期，其外观为 yyyy-mm-dd:

Range("A1").NumberFormat = "yyyy-mm-dd"

我知道我也可以写:

Range("A1").NumberFormat = "m/d/yyyy"

以及各种各样的事情。

但是有没有一种方法可以将数字格式设置为一般的短日期，并将其留给用户的系统来决定确切的外观？

我正在寻找这样的表达式:

Range("A1").NumberFormat = "Short Date" '(<-This does not work)

Answer 1

这有点棘手。如果您查看单元格的属性、格式选项卡、日期类别，您将看到一些以星号 (*) 开头的格式，这些格式响应用户区域设置的更改。尝试将单元格设置为第一个元素(短日期)，然后使用 ?activecell.NumberFormat 在立即窗口中获取其 numberformat 值。您会看到它是“m/d/yyyy”，因此您的代码片段可以很好地完成工作。只需尝试在控制面板中更改您的区域设置，单元格的格式就会相应更改。