从用户窗体自动填充组合框

问题描述 投票:0回答:1

我是新来的VBA和我的问题,我跟在我的表单自动填充的组合框挣扎。例如,我的组合框列出了这些值:“苹果”,“树”,“果汁”我问如何使它通过我的列表中进行搜索,当我写“应用”为我提供了“苹果”的结果。

这是我的代码:

Private Sub ComboBox3_Change()

If Me.ComboBox3.Value <> "" Then
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("11")
    Set ph = ThisWorkbook.Sheets("22")
Dim i As String

i = Application.Match((Me.ComboBox3.Value), sh.Range("A:A"), 0)

    Me.TextBox8.Value = ph.Range("D" & i).Value
    Me.TextBox13.Value = ph.Range("P" & i).Value
    Me.TextBox41.Value = ph.Range("B" & i).Value

End If
End Sub

Private Sub UserForm_Activate()
Dim i As Integer

Me.ComboBox3.Clear
Me.ComboBox3.AddItem ""

For i = 2 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row

    Me.ComboBox3.AddItem sh.Range("A" & i).Value

Next i
excel vba userform
1个回答
1
投票

我无法重现您的问题。我与项目组合框,如下图所示:

enter image description here

如果我开始输入App它看起来像下面,它会自动选择Apple

enter image description here

因此,它不正是你所要求的在默认情况下。

© www.soinside.com 2019 - 2024. All rights reserved.