Excel VBA列表框代码报错：参数数量错误或无效属性赋值

原代码的错误点 #

• 未初始化工作表变量ws：声明了ws但未赋值，直接调用ws.Range会导致对象引用错误，也是触发"参数数量错误或属性赋值无效"的核心原因之一。
• 未初始化currentDate变量：targetDate = DateAdd("d", -30, currentDate)中currentDate未赋值，计算出的targetDate完全无效。
• 循环逻辑错误：For Each cell In ws.Range("A2:E" & iRow)是遍历单个单元格，而非整行数据，导致每次添加的是单个单元格值，而非需求中的整行5列数据。
• 列表框赋值语法错误：.lstSemuaData.List(i, 2, 1)的写法不符合MSForms列表框的属性规则，标准列表框无法直接设置单个单元格背景色，需启用**自绘模式（OwnerDraw）**才能实现。
• 变量i未初始化：i未设置初始值i=0，而列表框索引从0开始，会直接导致索引越界错误。

修正后的完整代码 #

1. 主过程Reset代码 #

Sub Reset()
    Dim iRow As Long
    Dim ws As Worksheet
    Dim currentDate As Date
    Dim targetDate As Date
    Dim rowIndex As Long ' 列表框行索引，从0开始
    Dim colIndex As Integer
    
    ' 初始化工作表变量
    Set ws = ThisWorkbook.Worksheets("Semua")
    ' 获取当前日期
    currentDate = Date
    ' 计算30天前的日期
    targetDate = DateAdd("d", -30, currentDate)
    ' 获取数据最后一行（更稳定的写法）
    iRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    With frmForm
        ' 重置表单控件
        .txtNoFile.Value = ""
        .txtTarikhNotis.Value = ""
        .txtUlasan.Value = ""
        .comboBoxStatus.Clear
        .comboBoxStatus.AddItem "Selesai"
        .comboBoxStatus.AddItem "Belum Selesai"
        
        ' 配置列表框
        .lstSemuaData.Clear
        .lstSemuaData.ColumnCount = 5
        .lstSemuaData.ColumnWidths = "90,90,90,90,100"
        .lstSemuaData.OwnerDraw = True ' 启用自绘模式，用于设置单元格颜色
        .lstSemuaData.DrawMode = fmDrawModeOwnerDrawFixed
        
        ' 手动添加表头（按需修改标题文本）
        .lstSemuaData.AddItem
        .lstSemuaData.List(0, 0) = "文件编号"
        .lstSemuaData.List(0, 1) = "通知日期"
        .lstSemuaData.List(0, 2) = "状态"
        .lstSemuaData.List(0, 3) = "备注"
        .lstSemuaData.List(0, 4) = "其他信息"
        
        ' 遍历数据行，填充列表框
        rowIndex = 1 ' 跳过表头行，从索引1开始
        For i = 2 To iRow
            .lstSemuaData.AddItem
            ' 填充当前行的5列数据
            For colIndex = 0 To 4
                .lstSemuaData.List(rowIndex, colIndex) = ws.Cells(i, colIndex + 1).Value
            Next colIndex
            
            ' 标记需要高亮的行（用隐藏的第6列存储标记）
            If IsDate(ws.Cells(i, 2).Value) And ws.Cells(i, 2).Value <= targetDate Then
                .lstSemuaData.List(rowIndex, 5) = "Highlight"
            End If
            
            rowIndex = rowIndex + 1
        Next i
    End With
End Sub

2. 列表框的DrawItem事件代码（需在窗体代码模块中添加） #

Private Sub lstSemuaData_DrawItem(ByVal Index As Integer, ByVal Rect As MSForms.Rectangle, ByVal State As Integer)
    Dim colIndex As Integer
    Dim colWidths() As String
    colWidths = Split(lstSemuaData.ColumnWidths, ",")
    
    ' 重置画布样式
    lstSemuaData.Canvas.BackColor = vbWhite
    lstSemuaData.Canvas.ForeColor = vbBlack
    
    ' 表头行单独处理
    If Index = 0 Then
        lstSemuaData.Canvas.Font.Bold = True
        For colIndex = 0 To 4
            Dim offset As Integer
            offset = 0
            For i = 0 To colIndex - 1
                offset = offset + CInt(colWidths(i))
            Next i
            lstSemuaData.Canvas.DrawText lstSemuaData.List(Index, colIndex), Rect.Left + offset, Rect.Top, CInt(colWidths(colIndex)), Rect.Height, vbLeftJustify
        Next colIndex
        lstSemuaData.Canvas.Font.Bold = False
        Exit Sub
    End If
    
    ' 判断是否需要高亮第二列
    If lstSemuaData.List(Index, 5) = "Highlight" Then
        ' 计算第二列的起始位置和宽度
        Dim secondColOffset As Integer
        secondColOffset = CInt(colWidths(0))
        Dim secondColWidth As Integer
        secondColWidth = CInt(colWidths(1))
        
        ' 绘制第二列红色背景
        lstSemuaData.Canvas.BackColor = RGB(255, 0, 0)
        lstSemuaData.Canvas.FillRect Rect.Left + secondColOffset, Rect.Top, secondColWidth, Rect.Height
        ' 绘制第二列白色文本
        lstSemuaData.Canvas.ForeColor = vbWhite
        lstSemuaData.Canvas.DrawText lstSemuaData.List(Index, 1), Rect.Left + secondColOffset, Rect.Top, secondColWidth, Rect.Height, vbLeftJustify
        
        ' 绘制其他列的黑色文本
        lstSemuaData.Canvas.ForeColor = vbBlack
        ' 第一列
        lstSemuaData.Canvas.DrawText lstSemuaData.List(Index, 0), Rect.Left, Rect.Top, CInt(colWidths(0)), Rect.Height, vbLeftJustify
        ' 第三到第五列
        For colIndex = 2 To 4
            Dim colOffset As Integer
            colOffset = 0
            For i = 0 To colIndex - 1
                colOffset = colOffset + CInt(colWidths(i))
            Next i
            lstSemuaData.Canvas.DrawText lstSemuaData.List(Index, colIndex), Rect.Left + colOffset, Rect.Top, CInt(colWidths(colIndex)), Rect.Height, vbLeftJustify
        Next colIndex
    Else
        ' 正常绘制所有列
        For colIndex = 0 To 4
            Dim normOffset As Integer
            normOffset = 0
            For i = 0 To colIndex - 1
                normOffset = normOffset + CInt(colWidths(i))
            Next i
            lstSemuaData.Canvas.DrawText lstSemuaData.List(Index, colIndex), Rect.Left + normOffset, Rect.Top, CInt(colWidths(colIndex)), Rect.Height, vbLeftJustify
        Next colIndex
    End If
End Sub

关键说明 #

• 启用OwnerDraw是MSForms列表框实现单个单元格高亮的唯一可行方式，标准模式下无法单独设置单元格样式。
• 用列表框的第6列（隐藏，因为ColumnCount设为5）存储高亮标记，避免额外变量占用内存。
• 替换了原代码中[Counta(Semua!A:A)]的写法，改用ws.Cells(ws.Rows.Count, "A").End(xlUp).Row，避免因工作表引用失效导致的错误。

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