[VBA] Funzionalità delle check box

[aquila1980]

Il problema che devo risolvere è il seguente: in Excel ho una checklist con una serie di checkbox che un controllore deve verificare. Se tutte le n checkbox vengono fleggate una determinata cella assume il colore del carattere verde, se almeno una rimane non fleggata lo stesso carattere diventa rossa.

Qualcuno mi sa dare qualche informazione su come poter risolvere il problema?

[MarcoGG]

Private Sub ListBox1_Change()

Dim test As Boolean
test = True
Dim i As Integer
i = 0
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = False Then
test = False
Exit For
End If
Next i
If test = False Then
Range("A1").Font.ColorIndex = 3
Else
Range("A1").Font.ColorIndex = 4
End If

End Sub

[aquila1980]

Grazie per la risposta, ma c'è un passaggio che non mi è chiaro (e che tra l'altro mi va in errore), che è proprio il modo di passare da una checkbox all'altra.

Io ho nello stesso foglio diversi set di checkbox, e per ognuno di questi set devo fare il controllo. Ovvero, se almeno uan delle prime n chechbox non è fleggata la cella x diventa rossa. Se una tra le checkbox n + 1 ad m non è fleggata la cella y diventa rossa, e così via.

Ho provato ad inserire il codice che mi hai passato ma all'istruzione

For i = 0 To ListBox1.ListCount - 1

va in errore. Se poi sostituisco ListBox1.ListCount - 1 con un valore (es. 13) va avanti ma quando arriva a:

If ListBox1.Selected(i) = False Then

mi va nuovamente in errore dicendo:

Errore di run-time '424':

Necessario oggetto

[MarcoGG]

Devi essere + preciso su cosa intendi per "Set di checkbox".
Io avevo ipotizzato, visto il tuo primo post, che si trattasse di una ListBox, che, con queste proprietà impostate :

- ListStyle = 1-fmListStyleOption
- MultiSelect = 1-fmMultiSelectMulti

si comporta proprio come una collezione di CheckBox.
E in questo caso il mio codice ha senso. ;)