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

MS Excel

Téma: Makra - checkbox

Zaslal/a bim.jim 21.8.2013 9:43

Zdravím, potřeboval bych pomoct s vytvořením makra na tlačítko checkbox5, které už mám vytvořené (za Vaší pomocí tohoto webu), kde při zapnutí tlačítka checkbox skrývám řádky - a potřeboval bych také OBRÁZEK nadefinovat do tohoto tlačítka spolu s řádky.. DĚKUJI

Private Sub CheckBox5_Click()

'Skrýt řádky
If CheckBox5.Value = True Then

Rows("236").EntireRow.Hidden = True
Rows("227:230").EntireRow.Hidden = True

End
End If

'Zobrazit řádky
If CheckBox5.Value = False Then

Rows("236").EntireRow.Hidden = False
Rows("227:230").EntireRow.Hidden = False

End
End If
End Sub

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

---

Palooo(21.8.2013 10:21)#014790

mas tam end takze k druhemu IF-u sa makro nedostane

napis to takto:

If CheckBox5.Value = True Then
Rows("236").EntireRow.Hidden = True
Rows("227:230").EntireRow.Hidden = True
End
else
Rows("236").EntireRow.Hidden = False
Rows("227:230").EntireRow.Hidden = False
End
End If

musi tam byt to end? :)
a co presne chces robit s obrazkom?citovat

bim.jim(21.8.2013 11:45)#014792

tohle co mam mi funguje na skrytí řádků (236, 227-230). ale potrebuju spolecne s rádky kdyz kliknu na checkbox skryt i obrazek ktery mam vlozený v excelu... tedy nejak nadefinovat k tomuto checkboxu obrazek aby ho skryl...citovat

Palooo(21.8.2013 13:03)#014793

If CheckBox5.Value = True Then
Rows("236").EntireRow.Hidden = True
Rows("227:230").EntireRow.Hidden = True
ActiveSheet.Shapes.Range(Array("Picture 1")).Visible = True
else
Rows("236").EntireRow.Hidden = False
Rows("227:230").EntireRow.Hidden = False
ActiveSheet.Shapes.Range(Array("Picture 1")).Visible = False
End If

samozrejme ten tvoj picture sa moze inak volat ... zaznamenaj si makro s obrazkom a zober si odneho nazovcitovat

Poki(21.8.2013 13:08)#014794

To samozrejme jde, jen musite znat jmeno (nebo index) toho obrazku - jmeno bude asi lepsi.

Pokud na nej kliknete v listu, tak se vlevo od radku vzorcu objevi jeho jmeno, napr. "Obrázek 4" - ve VBA to pak musi byt anglicky.

takze skryti obrazku provedete takto:
ActiveSheet.Shapes("Picture 4").Visible = False
a pro "odkryti" obrazku:
ActiveSheet.Shapes("Picture 4").Visible = Truecitovat

bim.jim(22.8.2013 7:22)#014804

Díky moc! Funguje to. ;-) jste dobří.. :-)citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse