Excel 表单中的日期格式数据

我有一个通过VBA创建的表单，我需要用户以“dd/mm/yyyy”格式输入交付日期

我需要将相同格式的日期上载到后端的Excel工作表，该工作表链接到表单列

但是，在Excel文件中，格式会自动更改为“mm/dd/yyyy”格式

Excel文件中的日期格式正确。我已经交叉检查了存储日期的列的自定义格式

我已在表单中的交货日期列后面传递了以下代码

Private Sub Del_Date_AfterUpdate()

Del_Date = Format((Del_Date), "dd/mm/yyyy")

End Sub

表单中的日期列已输入有效日期以供参考

---

可能尝试运行一个宏以将日期放置在所需列中，然后尝试使用下面的代码更改同一宏中的格式

Range("A1").NumberFormat = "dddd, mmmm dd, yyyy" 'you can manipulate to alter the format you require

   I have converted the cell to string. The below code will work for you


 Sub test1()
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim del_date As String

    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Sheet2")

    del_date = "2002-12-04"
    Cells(2, 1).NumberFormat = "@"
    ws.Cells(2, 1).Value = Format((del_date), "dd/mm/yyyy")

    End Sub