Question

我对VBA还是很陌生，所以这可能是一个非常基本的问题，但是不知怎么在Internet上找不到解决方案。

我有一个切换按钮，该按钮应通过单击来隐藏/取消隐藏某些行。唯一的问题是我不希望隐藏（取消）隐藏行的范围，而只希望隐藏一些预选的行（例如，仅第1、4、7和9行）。

我搜索了互联网，但所有内容似乎都是关于行范围而不是单个行。

Private Sub RWCATSHC()
    With Rows("227:243")      (this part I want it to be just a few selected ones)
        .Select
       .EntireRow.Hidden = Not .EntireRow.Hidden
    End With
End Sub

如前所述，这可能是一个非常基本的问题，但是我对此并不陌生，因此不胜感激。

谢谢！

Answer 1

这将起作用：

Private Sub RWCATSHC()


     Rows(1).EntireRow.Hidden = Not Rows(1).EntireRow.Hidden
     Rows(4).EntireRow.Hidden = Not Rows(4).EntireRow.Hidden
     Rows(7).EntireRow.Hidden = Not Rows(7).EntireRow.Hidden
     Rows(9).EntireRow.Hidden = Not Rows(9).EntireRow.Hidden

End Sub

VBA-隐藏单独的行，无范围

1 个答案: