Код VBA для установки формата даты для определенного столбца как «гггг-мм-дд»
У меня есть макрос, в котором я указываю дату (в мм / дд / гггг) в текстовом поле, и я хочу установить это значение для столбца А в формате гггг-мм-дд. У меня есть следующий код:
Sheets("Sheet1").Range("A2", "A50000").Value = TextBox3.Value
Sheet1.Range("A2", "A50000") = Format(Date, "yyyy-mm-dd")
... и когда я запускаю макрос, дата все еще в формате мм / дд / гггг.
Как я могу изменить это так, чтобы это было в формате, который я хочу ?? Я пробовал много видов кода, исследованного через Google, и ничто не установило формат так, как я хочу.
Любая помощь будет оценена ...
РЕДАКТИРОВАТЬ: Полный код из комментария 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"