用户窗体智能ComboBox优化：点击触发viewProject及列表容错处理

问题1：点击下拉选项需按回车才触发操作 #

添加ComboBox1_Click事件，选中选项时直接调用viewProject，同时重置ComboBox的完整列表：

Private Sub ComboBox1_Click()
    With ComboBox1
        ' 重置为完整列表
        .List = ActiveSheet.Range("B2", Cells(Rows.Count, 2).End(xlUp)).Value
        If .ListIndex > -1 Then
            viewProject
        End If
    End With
End Sub

问题2：列表项少于3个时报错 #

移除填充空格的临时代码，改用安全的范围判断和空列表防护：

• 先确认数据行的有效性，避免Range引用出错
• 处理ListRows时，针对ListCount为0或1的情况设置合理行数
• 循环删除项前先判断ListCount是否大于0，避免循环执行错误

完整修正代码 #

Option Explicit

Private Comb_Arrow As Boolean

Private Sub ComboBox1_Change()
    Dim i As Long
    Dim dataRange As Range
    
    ' 获取有效数据范围，避免引用空行
    Set dataRange = ActiveSheet.Range("B2", ActiveSheet.Cells(Rows.Count, 2).End(xlUp))
    
    If Not Comb_Arrow Then
        With ComboBox1
            ' 仅当数据范围有效时赋值列表
            If dataRange.Row >= 2 Then
                .List = dataRange.Value
            Else
                .Clear ' 无数据时清空列表
            End If
            
            ' 安全设置下拉行数，避免ListCount为0时出错
            .ListRows = IIf(.ListCount = 0, 1, Application.WorksheetFunction.Min(4, .ListCount))
            
            .DropDown
            If Len(.Text) And .ListCount > 0 Then
                ' 仅当有列表项时执行删除循环
                For i = .ListCount - 1 To 0 Step -1
                    If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
                Next
                .DropDown
            End If
        End With
    End If
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Comb_Arrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown)
    If KeyCode = vbKeyReturn Then
        With ComboBox1
            If .ListIndex = -1 And .LineCount > 0 Then
                .ListIndex = 0
            End If
            ' 重置为完整列表
            .List = ActiveSheet.Range("B2", Cells(Rows.Count, 2).End(xlUp)).Value
            If .ListIndex > -1 Then
                viewProject
            End If
        End With
    End If
End Sub

' 新增点击事件，选中选项直接触发操作
Private Sub ComboBox1_Click()
    With ComboBox1
        .List = ActiveSheet.Range("B2", Cells(Rows.Count, 2).End(xlUp)).Value
        If .ListIndex > -1 Then
            viewProject
        End If
    End With
End Sub

关键修改说明 #

• 新增ComboBox1_Click事件：点击下拉选项时自动执行viewProject，无需按回车
• 移除填充空格的代码：改用dataRange变量判断有效数据行，无数据时清空ComboBox
• 优化ListRows赋值：用IIf处理ListCount=0的情况，避免调用Min函数出错
• 循环前加ListCount>0判断：防止无列表项时进入循环导致错误

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