Excel VBA 组合框不允许从列表中选择特定项目

Question

我的工作表中有一个带有动态搜索的组合框，动态搜索是通过在另一个工作表上的列表中搜索键入的字母来完成的。搜索是通过excel公式完成的。该列表是一个定义的范围，然后组合框 listfillrange 设置为命名范围。 当我键入下拉列表时，对于某些项目，组合框允许我从列表中进行选择，而对于其他项目，选择会在我选择时消失。我试图弄清楚为什么这些项目会消失。列表很长（10,000 项），所以运行起来有点慢，但我不确定这是否是问题所在。

我该如何解决这样的问题？有没有办法为下拉列表中的鼠标点击选择定义一个变量？

提前致谢， 大理

这是我的代码：

Private Sub ComboBox1_Change()
    Sheets("PS").EnableCalculation = True
    ComboBox1.ListFillRange = "DropDownList"
    ComboBox1.DropDown

End Sub

Private Sub CommandButton21_Click()
    Dim PS As Worksheet
    Application.ScreenUpdating = False
    Application.ErrorCheckingOptions.BackgroundChecking = False
    Sheets("PharmaSoft").Select
    Set PS = Sheets("PS")
    SelectionA = PS.Range("J2").Value
   If ComboBox1.Value = SelectionA Then
    Range("J19") = "Pharmacy purchase price"
    Range("N19") = PS.Range("K2")
    Range("O19") = "ILS"
    Range("J21") = "Pharmacy selling price Incl.VAT"
    Range("N21") = PS.Range("L2")
    Range("O21") = "ILS"
    Range("J23") = "Package size"
    Range("N23") = PS.Range("M2")
    Range("J19:O23").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        End With
        Selection.Font.Bold = True
        Application.ScreenUpdating = True
        Range("N19").Errors.Item(1).Ignore = True
        Range("N21").Errors.Item(1).Ignore = True
        Range("N23").Errors.Item(1).Ignore = True
   Else
     MsgBox "Please select a product", vbCritical, "Error"
   End If
   Sheets("PS").EnableCalculation = False
End Sub

Private Sub CommandButton22_Click()
    Application.ScreenUpdating = False
    Sheets("PharmaSoft").Select
    ComboBox1.Value = Null
    Range("J19:O23").Value = Null
    Application.ScreenUpdating = True
End Sub

Also the code for the workbook:

Private Sub Workbook_Open()
    Sheets("PharmaSoft").Select
    Application.ScreenUpdating = False
    Sheets("PharmaSoft").ComboBox1.Value = Null
    Range("J19:O23").Value = Null
    Application.ScreenUpdating = True
End Sub

Answer 1

虽然我无法评论您在做什么，因为您的搜索已完成，正如您使用 excel 公式提到的那样。我知道通过组合框使用数据验证会很快。我使用的方法是按照这个page 并且非常快。在大约 15k 行长的验证范围内，它几乎是瞬时的。它最好的部分是它提供了自动完成功能。因此，当您在组合框中键入并且该值不在列表中时，之前匹配一个字符的条目就会消失。无论您的选择是否有效，这都是一个很好的视觉提示。当然，您仍然可以以通常的方式使用下拉框。唯一的缺点是，正如提供的链接所编码的那样，您必须双击才能进入自动完成模式。