点击Excel宏按钮时ListBox不显示条目问题求助

问题概述 #

• 点击Excel工作表按钮触发Show_Form显示UserForm1，窗体正常加载但ListBox始终为空
• 修改ListBox的Multiselect属性后问题未解决
• 在VBA开发环境直接运行代码时，ListBox有时能显示条目，有时仍空白
• 数据保存功能正常，仅ListBox显示状态不稳定

原代码 #

模块代码

Option Explicit

Sub Show_Form()
  UserForm1.Show
End Sub

窗体代码

Private Sub CommandButton1_Click()

Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets("ExcelEntryDB")

Dim n As Long

n = sh.Range("C" & Application.Rows.Count).End(xlUp).Row

    sh.Range("C" & n + 1).Value = Format(Date, "mm/dd/yyyy")

    sh.Range("D" & n + 1).Value = Format(Time, "hh:nn:ss AM/PM")

    sh.Range("E" & n + 1).Value = Me.txtColor.Value

    sh.Range("F" & n + 1).Value = Me.txtName.Value

    sh.Range("G" & n + 1).Value = Me.txtShape.Value

   
Me.txtName.Value = ""

Me.txtColor.Value = ""

Me.txtShape.Value = ""

showListBoxEntries

End Sub

Private Sub UserForm_Initialize()
    showListBoxEntries
End Sub

Sub showListBoxEntries()
'showing 10 entries only in listbox
Dim arr(10, 5), lastRow As Long, i As Integer 'get last column number using index

With ActiveSheet
arr(0, 0) = .Cells(1, 3)
arr(0, 1) = .Cells(1, 4)
arr(0, 2) = .Cells(1, 5)
arr(0, 4) = .Cells(1, 7)
arr(0, 5) = .Cells(1, 8)

lastRow = .Cells(Rows.Count, 3).End(xlUp).Row

    If lastRow > 10 Then
        For i = 1 To 10
            arr(i, 0) = .Cells(lastRow - 10 + i, 3).Text
            arr(i, 1) = .Cells(lastRow - 10 + i, 4).Text
            arr(i, 2) = .Cells(lastRow - 10 + i, 5).Text
            arr(i, 3) = .Cells(lastRow - 10 + i, 6).Text
            arr(i, 4) = .Cells(lastRow - 10 + i, 7).Text
        Next
    Else
        For i = 1 To lastRow - 1
            arr(i, 0) = .Cells(i + 1, 3).Text
            arr(i, 1) = .Cells(i + 1, 4).Text
            arr(i, 2) = .Cells(i + 1, 5).Text
            arr(i, 3) = .Cells(i + 1, 6).Text
            arr(i, 4) = .Cells(lastRow - 10 + i, 7).Text
        Next
    End If
End With

With Me.ListBox1
.ColumnHeads = True
.ColumnCount = 6
.ColumnWidths = "75,75,75,75,75,75"
.List = arr()
End With

End Sub

问题根源 #

1. ActiveSheet依赖问题：showListBoxEntries中使用ActiveSheet获取数据，但点击工作表按钮时，当前激活的工作表不一定是存储数据的ExcelEntryDB；VBA环境运行时激活表随机，导致数据读取不稳定。
2. 数组索引错误：
   • 表头数组中arr(0,3)未赋值，导致ListBox第四列无表头
   • Else分支中arr(i,4) = .Cells(lastRow -10 +i,7).Text，当lastRow<=10时，lastRow-10+i会出现负数或无效行号，导致数据读取失败
3. 表头设置冲突：同时使用手动赋值的数组表头和ColumnHeads=True，导致ListBox表头逻辑混乱，可能覆盖数据行。

修复后代码 #

核心修复：showListBoxEntries函数 #

Sub showListBoxEntries()
    ' 显示最近10条条目到ListBox
    Dim arr(10, 5) As Variant, lastRow As Long, i As Integer
    Dim sh As Worksheet
    ' 明确指定数据工作表，避免依赖ActiveSheet
    Set sh = ThisWorkbook.Sheets("ExcelEntryDB")
    
    ' 填充表头，确保所有6列都有值
    arr(0, 0) = sh.Cells(1, 3).Value ' 日期列头
    arr(0, 1) = sh.Cells(1, 4).Value ' 时间列头
    arr(0, 2) = sh.Cells(1, 5).Value ' 颜色列头
    arr(0, 3) = sh.Cells(1, 6).Value ' 名称列头（原代码遗漏）
    arr(0, 4) = sh.Cells(1, 7).Value ' 形状列头
    arr(0, 5) = "" ' 第6列补空（如果无对应数据）
    
    lastRow = sh.Cells(sh.Rows.Count, 3).End(xlUp).Row
    
    If lastRow > 10 Then
        ' 取最近10条数据
        For i = 1 To 10
            arr(i, 0) = sh.Cells(lastRow - 10 + i, 3).Text
            arr(i, 1) = sh.Cells(lastRow - 10 + i, 4).Text
            arr(i, 2) = sh.Cells(lastRow - 10 + i, 5).Text
            arr(i, 3) = sh.Cells(lastRow - 10 + i, 6).Text
            arr(i, 4) = sh.Cells(lastRow - 10 + i, 7).Text
            arr(i, 5) = "" ' 第6列补空
        Next
    Else
        ' 数据不足10条时取全部（从第2行开始）
        For i = 1 To lastRow - 1
            arr(i, 0) = sh.Cells(i + 1, 3).Text
            arr(i, 1) = sh.Cells(i + 1, 4).Text
            arr(i, 2) = sh.Cells(i + 1, 5).Text
            arr(i, 3) = sh.Cells(i + 1, 6).Text
            arr(i, 4) = sh.Cells(i + 1, 7).Text
            arr(i, 5) = "" ' 第6列补空
        Next
    End If
    
    With Me.ListBox1
        .ColumnHeads = False ' 禁用自动表头，使用数组第一行作为表头
        .ColumnCount = 6
        .ColumnWidths = "75,75,75,75,75,75"
        .List = arr()
    End With
End Sub

修复要点 #

• 替换ActiveSheet为明确的ExcelEntryDB工作表对象，确保数据读取稳定
• 补全数组表头的所有列赋值，避免列数据缺失
• 修正Else分支的单元格引用逻辑，避免行号越界
• 关闭ColumnHeads=True，使用数组第一行作为表头，避免逻辑冲突

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