Спецификация изменений в флажках

Question

Я борюсь со связыванием галочек в флажках со значениями в другом списке и впоследствии делаю форматирование на основе этого.

(т.е. человек нажимает на флажок, и ячейка становится серой)

Итак, у меня есть несколько флажков, каждое текстовое поле помечено как

"Флажок 1" ... "Флажок 44"

    Sub Link()
    Dim i As Long
    Dim checkbox(1 To 44) As checkbox

    For i = 1 To 44
        For Each element In checkbox
        ActiveSheet.Shapes.Range(Array(element)).Select
            With Selection
            .Value = xlOn
            .LinkedCell = "Calculation!$A$" & "i"
            .Display3DShading = False
            End With
        Next
    Next

    End Sub

Но, похоже, я либо неправильно выбираю флажки, либо неправильно назначаю их массив. Любая помощь будет очень высоко ценится.

Answer 1

ComputerVersteher решил вашу основную проблему, но вы можете принять несколько более простой подход:

Sub x()

Dim i As Long

For i = 1 To ActiveSheet.CheckBoxes.Count
    With ActiveSheet.CheckBoxes(i)
        .Value = xlOn
        .LinkedCell = "Calculation!$A$" & i
        .Display3DShading = False
    End With
Next i

End Sub

Это предполагает, что флажки названы по порядку (что по умолчанию должно быть).

Все это говорит, я не уверен, что именно вы пытаетесь сделать.