excel - 使用表单复选框取消隐藏/隐藏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

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

在此先感谢您的帮助。

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

Answer 1

这假设您正在隐藏/取消隐藏工作表 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