Как установить проверенное свойство в vba (формат или панель инструментов управления)

Question

Я пытаюсь изменить значение моего флажка на true, основываясь на значении другой ячейки

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

end if 

Как изменить значение свойства на true для нескольких флажков одновременно

По какой-то причине код, который я пробовал, вообще ничего не делает.PS Я использую флажки формата

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

Флажок и Флажки являются скрытыми свойствами. Вы не получите intellisense, но они работают.

Answer 2

Этот код верен для Office365:

If range("O26").Value = "green" Then
    CheckBox1 = True
    CheckBox2 = True
End If

Answer 3

Это прекрасно работает для меня:

If range("O26").Value = "green" Then
    CheckBox1.Value = True
    CheckBox2.Value = True
End If

Если вы находитесь в режиме разработки, это не будет работать.