EXCEL RadioButton indipendenti

[Francesco53]

Buongiorno a tutto il Forum, ho la seguente difficoltà, dovrei creare 4 RadioButton, il problema è che vorrei
che fosserò raggruppati a gruppo di due. Spiego meglio, se creo i 4 radiobutton, la scelta di uno, esclude gli altri.
Io ho la necessità che i radio button potesserò funzionare a due a due, così che se scelgo 1, 2 è disabilitato,
se oltre a 1, volessi fare anche la scelta del 3 rispetto al 4, avrei 1=True, 2=false, 3=true e 4= false.
Volevo evitare di utilizzare le caselle quadrate di controllo per poter fare una scelta tra due opzioni.
Grazie
Francesco

[Flash30005]

Ti farò un esempio con due oggetti option (poi ripeterai il codice)

Codice: Seleziona tutto

Private Sub OB1_Click()
If OB1.Value = False Then
OB1.Value = True
OB2.Value = False
End If

End Sub
Private Sub OB2_Click()
If OB2.Value = False Then
OB2.Value = True
OB1.Value = False
End If

End Sub


Allego il file

Ciao

[Francesco53]

Ciao Flash,
purtroppo non sono riuscito ad utilizzare il tuo esempio per i fini che mi ero proposto, pur scegliendo
una condizione, l'altra viene esclusa.
Allego immagine per far capire meglio la mia richiesta:

.

Come si vede nella immagine avrei la necessità di creare due gruppi di RadioButton, e poter per ognuno fare una scelta.
COme detto forse non ho capito il tuo esempio, o non sono stato abbastanza chiaro nella prima richiesta.
Grazie
Francesco

[Flash30005]

Perdona Francesco
E' chiaro che il primo esclude il secondo e viceversa (ho realizzato solo il primo gruppo di due bottoni)
Ora non devi far altro che copiare i due OptionButton (per il 3 e il 4)
e cambiare al loro interno il codice relativamente al 3 e 4, in maniera tale che questo secondo gruppo rimane indipendente da 1 e 2 (primo gruppo)

ciao

P.s. l'avevo scritto anche nel precedente post

Ti farò un esempio con due oggetti option (poi ripeterai il codice)

[Francesco53]

Ciao Flash, quello che hai scritto io non sono riuscito a realizzarlo, ti posto immagine esplicativa di quanto fatto.

Codice: Seleziona tutto

Private Sub OP1_Click()
If OP1.Value = False Then
OP1.Value = True
OP2.Value = False
End If
End Sub
Private Sub OP2_Click()
If OP2.Value = False Then
OP2.Value = True
OP1.Value = False
End If
End Sub
Private Sub OP3_Click()
If OP3.Value = False Then
OP3.Value = True
OP4.Value = False
End If
End Sub
Private Sub OP4_Click()
If OP4.Value = False Then
OP4.Value = True
OP3.Value = False
End If
End Sub

Probabilmente c'è qualcosa che non ho capito.
Grazie
Francesco

[Anthony47]

Usa i radiobutton degli "Strumenti di controllo" (controlli ActiveX); poi seleziona il primo radiobutton, e alla proprieta' GroupName scrivi "Uno", idem col secondo del primo gruppo; seleziona il primo del secondo gruppo e come GroupName scrivi "Due", idem col secondo.

Flash, non ho capito il tuo processo.

Ciao

[Flash30005]

In altre situazioni usavo fare così
ma vedo che in excel attribuisce tutti gli OptionButton allo stesso gruppo (Foglio1)
e non è necessario tutto il codice precedente

Quindi, come dice Antony è sufficiente cambiare nome al groupname nelle proprietà della coppia di optionbutton

download file

Ciao

[Francesco53]

Un ringraziamento ad entrambi per l'aiuto dato.
Francesco