通过VBA实现筛选功能

吉仔 · 发表于 2022-12-9 09:36

本人想通过附件的内容实现按月筛选功能，当月份为3月份时，所在工作表的点击A公司命令按钮或其他任何一间公司名称的按钮，就筛选出3月份相关公司的内容，请帮忙指导应该如果处理，谢谢！

3190496160 · 发表于 2022-12-9 10:33

Sub 筛选()
Application.ScreenUpdating = False
Dim ob As OLEObject
yf = [h1]
If yf = "" Then MsgBox "请输入月份！": End
r = Cells(Rows.Count, 2).End(xlUp).Row
AutoFilterMode = False
Rows(2).AutoFilter
For Each ob In ActiveSheet.OLEObjects
If ob.Object.Value = True And Left(ob.Name, 12) = "OptionButton" Then
      mc = Replace(ob.Object.Caption, "公司", "")
      Range("a2:g" & r).AutoFilter Field:=2, Criteria1:=yf, Operator:=xlAnd
      Range("a2:g" & r).AutoFilter Field:=3, Criteria1:=mc, Operator:=xlAnd
      Exit For
End If
Next
Application.ScreenUpdating = True
End Sub

3190496160 · 发表于 2022-12-9 10:34

帮忙设置VBA公式.rar (24.57 KB, 下载次数: 14)

3190496160 · 发表于 2022-12-9 10:34

输入月份，然后，点击控件，实现自动筛选。

leimingsen · 发表于 2022-12-9 10:36

附件，供参考！

汉唐 · 发表于 2022-12-9 10:43

附件请楼主参考

吉仔 · 发表于 2022-12-9 11:12

谢谢上述各位群友帮忙

吉仔 · 发表于 2022-12-9 11:14

刚才考虑不周全，能否点击“全显”就将原数据全部复完显示出来，谢谢

3190496160 · 发表于 2022-12-9 14:08

增加一个控件，增加一句判断代码即可

帮忙设置VBA公式.rar (26.21 KB, 下载次数: 12)

吉仔 · 发表于 2022-12-9 14:23

3190496160 发表于 2022-12-9 14:08
增加一个控件，增加一句判断代码即可

谢谢，谢谢

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

[求助] 通过VBA实现筛选功能