Word中ComboBox过滤时仅显示1行，如何设置最多显示6行？

问题根源 #

你设置了ListRows但未触发下拉框重新渲染，导致修改后的行数不生效；另外若ComboBox样式设置错误，也会限制显示行为。

具体修复步骤 #

• 强制下拉框刷新显示：在设置ListRows后调用DropDown方法，让下拉框重新展开以应用新的行数设置。
• 确认ComboBox样式：确保控件的Style属性为fmStyleDropDownCombo（允许输入的下拉组合框），而非fmStyleDropDownList（仅选择的下拉列表），后者会限制动态行数调整。
• 优化文本恢复逻辑：避免过滤后光标位置错乱，恢复输入文本时同时设置光标到末尾。

修改后的完整代码 #

Private Sub ComboBox1_Change()
    ' 基于输入文本过滤下拉项
    PopulateComboBox ComboBox1.Text
End Sub

Private Sub PopulateComboBox(filterText As String)
    Dim item As Variant
    Dim currentText As String
    currentText = ComboBox1.Text ' 保存当前输入文本

    ' 清空下拉框准备添加过滤后的项
    ComboBox1.Clear

    ' 遍历所有项，添加匹配的内容
    For Each item In allItems
        ' 不区分大小写检查是否包含过滤文本
        If InStr(1, UCase(item), UCase(filterText)) > 0 Then
            ComboBox1.AddItem item
        End If
    Next item

    ' 恢复输入文本并将光标移至末尾
    ComboBox1.Text = currentText
    ComboBox1.SelStart = Len(currentText)

    ' 设置下拉框显示行数（最多6行）
    If ComboBox1.ListCount > 6 Then
        ComboBox1.ListRows = 6
    Else
        ComboBox1.ListRows = ComboBox1.ListCount
    End If

    ' 强制下拉框展开，应用新的行数设置
    If ComboBox1.ListCount > 0 Then
        ComboBox1.DropDown
    End If
End Sub

额外注意事项 #

确保allItems集合已在全局或用户窗体初始化事件中正确加载了Excel数据源，否则过滤逻辑会无数据可用。

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