Excel User Form文本框读取工作表日期显示为数字而非日期格式

Excel 底层将日期存储为浮点型序列值：整数部分代表距离1900年1月1日的天数，小数部分代表当日的时分秒占比。直接把单元格的Value属性赋值给UserForm的文本框时，读取到的是这个原始序列数值，不会自动套用单元格配置的日期显示格式，就会出现回显数字、无法正常展示日期格式的问题。

• 方案1：赋值时主动指定日期格式（推荐）
  不要直接将单元格值赋给文本框，用Format()函数统一转换为dd/mm/yy格式后再赋值，代码示例：

  ' 假设存储日期的列为第3列，当前需要读取的行号为targetRow
  With Me ' 代指当前UserForm
      ' 加空值判断避免空单元格报错
      If IsEmpty(Cells(targetRow, 3).Value) Then
          .txtDate.Value = ""
      Else
          .txtDate.Value = Format(Cells(targetRow, 3).Value, "dd/mm/yy")
      End If
  End With
  

• 方案2：直接读取单元格的显示文本
  如果工作表内日期列已经固定设置为dd/mm/yy的单元格格式，可以直接读取单元格的Text属性，拿到的就是单元格当前对外展示的格式化文本，无需重复配置格式规则：

  .txtDate.Value = Cells(targetRow, 3).Text
  

  注意：该方法依赖单元格本身的格式配置，如果日期列格式被手动修改，文本框回显内容会同步错乱。

往工作表写入日期数据时，不要直接把文本框的字符串内容塞进单元格，先校验格式、转为日期类型后再写入，同时主动给单元格设置日期格式，从源头避免格式错乱：

' 写入数据到工作表的示例代码
With Me
    ' 先校验输入是否为合法日期
    If Not IsDate(.txtDate.Value) Then
        MsgBox "请输入符合dd/mm/yy格式的合法日期", vbExclamation
        .txtDate.SetFocus
        Exit Sub
    End If
    ' 写入日期并设置单元格格式
    Cells(writeRow, 3).Value = CDate(.txtDate.Value)
    Cells(writeRow, 3).NumberFormat = "dd/mm/yy"
End With

内容的提问来源于stack exchange，提问作者Ahmed HR