怎样用按钮把女生隐藏掉？

woniu3721 · 发表于 2022-12-14 18:27

本帖最后由 woniu3721 于 2022-12-14 18:28 编辑

做一个按钮，点一下把女生所在的行全部隐藏掉，再点一下，又显示出来，请问代码该怎么写，自己弄了半天不成功

显隐.zip (10.22 KB, 下载次数: 9)

3190496160 · 发表于 2022-12-14 22:51

Sub 隐藏()
With ActiveSheet
   r = .Cells(Rows.Count, 1).End(xlUp).Row
   .AutoFilterMode = False
   .[A3:m3].AutoFilter
   .Range("a3:m" & r).AutoFilter Field:=6, Criteria1:="男", Operator:=xlAnd
End With
End Sub
Sub 全显()
  If ActiveSheet.FilterMode = True Then ''如果是处于筛选状态
ActiveSheet.ShowAllData ''取消筛选状态
  End If
End Sub

3190496160 · 发表于 2022-12-14 22:51

Private Sub CommandButton1_Click()
With CommandButton1
If .Caption = "隐藏" Then
      Call 隐藏
      .Caption = "全显"
Else
      Call 全显
      .Caption = "隐藏"
End If
End With
End Sub

3190496160 · 发表于 2022-12-14 22:52

显隐.rar (20.19 KB, 下载次数: 16)

woniu3721 · 发表于 2022-12-14 23:17

3190496160 发表于 2022-12-14 22:52

我的wps 点不动你那个按钮，看来得安装office才行

3190496160 · 发表于 2022-12-15 09:24

woniu3721 发表于 2022-12-14 23:17
我的wps 点不动你那个按钮，看来得安装office才行

应该是你的wps是个人版，个人版是没有宏的功能的，得安装一个插件可以使用宏功能

tanglf188 · 发表于 2022-12-15 10:05

woniu3721 · 发表于 2022-12-15 13:44

3190496160 发表于 2022-12-15 09:24
应该是你的wps是个人版，个人版是没有宏的功能的，得安装一个插件可以使用宏功能

重新安装好了宏插件已搞定了

woniu3721 · 发表于 2022-12-15 13:57

tanglf188 发表于 2022-12-15 10:05

楼上使用的是筛选功能，代码易看懂但总共分成了三部分，你这个是采用隐藏属性代码，直接一部到位，但编写麻烦些不容易看懂，但执行效率高，无箭头

海滨驿站（滨） · 发表于 2022-12-15 14:45

画蛇添足了，这样行不

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

[求助] 怎样用按钮把女生隐藏掉？

评分

评分

评分