周一至周五 : 08:30 - 17:30 客服专员电话/微信:18049979371 QQ:2982200781
微信咨询

扫码微信咨询

关注公众号

关注微信公众号

电话: 021 5161 9370
返回顶部
VBA控制显示隐藏自动筛选并按条件筛选过滤数据
显示全部楼层 倒序浏览 发表日期 2020-03-12 15:29:35 3002次阅读 0次回复

VBA控制显示隐藏自动筛选并按条件筛选过滤数据

效果:

筛选.gif


VBA:

  1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
  2.            Activeworkbook.WorkbookSet.GetLock()
  3.                 If String.Equals(e.Shape.Name,"Button 1") = True Then
  4.                         If ActiveWorkbook.Activeworksheet.AutoFilterMode = False Then
  5.                                 Range("B5:K5").AutoFilter(Field:=2,Criteria1:=">=" & Range("D4").Value, Op:=1,Criteria2:="<=" & Range("E4").Value,visibleDropDown:=True)
  6.                         Else
  7.                                 Range("B5:K5").AutoFilter
  8.                         End If
  9.                 End If
  10.                 Activeworkbook.WorkbookSet.ReleaseLock()
  11.        End Sub'按钮/标签点击事件
复制代码


电话/微信:18049989370 QQ:857188287
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则  允许回帖邮件提醒楼主

快表软件是国内较早研究表格类软件开发平台的团队之一,迄今已有十多年的行业经验.致力于为企事业单位提供实用可靠的数字化平台。
  • 微信公众号

  • 微信小商店

  • 微信客服

  • Powered by Discuz! X3.4 | Copyright © 2022-2024, XiRong Soft. | 快表软件
  • 沪ICP备13033196号 | 营业执照 |上海西戎软件科技有限公司|沪公网安备31011502002146号|沪ICP备13033196号 |