VBA数据录入致日期格式异常及列筛选失效问题求助

你的问题根源在于Format函数返回的是文本字符串，而非Excel能识别的真实日期值——单元格看起来是日期样式，但本质是文本，自然无法正常使用日期筛选功能。以下是两种可靠的解决方法：

方法1：用CDate转换为日期值（依赖系统区域设置） #

先验证输入的有效性，再将合法的日期字符串转换为日期值写入单元格，最后设置显示格式：

Dim inputDate As Date
' 验证输入是否为有效日期
If IsDate(Termineingabe.TextBox3.Value) Then
    inputDate = CDate(Termineingabe.TextBox3.Value)
    With diesesworkbook.Sheets("Termine").Range("B" & (lastrow + 1))
        .Value = inputDate ' 写入真实日期值
        .NumberFormat = "dd.mm.yyyy" ' 设置显示格式为日.月.年
    End With
Else
    MsgBox "请输入有效的日期格式（如16.02.2023）", vbExclamation
End If

方法2：用DateSerial手动拆分转换（不受系统区域影响） #

如果你的系统区域日期格式不是dd.mm.yyyy，CDate可能会识别错误，这时可以手动拆分输入的日、月、年，生成标准日期值：

Dim dateParts() As String
dateParts = Split(Termineingabe.TextBox3.Value, ".")
' 验证输入格式是否为"日.月.年"
If UBound(dateParts) = 2 Then
    Dim dayVal As Integer, monthVal As Integer, yearVal As Integer
    dayVal = CInt(dateParts(0))
    monthVal = CInt(dateParts(1))
    yearVal = CInt(dateParts(2))
    ' 验证日期的合法性
    If IsDate(monthVal & "/" & dayVal & "/" & yearVal) Then
        With diesesworkbook.Sheets("Termine").Range("B" & (lastrow + 1))
            .Value = DateSerial(yearVal, monthVal, dayVal)
            .NumberFormat = "dd.mm.yyyy"
        End With
    Else
        MsgBox "输入的日期无效", vbExclamation
    End If
Else
    MsgBox "请输入正确的日期格式（如16.02.2023）", vbExclamation
End If

核心逻辑 #

无论用哪种方法，关键都是：

• 向单元格写入Excel可识别的日期值（即日期序列号），而非格式化后的文本
• 通过NumberFormat属性设置单元格的显示样式，保证外观符合需求

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