如何用宏自定义自动筛选方式的快捷键?

isabelnicholas · 发表于 2014-4-30 16:21

样版.rar (23.95 KB, 下载次数: 92)

如何用宏自定义自动筛选方式的快捷键呢.因为每次都要重复的操作到这个,想用快捷键来使用快点.设置快捷键只要到弹出自定义筛选方式这个框就好

zhaogang1960 · 发表于 2014-4-30 17:38

请参考：

Sub Macro1()
' 快捷键: Ctrl+q'自己通过"宏"对话框可以编辑，也可以录制宏时指定
On Error Resume Next
Sheet1.AutoFilterMode = True
Application.Dialogs(xlDialogFilter).Show 4
End Sub

复制代码

zhaogang1960 · 发表于 2014-4-30 17:41

请测试附件

快捷键显示自定义自动筛选方式.rar (28.36 KB, 下载次数: 364)

isabelnicholas · 发表于 2014-5-2 15:37

麻烦再帮我看看,不知道我提制代码后,还没反应.我重新上传了附件.

shaokui123 · 发表于 2014-6-9 23:57

zhaogang1960 发表于 2014-4-30 17:38
请参考：

高手啊，真是高，网上找了很久，只有你的代码好用！！！！！！！！！！
再问一下，能把第一个条件等于变成包含吗？

waterlo · 发表于 2015-1-11 00:15

shaokui123 发表于 2014-6-9 23:57
高手啊，真是高，网上找了很久，只有你的代码好用！！！！！！！！！！
再问一下，能把第一个条件等于变 ...

同求。頻繁使用自定義－包含啊~

wilson_jiang · 发表于 2015-5-17 15:10

Sub Macro1()
On Error Resume Next
Sheet1.AutoFilterMode = True
Application.Dialogs(xlDialogFilter).Show 10, "=* *"
End Sub

解释:
show后面的数字代表列数,数字后面逗号后面的代表参数
等于 "="
不等于 "<>"
大于 ">"
大于或等于 ">="
小于 "<"
小于或等于 "<="
始于 "= *"-----等号后加一个空格
并非起始于 "<> *"
止于 "* ="
并非结束于 "<>*=" （当然，，"<>*<>",这个也行)
包含 "=* *" ---记得 * * 中间要有空格
不包含 "<>* *"---记得 * * 中间要有空格

spzxxjf · 发表于 2017-6-25 10:19

wilson_jiang 发表于 2015-5-17 15:10
Sub Macro1()
On Error Resume Next
Sheet1.AutoFilterMode = True

高手请教，列数可以是个变量吗？比如我先任意点列标题，再运行宏。

tang1216 · 发表于 2018-4-9 11:16

wilson_jiang 发表于 2015-5-17 15:10
Sub Macro1()
On Error Resume Next
Sheet1.AutoFilterMode = True

学习了，谢谢

zrc2000 · 发表于 2018-6-19 17:10

本帖最后由 zrc2000 于 2018-6-19 17:12 编辑

zhaogang1960 发表于 2014-4-30 17:38
请参考：

Sub Macro1()
' 快捷键: Ctrl+q'自己通过"宏"对话框可以编辑，也可以录制宏时指定
On Error Resume Next
Sheet1.AutoFilterMode = True
Application.Dialogs(xlDialogFilter).Show 4
End Sub

高手，这个好用

		自动登录	找回密码
密码			免费注册

[求助] 如何用宏自定义自动筛选方式的快捷键?

评分