Casella controllo

Hai un problema con Excel?

Nuova discussione

Casella controllo
di Knopfler61 data: 30/12/2011
Buonasera a tutti,
mi sono appena iscritto e questo è il mio primo post.
ho 50 anni ed abito a livorno, e mi diletto a fare dei piccoli applicativi utlizzando il registratore di macro, poichè conosco poco il linguaggio vba.
devo "flaggare" la casella per validare la scelta tra due opzioni utilizzando la casella di controllo, che mi permetta di poter accedere alla scelta successiva, (sempre tra due opzioni)solo se la precedente è stata soddisfatta e così via.
non so se sono stato chiaro, ho preparato un foglio di excel per poter meglio illustrare ciò che ho tentato di spiegare, ma non so come postarlo.
grazie a tutti, specialmente a chi mi potrà aiutare.
buon anno

Spero vada bene
di Zarathustra (utente non iscritto) data: 22/01/2012
Ti ho allegato un fle, spero vada bene.
eè composto di 3 sub
1) resetta() che serve per azzerare il tutto
2) optionbutton1_click() che scrive il "si
3) opionbutton2_click() che scrive il "no"
in pratica ti appaiono i due classici radio button di selezione da cliccare, una volta effettuata la scelta viene registrata nella casella a fianco ed i pulsansini scendono la riga di sotto.
scrivimi se non ti va bene.

Public riga As Integer

Private Sub resetta()
riga = 2
Foglio2.Range("D3", "D100").Select
Selection.Clear
Foglio2.Range("B2").Select
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton1.Top = 30
OptionButton2.Top = 30
End Sub

Private Sub OptionButton1_Click()
riga = riga + 1
Foglio2.Cells(riga, 4) = "SI"
OptionButton1.Top = OptionButton1.Top + 15
OptionButton2.Top = OptionButton2.Top + 15
OptionButton1.Value = False
OptionButton2.Value = False

End Sub

Private Sub OptionButton2_Click()
riga = riga + 1
Foglio2.Cells(riga, 4) = "NO"
OptionButton1.Top = OptionButton1.Top + 15
OptionButton2.Top = OptionButton2.Top + 15
OptionButton1.Value = False
OptionButton2.Value = False
End Sub

Vuoi Approfondire?