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

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

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

Answer 2

请试试这个

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

它将return系统短日期值。