excel - 在excel中隐藏/取消隐藏合并的单元格

Question

所以在 excel 上，我有 2 个工作表，其中一个名为 设置 另一个叫 总结 .要求用户从“ 设置”工作表中填写调查表。在设置页面中填写的信息会复制到摘要页面。下面是显示设置页面和摘要页面的 2 张图片。

设置页面



摘要页



所以我遇到的问题是我正在尝试使用 vba 自动化隐藏/取消隐藏功能，并且它不适用于合并的单元格。我希望“摘要”页面隐藏 第 33 至 35 行 如果设置页面留空，如果设置页面上写有内容，则取消隐藏。这是我在下面尝试过的代码并得到了这个运行时错误。

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

     With Sheets("Setup")
            If Range("M29").value = False Then
            Sheets("SUMMARY").Range("B33:B35").Hidden = False
            Else
            Sheets("SUMMARY").Range("B33:B35").Hidden = True
            End If
     End With
   End Sub

Answer 1

而不是 Range , 使用 Rows .

Sheets("SUMMARY").Rows("33:35").Hidden = False 'and similarly for True

另外，请注意您实际上并没有引用 With .你需要一个句号 .之前 Range .

With Sheets("Setup")
    If .Range("M29").value = False Then

您可能正在寻找 IsEmpty测试该范围是否为空白。

此外，如果此代码在“设置”工作表代码模块中，那么您可以使用 Me而不是 Sheets("Setup") .

通过这些编辑，您可能会有这样的事情:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If IsEmpty(Me.Range("M29").Value) Then
        Sheets("SUMMARY").Rows("33:35").Hidden = True ' shouldn't this be True, hide if empty?
    Else
        Sheets("SUMMARY").Rows("33:35").Hidden = False
    End If

End Sub

或作为单行:

  Sheets("SUMMARY").Rows("33:35").Hidden = IsEmpty(Me.Range("M29").Value)