keuze rondjes blokkeren

[Justes]

Hallo,

Hoe kan ik als op het eerste keuzerondje geklikt wordt het tweede en derde rondje blokkeren en als dan het vierde of vijfde gekozen gekozen wordt de blokkade opgeheven wordt.

Gr Justes

 

[Wigi]

Dan zal je keuzerondjes van de Visual Basic balk willen gebruiken.

Je zal de events (gebeurtenissen) van die keuzerondjes moeten programmeren. Bv. bij optionbutton1_Change zal je de eigenschap Enabled van andere option buttons op False moeten zetten. enz.

Wigi

 

[Justes]

Hallo Wigi,

Dus met deze gaat het niet zie bijlage.

Gr Justes

 

[Wigi]

Ben ook aan het testen. Ziet er goed uit. Zal de code schrijven.

 

[Wigi]

Zal de code schrijven.

Zoals beloofd

Sub A()
    ActiveSheet.Shapes("Option Button 2").Select
    Selection.Enabled = False
    ActiveSheet.Shapes("Option Button 3").Select
    Selection.Enabled = False
    Range("A15").Select
End Sub

Sub B()
    Range("B15").Select
End Sub

Sub C()
    Range("C15").Select
End Sub

Sub D()
    ActiveSheet.Shapes("Option Button 2").Select
    Selection.Enabled = True
    ActiveSheet.Shapes("Option Button 3").Select
    Selection.Enabled = True
    Range("D15").Select
End Sub

Sub E()
    ActiveSheet.Shapes("Option Button 2").Select
    Selection.Enabled = True
    ActiveSheet.Shapes("Option Button 3").Select
    Selection.Enabled = True
    Range("E15").Select
End Sub

Die van 4 en 5 kan ook in een aparte procedure aangezien het toch 2 keer hetzelfde is. Het allerbeste zou zijn als je een aparte functie schrijft die het Enabled op False of True zet (dat is dan een te kiezen argument). Die functie roep je 6 keer aan, alleen de argumenten verschillen.

Wigi

 

[Wigi]

Die van 4 en 5 kan ook in een aparte procedure aangezien het toch 2 keer hetzelfde is. Het allerbeste zou zijn als je een aparte functie schrijft die het Enabled op False of True zet (dat is dan een te kiezen argument). Die functie roep je 6 keer aan, alleen de argumenten verschillen.

Wigi

Dit bedoelde ik:

Sub BlokkerenOfNiet(sButton As String, bEnabled As Boolean)
    ActiveSheet.Shapes(sButton).Select
    Selection.Enabled = bEnabled 
End Sub

Sub A()
    Call BlokkerenOfNiet("Option Button 2", False)
    Call BlokkerenOfNiet("Option Button 3", False)
    Range("A15").Select
End Sub

Sub B()
    Range("B15").Select
End Sub

Sub C()
    Range("C15").Select
End Sub

Sub D()
    Call BlokkerenOfNiet("Option Button 2", True)
    Call BlokkerenOfNiet("Option Button 3", True)
    Range("D15").Select
End Sub

Sub E()
    Call BlokkerenOfNiet("Option Button 2", True)
    Call BlokkerenOfNiet("Option Button 3", True)
    Range("E15").Select
End Sub

Wigi

 

[Justes]

Hallo Wigi,

Hartelijk dank, ik ga ermee aan het werk.

Gr Justes