• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Formulář

Zaslal/a TEDO 5.6.2012 17:02

Ahoj,
zkouším si udělat formulář s checkboxy a zajímalo by mě, jestli jdou naplnit nějak hromadně. Zatím jsem zjistil pouze toto, ale musím každý box vypsat samostatně. Nešlo by to nějakým cyklem?

Private Sub UserForm_Initialize()
Me.CheckBox1.Caption = List1.Cells(2, 1)
Me.CheckBox2.Caption = List1.Cells(3, 1)
Me.CheckBox3.Caption = List1.Cells(4, 1)
Me.CheckBox4.Caption = List1.Cells(5, 1)
Me.CheckBox5.Caption = List1.Cells(6, 1)
Me.CheckBox6.Caption = List1.Cells(7, 1)
Me.CheckBox7.Caption = List1.Cells(8, 1)
Me.CheckBox8.Caption = List1.Cells(9, 1)
Me.CheckBox9.Caption = List1.Cells(10, 1)
Me.CheckBox10.Caption = List1.Cells(11, 1)
End Sub

Uzamčeno - nelze přidávat nové příspěvky.

---

Poki(5.6.2012 17:32)#008749

Jo, jde to, nejak takhle (nebo priloha)
Private Sub UserForm_Initialize()
Dim i As Long

i = 2
For Each prvek In Me.Controls
If TypeName(prvek) = "CheckBox" Then
prvek.Caption = List1.Cells(i, 1)
i = i + 1
End If
Next prvek
End Sub

Příloha: 8749_checkboxy.zip (14kB, staženo 26x)

citovat

TEDO(5.6.2012 20:27)#008753

děkujicitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse