excel - すべてのセルにチェックボックスを挿入し、そのセルに割り当てます

Question

そのセルにリンクされているすべてのセルにチェックボックスを追加する必要があります。オンにすると true が返され、オフにすると割り当てられたセルに false が返されます。

ワークシートには何千ものセルがあり、それらを手動で挿入していると、より良い解決策が必要であることがわかりました。

私が取り組んでいるシートは次のようになります。

Answer 1

ほら、クリントン。

Sub AddCheckBoxes()

Dim cb As CheckBox
Dim myRange As Range, cel As Range
Dim wks As Worksheet

Set wks = Sheets("mySheet") 'adjust sheet to your needs

Set myRange = wks.Range("A1:A10") ' adjust range to your needs

For Each cel In myRange

    Set cb = wks.CheckBoxes.Add(cel.Left, cel.Top, 30, 6) 'you can adjust left, top, height, width to your needs


    With cb

        .Caption = ""
        .LinkedCell = cel.Address

    End With

Next

End Sub