VBA用户窗体：TextBox关联ComboBox后实现自动填充及文本换行方案咨询

核心结论 #

原生VBA ComboBox控件无法实现输入文本换行，只能显示单行内容，因此你用TextBox显示多行内容的方案是可行的，下面补充实现TextBox输入时的自动填充建议（类似MatchEntry功能）的具体方法：

准备工作 #

1. 确保TextBox的MultiLine属性设为True，ScrollBars可按需设为fmScrollBarsVertical，这样才能正常显示换行内容
2. 在UserForm中添加一个ListBox（命名为ListBox1），初始设为不可见，用来显示输入匹配建议

完整代码实现 #

1. 初始化控件与选项

Private Sub UserForm_Initialize()
    ' 给ComboBox添加带换行的选项（用vbCrLf定义换行位置）
    ComboBox1.AddItem "第一行内容" & vbCrLf & "第二行内容"
    ComboBox1.AddItem "苹果" & vbCrLf & "水果类"
    ComboBox1.AddItem "香蕉" & vbCrLf & "热带水果"
    ComboBox1.AddItem "橘子" & vbCrLf & "柑橘类"
    
    ' 初始化建议列表框
    ListBox1.Visible = False
    ListBox1.ColumnCount = 1
End Sub

2. ComboBox选中时同步到TextBox（保留你的原有代码）

Private Sub ComboBox1_Change()
    If Me.ComboBox1.ListIndex > -1 Then
        Me.TextBox1.Text = Me.ComboBox1.Text
    End If
End Sub

3. TextBox输入时显示匹配建议（模拟MatchEntry）

Private Sub TextBox1_Change()
    Dim i As Integer
    Dim searchText As String
    
    searchText = LCase(TextBox1.Text)
    ListBox1.Clear
    
    ' 输入为空时隐藏建议框
    If Len(searchText) = 0 Then
        ListBox1.Visible = False
        Exit Sub
    End If
    
    ' 遍历ComboBox选项，匹配输入开头的内容（类似fmMatchEntryComplete逻辑）
    For i = 0 To ComboBox1.ListCount - 1
        If LCase(Left(ComboBox1.List(i), Len(searchText))) = searchText Then
            ListBox1.AddItem ComboBox1.List(i)
        End If
    Next i
    
    ' 根据匹配结果显示/隐藏建议框
    If ListBox1.ListCount > 0 Then
        ListBox1.Visible = True
        ' 对齐建议框的位置和大小
        ListBox1.Top = TextBox1.Top + TextBox1.Height
        ListBox1.Left = TextBox1.Left
        ListBox1.Width = TextBox1.Width
        ListBox1.Height = Application.Min(ListBox1.ListCount * 15, 100) ' 限制建议框最大高度
    Else
        ListBox1.Visible = False
    End If
End Sub

4. 选中建议项时填充到控件

Private Sub ListBox1_Click()
    If ListBox1.ListIndex > -1 Then
        TextBox1.Text = ListBox1.Text
        ' 同步选中状态到ComboBox
        ComboBox1.ListIndex = ComboBox1.ListIndexOf(ListBox1.Text)
        ListBox1.Visible = False
    End If
End Sub

5. 点击窗体其他区域隐藏建议框

Private Sub UserForm_Click()
    ListBox1.Visible = False
End Sub

说明 #

• 换行实现：ComboBox的选项需提前用vbCrLf插入换行符，TextBox开启MultiLine属性后会自动解析并显示多行内容
• 自动填充：通过ListBox模拟ComboBox的MatchEntry功能，支持输入时匹配选项开头内容，选中建议后同步更新两个控件的内容

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