Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2.Enabled = False
CheckBox3.Enabled = False
End If
If CheckBox1 = False Then
CheckBox2.Enabled = True
CheckBox3.Enabled = True
end Sub
Private Sub CheckBox1_Click()
If CheckBox1 Then SetCheckBoxesFalse ("CheckBox1")
End Sub
Private Sub CheckBox2_Click()
If CheckBox2 Then SetCheckBoxesFalse ("CheckBox2")
End Sub
Private Sub CheckBox3_Click()
If CheckBox3 Then SetCheckBoxesFalse ("CheckBox3")
End Sub
Sub SetCheckBoxesFalse(Behalve As String)
Dim ChkBx As OLEObject
For Each ChkBx In ActiveSheet.OLEObjects
If TypeName(ChkBx.Object) = "CheckBox" And ChkBx.Name <> Behalve Then
ChkBx.Object = False
End If
Next ChkBx
End Sub
Sub Selectievakje1_Klikken()
SetCheckBoxesFalse (Application.Caller)
End Sub
Sub Selectievakje2_Klikken()
SetCheckBoxesFalse (Application.Caller)
End Sub
Sub Selectievakje3_Klikken()
SetCheckBoxesFalse (Application.Caller)
End Sub
Sub SetCheckBoxesFalse(Behalve As String)
For Each cb In ActiveSheet.Shapes
If cb.Type = msoFormControl Then
If cb.FormControlType = xlCheckBox Then
If cb.AlternativeText <> Behalve Then cb.ControlFormat.Value = xlOff
End If
End If
Next cb
End Sub
Door middel van een paar regels VBA zou je ook die Optionbuttons kunnen genereren in je sheet. Ik kan me voorstellen dat dat handmatig nogal wat werk is. Deze insteek lijkt mij persoonlijk beter dan gaan lopen rommelen met een besturingselement die daar helemaal niet voor bedoeld is.Ai daar had ik even niet op gerekend
...
het is namelijk nogal wat werk om t overnieuw the doen
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.