excel - 如何在vba(格式或控制工具箱)中设置选中的属性

Question

我正在尝试根据另一个单元格的值将复选框的值更改为 true

if range("A1").value = "green" then
Checkbox1.value= true

end if 

如何同时将多个复选框的 value 属性更改为 true

出于某种原因，我尝试过的代码根本没有执行任何操作。附:我正在使用格式复选框

Answer 1

这将更改所有复选框

Sub Changeboxes()

    Dim cb As CheckBox

    If Sheet1.Range("a1").Value = "green" Then
        For Each cb In Sheet1.CheckBoxes
            cb.Value = True
        Next cb
    End If

End Sub

如果您需要指定特定的复选框，那么

Sub ChangeSomeCbs()

    If Sheet1.Range("a1").Value = "green" Then
        Sheet1.CheckBoxes("Check Box 1").Value = True
        Sheet1.CheckBoxes("Check Box 2").Value = False
        Sheet1.CheckBoxes("Check Box 3").Value = True
    End If

End Sub

复选框和复选框是隐藏属性。您不会获得智能感知，但它们可以工作。