Excel VBA - ComboBox 上的过滤器无法识别第一个值

Question

我设置了一个包含组合框的用户窗体。 ComboBox 填充了从名称管理器中定义的一系列单元格中提取的值（A1:A5 的范围存储在单独的 sheet 中。）ComboBox 的默认标题是 "Select Office"

在 ComboBox_Change() Sub 我有以下代码：

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
With Sheets("wpdata").UsedRange
    .AutoFilter
    If ComboBox1.ListIndex > 0 Then .AutoFilter 5, ComboBox1.Value
End With
Application.ScreenUpdating = True
End Sub

这与选项 2、3、4 和 5 完美配合。

但是，当第一个选项被 selected 时，它根本不会过滤，并且过滤器保留在之前 selected 的项目上。我也先尝试 select 选项 1，但它仍然没有过滤。我已经尝试 re-ordering ComboBox 值，但这没有任何效果，第一个选项仍然无法识别。

有没有人有解决办法？

Answer 1

If ComboBox1.ListIndex > -1 Then ...........

Excel VBA - ComboBox 上的过滤器无法识别第一个值

Excel VBA - Filter on ComboBox does not recognise first value

excel

vba

combobox

filter

userform