使用表单复选框取消隐藏/隐藏excel中的行

Question

我在 excel 中创建了一个表单，其中隐藏了 [10:48] 行，我想制作这样，当您单击复选框时，行 [10:48] 不会隐藏。我为复选框分配了一个宏并使用以下公式：

Private Sub CheckBox45_Click()

  If CheckBox45 = True Then

  [10:48].EntireRow.Hidden = False

  Else: [10:48].EntireRow.Hidden = True

End If

End Sub

当我单击复选框时，没有任何反应，但是当我取消隐藏行并单击复选框时，它会隐藏行。这让我认为只有其中一项行动有效。有没有办法来解决这个问题？

提前感谢您的帮助。

不知道这是否重要，但表单复选框位于 D 列第 6 行

Answer 1

这是另一种方法。

语句ws.CheckBoxes("Check Box 30") = 1 将返回TRUE 或FALSE，这将隐藏或取消隐藏您的目标行。

Private Sub CheckBox30_Click()

    Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
    ws.Range("A10:A48").EntireRow.Hidden = ws.CheckBoxes("Check Box 30") = 1

End Sub

Answer 2

这假设您正在隐藏/取消隐藏工作表 1 上的行，并且复选框属于工作簿的工作表 1，那么：

Private Sub CheckBox30_Click()  
    If ThisWorkbook.Sheets(1).CheckBoxes("Check Box 30").Value = 1 Then
        ThisWorkbook.Sheets(1).Rows("10:48").Hidden = true 
    Else
        ThisWorkbook.Sheets(1).Rows("10:48").Hidden = false
    End If
End Sub