OptionButton

Hai un problema con Excel?

Nuova discussione

OptionButton
di Jellyfish data: 23/10/2012 18:55:23
Ciao a tutti

Ho una UserForm con due OptionButton in un Frame.

Sotto il codice

I "click" funzionano ma l'"Inizialize". Vorrei che i due OpzionButton fossero pieni in base al valore che ho lasciato nella cella A2 mantre all'aperture della form sono entrambi pieni :( qualunque cosa ci sia nella cella A2

Perchè non funziona il mio codice

Grazie mille

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then Range("A2").Value = 1
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then Range("A2").Value = 2
End Sub
Private Sub UserForm_inizilaize()
If Range("A2").Value = 1 Then
    OptionButton1.Value = True
    OptionButton1.Value = False
    Else
        If Range("A2").Value = 2 Then
            OptionButton1.Value = False
            OptionButton1.Value = True
        Else
            OptionButton1.Value = False
            OptionButton1.Value = False
        End If
End If
End Sub

di HarryBosch data: 23/10/2012 20:18:03
Vediamo se ho capito; prova così.

Private Sub OptionButton1_Click()
    If OptionButton1.Value = True Then Range("A2").Value = 1
End Sub

Private Sub OptionButton2_Click()
    If OptionButton2.Value = True Then Range("A2").Value = 2
End Sub

Private Sub UserForm_Activate()
    If Range("A2").Value = 1 Then
        OptionButton1.Value = True
    ElseIf Range("A2").Value = 2 Then
        OptionButton2.Value = True
    End If
End Sub

di Vecchio Frac data: 23/10/2012 20:19:09
Bè certo che se la firma di Initialize la scrivi come hai scritto tu:

Private Sub UserForm_inizilaize()

non può funzionare di sicuro ^_^
di Jellyfish data: 23/10/2012 23:00:01
Perfetto!!!

e io devo imparare anche a scrivere!!!

Grazie mille ragazzi!

Vuoi Approfondire?