< návrat zpět

MS Excel

Téma: Makra - checkbox rss

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

stop Uzamčeno - nelze přidávat nové příspěvky.
Palooo(21.8.2013 10:21)#014790
avatar
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
avatar
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
avatar
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
icon Poki(21.8.2013 13:08)#014794
Poki
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
avatar
Díky moc! Funguje to. ;-) jste dobří.. :-)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje