插入Excel单元格的日期值会更改其格式

Question

我是VBA的新手，从文本框传输到单元格的日期格式从dd / mm / yyyy更改为mm / dd / yyyy时，我需要有关日期格式的问题。

这是我在插入数据时使用用户窗体作为界面创建的程序。我的问题是，当我转移到单元格时无法保持dd / mm / yyyy格式。

Private Sub cmdAdd_Click()

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("hocregister")
Set ws = Workbooks("Construction HOC register.xlsm").Worksheets("hocregister")


'revised code to avoid problems with Excel tables in newer versions
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1



'copy the data to the database
ws.Cells(iRow, 2).Value = Me.txthocdate.Value

Answer 1

您的表单不知道在文本框中输入的值的格式，因此在将值复制到工作表时，需要使其明确。

更改为ws.Cells(iRow, 2).Value = CDATE(Me.txthocdate.Value)，将 txthocdate 中的值转换为日期。