expore_inload
2019-04-07 18:42
采纳率: 50%
浏览 898

VBA代码实现“自定义自动筛选方式”对话框的调用

工作中,需要多次用到“自定义自动筛选方式”对话框,所以想到通过编写宏代码,以提高工作效率。在Excel Home上(如何用宏自定义自动筛选方式的快捷键)找到了一个方法。代码如下:

Sub Macro1()

    On Error Resume Next
    ActiveSheet.AutoFilterMode = True
    Application.Dialogs(xlDialogFilter).Show 8, "=* *"

End Sub

其中, show后面的数字代表列数,数字后面逗号后面的代表参数,包含 "=* *" 。

运行后,可以弹出如下对话框:

图片说明

个人希望能进一步优化此代码,达到如下效果:
图片说明

也就是说,默认的第一个条件是“包含”,第二个条件是“不包含”。

在Excel的帮助文件中,我找到了内置对话框参数列表,但xlDialogFilter对应的参数列表为空,所以不知道如何进一步添加Dialogs(xlDialogFilter).Show后面的参数,希望懂行的朋友能指点一二,谢谢!

  • 写回答
  • 好问题 提建议
  • 追加酬金
  • 关注问题
  • 收藏
  • 邀请回答

1条回答 默认 最新

  • djjspirit 2019-04-07 19:16

    放到对应表中,点击C1单元格后弹出。

    评论
    解决 无用
    打赏 举报

相关推荐 更多相似问题