使用VBA取消隐藏下一行-基于表而非行

Question

我正在使用一个命令按钮来取消隐藏多余的行。我已经设置好了，所以每次你点击按钮时，它都会取消隐藏下一行。我在工作表上有5个。

是否可以更改我的VBA，使其不从第17行开始，而是从名为"的表中的第一行开始；工时"？

Private Sub CommandButton1_Click()
Dim r As Long
r = 17
Do Until Rows(r).Hidden = True Or r > 32
r = r + 1
Loop
If r <= 32 Then Rows(r).Hidden = False
End Sub

Answer 1

如果您有一个名为"时间劳动；那么它的第一行可以这样找到：

r = ListObjects("Time Labor").ListRows(1).Range.Row