[已解决]如何添加隐藏空行的条件

金色和谐家园 · 发表于 2021-10-24 08:54

各位老师，
如何修改以下代码，将隐藏D列没有星号的行进行隐藏。
万分感谢
Option Explicit
Private Sub CB1_Click()
If CB1.Caption = "净额" Then
      CB1.Caption = ""
      Range("F6").Value = ""
Else
      CB1.Caption = "净额"
      Range("F6").Value = "净额"
End If
End Sub

工作簿2.rar (30.15 KB, 下载次数: 2)

cutecpu · 发表于 2021-10-24 12:57

加上下面代码:

For Each Rng In Range([d3], [d65536].End(3))
If Rng <> "*" Then Rng.EntireRow.Hidden = 1
Next

祝順心，南無阿彌陀佛！

金色和谐家园 · 发表于 2021-10-24 20:11

cutecpu 发表于 2021-10-24 12:57
加上下面代码:

For Each Rng In Range([d3], [d65536].End(3))

更新附件

工作簿2.rar (29.84 KB, 下载次数: 1)

cutecpu · 发表于 2021-10-24 21:19

这个最佳答案由 cutecpu 给出，感谢 cutecpu 的回答。

单击隐藏图章

金色和谐家园发表于 2021-10-24 20:11
更新附件

拿掉最前面的 Option Explicit

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