VBA很新,一直在网上学习。我在Excel电子表格中隐藏了行,并且当我单击我已命名为" ADD ROWS"的切换按钮时,希望它们取消隐藏。因此,当我点击它时,它会保持取消隐藏哪个很棒,但我喜欢它一次取消隐藏3行。目前它一次取消隐藏一行。 注意:我没有尝试隐藏行。只是UNHIDE。
按钮中的当前宏是:
Sub Affiliates_Button4_Click()
Dim i As Long
If Columns("n").SpecialCells(xlCellTypeVisible).Count = Rows.Count Then Exit Sub
i = 8 + 1
Do Until Rows(i).Hidden = True
i = i + 1
Loop
Rows(i).Hidden = False
End Sub
答案 0 :(得分:1)
循环直到所有行,直到找到3个隐藏的行来取消隐藏。您还应该对要检查的行数有一些上限。 DB2®。
Sub Affiliates_Button4_Click()
Dim i As Long
Dim j As Long
j = 0
i = 8 + 1
Do Until j > 2 Or i >= 1048576
i = i + 1
If Rows(i).Hidden = True Then
j = j + 1
Rows(i).Hidden = False
End If
Loop
End Sub