时间戳

首页 > 解决方案 > 使用循环启用excel中的复选框

excel - 使用循环启用excel中的复选框

问题描述

我目前正在处理 Excel 电子表格，并且可以通过复选框循环使用一些帮助。我想要做的是当一个框被选中时，另一组框变得可见并启用。任何有关如何做到这一点的建议将不胜感激。

感谢您的时间。

标签： excelvbacheckbox

解决方案

假设您的复选框是位于 上的表单控件Sheet 1，您可以构建所有需要在checkBox1单击时启用的复选框的集合，然后执行以下操作：

Sub CheckBox1_Click()
Dim cb1 As checkBox
Dim cb2 As checkBox
Dim cb3 As checkBox
Dim cb As checkBox
Dim cbCollection As New Collection
Set cb1 = ThisWorkbook.Worksheets(1).CheckBoxes("Check Box 1")
Set cb2 = ThisWorkbook.Worksheets(1).CheckBoxes("Check Box 2")
Set cb3 = ThisWorkbook.Worksheets(1).CheckBoxes("Check Box 3")
cbCollection.Add cb2
cbCollection.Add cb3
If cb1.Value = 1 Then
    For Each cb In cbCollection
        cb.Enabled = True
        cb.Visible = True
    Next cb
Else
    For Each cb In cbCollection
        cb.Enabled = False
        cb.Visible = False
    Next cb
End If
End Sub

推荐阅读