VBA - 使用 vba 隐藏预定义范围

Question

我有一个相对困难的问题，我认为这与我定义变量的方式有关，我无法解决问题，因此有以下问题。无论如何，感谢您花时间阅读。

我有第一张和第二张

在工作表 1 上，根据用户选择、复选框值等创建表格。这工作正常。

然后我正在查看工作表 1 中的某一行及其值，应用 =(int(not(isblank(cellreference))))，如果它有值，则给我一个 1，如果它没有值，则给我一个零。

然后我将我得到的 1 的数量相加来给我一个值。此值被添加到工作表 2 中的预定义范围，这是工作表 1 中表格的“结果”。它实际上是在打印文档，但我不希望空行可见。

使用收到的值我应用="A"&"191"+SUM(P5:P20)&":M206"，它给了我一个范围 A199:M206（名为 HideRowsGF 的单元格。 然后我想在工作表 2 中使用这个范围来隐藏行，所以我的代码如下，但我无法让它为

执行和如果，如果 if 是正确的，我正在调用 HideRows 隐藏下面的行

Private Sub HideRows() ' Range 191 - 206
    Dim HideRowsSheet2 As String
    Set HideRowsSheet2 = SH1.Range("HideRowsGF").Value
    'SH2.Rows("HideRowsSheet2").EnireRow.Hidden = True
End Sub

基本上，我使用公式来获取工作表 1 上的路径，并尝试使用该路径隐藏工作表 2 上的行，但无法使其正常工作。

请告诉我你的想法。 谢谢

Answer 1

您有一些语法问题和一个拼写错误。

对于Set HideRowsSheet2 = SH1.Range("HideRowsGF").Value 行 - vba 不需要使用Set 关键字设置字符串的值。

对于'SH2.Rows("HideRowsSheet2").EnireRow.Hidden = True 行，您有三个问题-EnireRow 的拼写错误，您没有使用引号引用字符串变量，并且您无法使用Rows() 函数选择范围内的行。

Private Sub HideRows()

    Dim SH1 As Worksheet
    Set SH1 = Sheets("Sheet1")

    Dim SH2 As Worksheet
    Set SH2 = Sheets("Sheet2")

    Dim HideRowsSheet2 As String
    HideRowsSheet2 = SH1.Range("HideRowsGF").value  'named range HideRowsGF has address "A199:M206"

    SH2.Range(HideRowsSheet2).EntireRow.Hidden = True

End Sub