ottenere i valori di tutte le caselle di controllo in Excel con VBA

Question

aggiungo molte caselle di controllo per il foglio Excel programaticaly utilizzando il seguente codice:

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

Ora ho bisogno di un codice che avrebbe analizzare attraverso tutte le caselle di controllo che sono presente nel foglio e ottenere il loro valore (vero o falso) e anche la cella in cui sono presenti. Come fare questo?

Grazie ...

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

Una volta aggiungere le caselle di controllo è possibile scorrere di loro in questo modo:

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