Excel VBA列表框按用户名+日期过滤后格式异常修复求助

核心修复要点 #

• 日期格式异常：ListBox直接读取单元格日期值时，会默认显示为Excel底层存储的数值或错误日期格式，需显式对日期列做格式化处理
• 用户名动态匹配：将硬编码用户名替换为Application.UserName，实现自动匹配当前Excel登录用户

修复后的完整VBA代码 #

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定数据源工作表
    Set ws = ThisWorkbook.Worksheets("你的工作表名称")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set rng = ws.Range("A2:E" & lastRow) ' 假设数据范围为A-E列，首行是表头
    
    ' 初始化ListBox
    ListBox1.Clear
    ListBox1.ColumnCount = 5 ' 对应数据列数
    
    ' 遍历数据并过滤添加
    For i = 1 To rng.Rows.Count
        ' 过滤条件：当日日期 + 当前用户名匹配B列
        If DateValue(rng.Cells(i, 1).Value) = Date And _
           rng.Cells(i, 2).Value = Application.UserName Then
           
            ' 格式化日期列，避免显示为数值或错误格式
            Dim formattedDate As String
            formattedDate = Format(rng.Cells(i, 1).Value, "yyyy-mm-dd hh:mm:ss")
            
            ' 逐列添加数据到ListBox
            ListBox1.AddItem formattedDate
            ListBox1.List(ListBox1.ListCount - 1, 1) = rng.Cells(i, 2).Value
            ListBox1.List(ListBox1.ListCount - 1, 2) = rng.Cells(i, 3).Value
            ListBox1.List(ListBox1.ListCount - 1, 3) = rng.Cells(i, 4).Value
            ListBox1.List(ListBox1.ListCount - 1, 4) = rng.Cells(i, 5).Value
        End If
    Next i
End Sub

' 测试用代码（可临时启用验证逻辑）
Private Sub TestFilter()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets("你的工作表名称")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set rng = ws.Range("A2:E" & lastRow)
    
    ListBox1.Clear
    ListBox1.ColumnCount = 5
    
    ' 硬编码用户名测试
    Const testUserName As String = "McGrath, Sam O"
    For i = 1 To rng.Rows.Count
        If DateValue(rng.Cells(i, 1).Value) = Date And _
           rng.Cells(i, 2).Value = testUserName Then
           
            Dim formattedDate As String
            formattedDate = Format(rng.Cells(i, 1).Value, "yyyy-mm-dd hh:mm:ss")
            
            ListBox1.AddItem formattedDate
            ListBox1.List(ListBox1.ListCount - 1, 1) = rng.Cells(i, 2).Value
            ListBox1.List(ListBox1.ListCount - 1, 2) = rng.Cells(i, 3).Value
            ListBox1.List(ListBox1.ListCount - 1, 3) = rng.Cells(i, 4).Value
            ListBox1.List(ListBox1.ListCount - 1, 4) = rng.Cells(i, 5).Value
        End If
    Next i
End Sub

关键修改说明 #

1. 日期格式化：通过Format()函数将日期单元格值转为指定字符串格式（如yyyy-mm-dd hh:mm:ss），确保ListBox显示正确的日期时间格式，而非Excel底层数值或默认的12小时制格式
2. 动态用户名匹配：用Application.UserName替代硬编码的用户名，自动获取当前Excel登录用户，实现动态过滤
3. 逐行添加数据：放弃直接绑定数组的方式，改为循环逐行添加并格式化每一列数据，彻底避免格式丢失问题

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