optionbuttons

[BVi]

Ik ben bezig met een invulformulier in Excel. Hierbij maak ik gebruik van optionbuttons, maar volgens mij niet efficient, met name het uitlezen van de buttons en het wegschrijven van de data. Heeft iemand suggesties hoe dit beter kan?

Alvast bedankt.

Bart Visser

 

[Jootje13]

Misschien heb je hier iets aan

Dim ctl As Control
Dim ctl2 As Control
'loop door alle controls op je formulier
For Each ctl In Me.Controls
If TypeOf ctl Is Frame Then
'indien het control van het type frame is dan controleer je de optionbuttons
For Each ctl2 In ctl.Controls
'indien control waar is dan moet je hier iets mee doen
If ctl2 = True Then
'Controleer hoe het frame heet, zo weet je welke variable je moet kiezen
'Ik heb voor de waarde gekozen van de tabindex omdat deze bij 0 begint en oplopend is
'Je kan natuurlijk ook de waardes in de tag property opslaan en deze uitlezen.
Select Case LCase(ctl.Name)
Case Is = "frame1"
A = ctl2.TabIndex + 1
Case Is = "frame2"
B = ctl2.TabIndex + 1
Case Is = "frame3"
C = ctl2.TabIndex + 1
Case Is = "frame4"
D = ctl2.TabIndex + 1
Case Is = "frame5"
E = ctl2.TabIndex + 1
End Select
Exit For
End If
Next
End If
Next

Is misschien wel een hoop code maar werkt wel..

 

[snb]

Gebruik hiervoor een userform (dat niet voor niets zo heet).

 

[Rap261]

BVi,

Ik zie in je voorbeeld geen buttons en de vraag waar dit moet worden weggeschreven is (voor mij) ook niet duidelijk.

Kun je wat meer uitleg gegeven of een ander voorbeeld sturen?
Wellicht dat ik je kan helpen omdat ik zelf ok een variant op een Userform heb.

 

[BVi]

Aangepast voor beeld

Bijgaand een aangepast voorbeeld, waaruit hopelijk blijkt wat ik bedoel.

Mvg.

Bart

 

[Wigi]

Je zou een lus kunnen maken doorheen de controls op de userform: http://www.ozgrid.com/VBA/control-loop.htm

Wigi

 

[Wigi]

Op mijn site trouwens al een hele hoop code voor multiple choice.

Zie http://www.wimgielis.be, dan Excel, dan VBA-code, dan "Multiple choice".

Wigi

 

[BVi]

Hartelijk dank voor de oplossingen

:thumb:

Bart Visser