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

我知道我可以编写以下内容来将数字格式化为具有yyyy-mm-dd外观的日期:

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

我知道我也可以写:

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

和各种各样的事情.

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

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

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

小智.. 8

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

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