excel - 用于将特定列的日期格式设置为 "yyyy-mm-dd"的 VBA 代码

Question

我有一个宏，我在文本框中指定日期(以 mm/dd/yyyy 为单位)，并且我想以 yyyy-mm-dd 格式为 A 列设置此值。我有以下代码:

Sheets("Sheet1").Range("A2", "A50000").Value = TextBox3.Value
Sheet1.Range("A2", "A50000") = Format(Date, "yyyy-mm-dd")

...当我运行宏时，日期仍然采用 mm/dd/yyyy 格式。

我怎样才能改变它，使其成为我想要的格式？我一直在尝试通过谷歌研究的多种代码，但没有什么可以按照我想要的方式设置格式。

任何帮助将不胜感激...

编辑:下面OP评论中的完整代码:

 Workbooks.Add
 Range("A1") = "Acctdate"
 Range("B1") = "Ledger"
 Range("C1") = "CY"
 Range("D1") = "BusinessUnit"
 Range("E1") = "OperatingUnit"
 Range("F1") = "LOB"
 Range("G1") = "Account"
 Range("H1") = "TreatyCode"
 Range("I1") = "Amount"
 Range("J1") = "TransactionCurrency"
 Range("K1") = "USDEquivalentAmount"
 Range("L1") = "KeyCol"
 Sheets("Sheet1").Range("A2", "A50000").Value = TextBox3.Value
 Sheet1.Range("A2", "A50000").NumberFormat = "yyyy-mm-dd"

Answer 1

使用范围的 NumberFormat 属性来强制范围的格式如下:

Sheet1.Range("A2", "A50000").NumberFormat = "yyyy-mm-dd"