私はprogramaticaly次のコードを使用してExcelシートに多くのチェックボックスを追加するVBA

Question

を使用してExcelですべてのチェックボックスの値を取得します。シートに表示され、その値（真または偽）およびそれらが存在するセルも取得します。 これを行う方法は？

おかげで...

Answer 1

Sub Add_CheckBoxes() 

With ActiveSheet.CheckBoxes.Add(ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height) 
    .Interior.ColorIndex = xlNone 
    .Caption = "" 
End With 

For Each chk In ActiveSheet.CheckBoxes 
    If chk Then MsgBox "Checked" 
Next 
End Sub 

Answer 2

あなたは、このようにそれらをループすることができますチェックボックスを追加したら：

Sub Checkbox_Test() 

Dim chk As CheckBox 
Dim cell As Range 

For Each chk In ActiveSheet.CheckBoxes 
    If chk.Value = Checked Then  '1 is true, but the constant 
     Set cell = chk.TopLeftCell  ' "Checked" avoids "magic numbers". 

     'do whatever with cell 
     MsgBox cell.Address 
    End If 
Next chk 

End Subの返信用