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

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"，因此您的代码段可以很好地完成工作。只需尝试在控制面板中更改区域设置，单元格的格式就会相应更改。

Answer 2

请试试这个

 Format(Range("A1"), "Short Date")

它将返回系统短日期值。