EXCEL2007 “筛选”里面的“等于”和“包含”用VBA编一个

16661666

筛选22.rar (28.27 KB, 下载次数: 31)

2009-6-24 01:42 上传

点击文件名下载附件

Private Sub CommandButton1_Click()
tj1 = Me.TextBox1.Text
tj2 = Me.TextBox2.Text
If tj1 = "" Then
  tj1 = " "
End If
If tj2 = "" Then
  tj2 = " "
End If
'下面这行中Field:=1中的1就是要筛选数据的列，根据实际情况自己修改一下吧。
  ActiveSheet.Range("$A$1:$B$10").AutoFilter Field:=6, Criteria1:="=" + tj1, _
        Operator:=xlOr, Criteria2:="=*" + tj2 + "*"
End Sub

Private Sub UserForm_Activate()
  Me.TextBox1.SetFocus
End Sub



高手你好：我有时要筛选第5列。有时要筛选第6列。所以我把第1列的1改成5。它就能筛选第5列了。
    然后我想复制一个同样的宏，再把第5列改成第6列，不就能筛选第6列了，但我改了，它还是筛选第5列。帮我看看，谢谢
   然后就是，我筛选了之后还要让它复原（即：还要把它全选上）它得把咱们编的这个对话框关了之后才能全选上，能不能不关这个对话框而还能全选上（即复原） 谢谢高手？？？？
我总共有6千行  有时筛选E列 筛选E列时用的是“等于”；有时筛选F列筛选F列时用的是“包含”
EXCEL2007 “筛选”里面的“等于”和“包含”用VBA编一个像 工具栏 上的 快捷按钮
EXCEL2007筛选 等于  包含 快速打开方法
EXCEL2007筛选里面的“ 等于”和“包含”有什么快捷的打开方法。

如：直接放在工具栏上反正是能直接一点。
如：像超级链接那样，设好之后一点就出来

16661666

听说此站高手如云，怎不见动静

thtfzhaobo

ActiveSheet.Range("$A$1:$B$10").AutoFilter Field:=6, Criteria1:="=" + tj1, _
        Operator:=xlOr, Criteria2:="=*" + tj2 + "*"
就这一句话,你自己好好看看,
Range("$A$1:$B$10").  '区域
Criteria1:="=" + tj1, '条件1
Operator:=xlOr   '或者
Criteria2:="=*" + tj2 + "*"  '条件2

thtfzhaobo

你用的这种方式,就是在筛选状态打开的时候才有效.
Private Sub CommandButton2_Click()
  ActiveSheet.Range("$A$5:$k$6000").AutoFilter
End Sub
你代码中的这句话
ActiveSheet.Range("$A$5:$k$6000").AutoFilter
就是开启关闭筛选状态,如何判定目前的筛选状态,是不是有属性

下面这两句就是判定筛选状态的,未打开,就打开,保证筛选的实现
Dim value As AutoFilter
value = ActiveSheet.Range("$A$5:$k$6000").AutoFilter
if vaule=nothing then
   ActiveSheet.Range("$A$5:$k$6000").AutoFilter
endif

16661666

谢谢高手们，问题已解习决
  在最后的附件就是已解决的问题

16661666

打开“筛选”对话框时，无法编辑单元格
    我用 VBA编了一个“筛选”的程序，让然后筛选到内容之后就是要修单元格里的内容，（不相同的内容，不能先编好。）可是“筛选”这个对框没关闭时无法修改单元格的内容，关闭之后可以，但这样反反复复很麻烦，每天要用到几百次，太麻烦。高手们有什么解决的办法。
谢谢
请下载最后的附件，筛选2222 看看  宏的快捷键 SHIFT+CTRL+Z

16661666

问题二：保护工作表时，打开自已编的“筛选“对话框进行筛选时提示出错
   请高手帮忙，本人想尽了帮法

thtfzhaobo

第一个问题,容易解决,你只要在"userfrom1.show"后面加一句"doevents",就可以了;
第二个问题比较麻烦,据我所知保护的时候就是向你描述那样,你需要在代码增加去除保护进行筛选,筛选后再保护,来完成你需要的过程

同时带来一个问题,你是否设定编辑区域,否则筛选完成,恢复保护后,依然无法修改

thtfzhaobo

给你附件,按我上面所说,至于该不该加保护,或者设定可编辑区域,你自己把握,说实话实在没看懂你要做什么,感觉只是个替换功能

thtfzhaobo

像你这样写代码,不如直接用高级筛选