使用ComboBox自动过滤表

时间:2015-10-22 15:23:32

标签: excel vba

我有三个用数字填充的ComboBox,并且在调用以下宏时尝试过滤表。问题是在各种测试中它正确过滤然后返回一个包含所有空行的空白表。组合框正确加载,表中的行与测试中的条件匹配。

Sub AutoFilter()

Worksheets("Sheet1").ComboBox1.Value
If Worksheets("Sheet1").ComboBox1.Value <> "" Then
    ActiveSheet.ListObjects("Table").Range.AutoFilter Field:=1, Criteria1:=number1
 If Worksheets("Sheet1").ComboBox2.Value <> "" Then
    ActiveSheet.ListObjects("Table").Range.AutoFilter Field:=2, Criteria1:=number2
If Worksheets("Sheet1").ComboBox3.Value <> "" Then
    ActiveSheet.ListObjects("Table").Range.AutoFilter Field:=3, Criteria1:=number3

可能有什么不对?

0 个答案:

没有答案