< návrat zpět

MS Excel


Téma: Makra - checkbox rss

Zaslal/a 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.

#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
#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
#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 #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
#014804
avatar
Díky moc! Funguje to. ;-) jste dobří.. :-)citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09