主题：筛选问题

表A里面A列有很多数据，能不能实现同时筛选二个条件值，如：A列中有1、2、3、4、5、6 ， 我想筛选出1和6的数据如何筛选，帮助的文件只能对一个列对一个相同的内容进行筛选，不能对二个条件进行筛选。

Tables("表A").Filter = "[A] In ('1','6')"

我建立一个筛选窗口

 

 

在筛选窗口中建立二个文本输入框，

 

输入二个筛选内容

 

单击确定按钮

 

这个确定按钮要如何写代码请帮助我一下。

楼主：试试这个，也许能让你有点启发

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自定义高级筛选.table

还可以看看：

http://www.foxtable.com/help/topics/0118.htm

http://www.foxtable.com/help/topics/2410.htm

 

狐狸爸爸给出来的帮助对我很有用，在这之前我看过到了这个帮助还有4楼提供的高级筛选

 

实际上我的要求很简单，就是建立二个文本框，输入只针对A表,A列的相关内容，在单击确定后对这二个文本框的内容进行筛选

 

例如狐狸爸爸写的帮助，要用复选的方式进行筛选，我的数据量很大，如果我用高级筛选，在我建立的窗口后就要先进行选定表，如果只放二个文本框，只针对一个表这样就会很方便，但是我还不会写，所在就要很麻烦狐狸爸爸

如果这样，更加简单，窗口插入两个文本框，一个按钮，按钮代码为：

 

 

Dim flt As String
If e.Form.Controls("TextBox1").value IsNot Nothing Then
    flt = "第一列 = '" & e.Form.Controls("TextBox1").value & "'"
End If
If e.Form.Controls("TextBox2").value IsNot Nothing Then
    If flt > "" Then
        flt  = flt & " Or "
    End If
    flt = flt & "第一列 = '" & e.Form.Controls("TextBox2").value & "'"
End If
If flt > "" Then
    Tables("表A").Filter = flt
End If

谢谢狐狸爸爸