Avatar billede ABE15 Seniormester
30. december 2018 - 08:23 Der er 2 kommentarer og
1 løsning

VBA Userform

Jeg har lavet en userform med 12 checkboxse som man kan markerer hver for sig, eller vælge dem alle sammen via en knap i bunden.
Men hvordan skal koden til den "vælg alle" knap se ud?

Min tanke er altså, at man skal kunne markerer alle de 12 checkboxse via denne knap, men hvordan skal koden til denne funktion se ud?
Avatar billede Jan Hansen Ekspert
30. december 2018 - 10:44 #1
Noget alla:


Dim uForm As UserForm
Dim Cl As Control
Private Sub CommandButton1_Click()
    For Each Cl In uForm.Controls
        If TypeName(Cl) = "CheckBox" Then Cl.Value = True
    Next Cl
End Sub
Private Sub UserForm_Initialize()
    Set uForm = UserForm1
End Sub


Jan
Avatar billede store-morten Ekspert
30. december 2018 - 10:58 #2
To knapper:

Private Sub CommandButton1_Click()
'Til knap
CheckBox1 = True
CheckBox2 = True
End Sub

Private Sub CommandButton2_Click()
'Fra knap
CheckBox1 = False
CheckBox2 = False
End Sub

En knap:

Private Sub ToggleButton1_Click()
'Til/Fra knap
If ToggleButton1.Value = True Then
CheckBox1 = True
CheckBox2 = True
End If
If ToggleButton1.Value = False Then
CheckBox1 = False
CheckBox2 = False
End If
End Sub
Avatar billede Jan Hansen Ekspert
30. december 2018 - 11:13 #3
en knap:

Dim uForm As UserForm
Dim Cl As Control
Private Sub CommandButton1_Click()
    For Each Cl In uForm.Controls
        If TypeName(Cl) = "CheckBox" Then Cl.Value = Not Cl.Value 'ved klik sættes/fjernes flueben
    Next Cl
End Sub
Private Sub UserForm_Initialize()
    Set uForm = UserForm1
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester