Excel 日期格式正在更改

我需要将日期以dd-mm-yy格式复制到单元格中。 但当在单元格中输入的是mm-dd-yy格式时，我相信当日期小于12时会发生这种情况

Worksheets(1).Cells(i, 40).Value = Format(TextBox3.Value, "dd-mm-yy HH:mm:ss")

Worksheets(1).Cells(i, 40).Value = TextBox3.Value

如果我在文本框中输入03-09-2019并按submit，它应该在03-09-2019本身

---

改为09-03-201909-march-19。列格式也是dd-mm-yy格式。当日期为30-08-19时，它工作正常。也许您可以尝试一下，如果遇到与您相同的问题，解决方法是在日期变量中保存值：

---

我会使用一个日期变量，并给单元格指定日期变量，而不是文本框值。有多个文本框。可以稍微解释一下如何使用日期变量Dim MyDate作为日期，然后使用MyDate=TextBox3.value将MyDate最终传递给单元格。文本框为空时出错。这是否意味着我需要创建if循环对于每个文本框if Not Textbox3.Value=vbNullString，然后在if中设置日期变量。感谢您的回复，我尝试了它，但是现在如果textbox为空，Worksheets1.Cellsi，40值为00-01-00 00:00，还有其他方法可以实现吗blank@AshwinSooraj将Else添加到if语句，然后添加工作表1.Cellsi，40.Value=vbNullstring在Elsesorry中我的错误它工作得很好。谢谢你的帮助help@AshwinSooraj很高兴我能帮助你！我可以请你接受我的回答吗？@Dorian仍然日期以不同的形式来了。

Sub tryme()

    Dim TextBoxVal As Date

    If Not TextBox3.Value = vbNullString Then
        If IsEmpty(TextBox3.Value) = False Then



TextBoxVal = TextBox3.Value
TextBoxVal = Format(TextBox3.Value, "dd-mm-yy HH:mm:ss")

With ActiveWorkbook.Worksheets(1).Cells(i, 40)
   TextBoxVal = format(Month(.Value) & "/" & Day(.Value) & "/" & Year(.Value), "dd/mm/yyyy")

End With
Worksheets(1).Cells(i, 40).Value = TextBoxVal
        End If
    End If

End Sub