VBA代码多列筛选的继承问题[已解决]

yachenda

想法是，用VBA代码对多列进行筛选，不是一次性完成。每次对一列进行筛选，然后查看数据，再对下一列进行筛选
碰到的问题是，对第一列筛选完后，运行第二段代码对第二列筛选时，第一次的第一列筛选条件没有继承下来，不知道原因，求租了......
代码一：
Sub 筛选波长()

    Dim a As Single
    Dim b As Single
   
    a = InputBox("请输入下界", "赋值")
    b = InputBox("请输入上界", "赋值")
   
    Range("A1").AutoFilter Field:=1, Criteria1:=">=" & a, Operator:=xlAnd, _
        Criteria2:="<=" & b
End Sub

代码2
Sub 筛选VF1()
    Dim a As Single
    Dim b As Single
   
    a = InputBox("请输入下界", "赋值")
    b = InputBox("请输入上界", "赋值")
   
    Range("A1").AutoFilter Field:=2, Criteria1:=">=" & a, Operator:=xlAnd, _
        Criteria2:="<=" & b
End Sub

譬如第一段设置523-526筛选，再运行第二段设置2.3-2.4筛选，结果是，2.3-2.4起作用，而523-526的条件没有作用了
Why？？ excel.rar (157.39 KB, 下载次数: 46)

2009-5-8 08:53 上传

点击文件名下载附件

[ 本帖最后由 yachenda 于 2009-5-8 10:06 编辑 ]

mineshine

Sub 筛选波长VF1()
    Dim a, b As Single
    Dim i As Integer
   
    For i = 1 To 2
        a = InputBox("请输入下界", "赋值")
        b = InputBox("请输入上界", "赋值")
        
        Range("A1").AutoFilter Field:=i, Criteria1:=">=" & a, Operator:=xlAnd, _
            Criteria2:="<=" & b
    Next i
End Sub

detergent181

Range("A1").AutoFilter Field:=2, Criteria1:=">=" & a, Operator:=xlAnd, _
        Criteria2:="<=" & b
本来,这两个程序可以合为一个,如果你非要写两个程序的话,上面这句改为
sheet1.usedrange.specialcells(xlcelltypevisible).autofilter field:=2,Criteria1:=">=" & a, Operator:=xlAnd, _
        Criteria2:="<=" & b

yachenda

Thanks
就是把两个程序和为一段了。因为筛选完以后要查看结果，再决定是否进行第二次筛选
这样做好是没有达到要求

yachenda

是的，因为第一次筛选完以后要对数据进行查看分析，在决定是否第二次筛选
所以要分开成两个程序

你给的代码能很好工作，谢谢，耐心的回答我的初级问题
学习了！！

mineshine

Sub VF1()
    Dim a, b, i As Single
   
        i = InputBox("请输入筛选栏位: 1 or 2", "筛选栏位")
        a = InputBox("请输入下界", "赋值")
        b = InputBox("请输入上界", "赋值")
        Range("A1").AutoFilter Field:=i, Criteria1:=">=" & a, Operator:=xlAnd, _
            Criteria2:="<=" & b
End Sub

yachenda

Great!!
能够很好的工作，代码其实都是一样的
为什么你采用一个程序，合并起来就ok了；而我的两个程序分开不行呢................
高........
再谢