< návrat zpět

MS Excel

Téma: Skrývání a zobrazení řádků s podmínkou rss

Zaslal/a Marekkoc 14.10.2015 8:56

Ahoj, mám tabulku A1:J11, jejíž všechny řádky, když kliknu na tlačítko např. Ulož do pdf, potřebuju skrýt a zároveň, když kliknu na jiné tlačítko např. Ulož do doc tak ji zase zobrazit. Diky za pomoc. MArek

Zaslat odpověď >
elninoslov(14.10.2015 9:18)#027419
elninoslov
Tak ?
Příloha: rar27419_skryt-riadky.rar (17kB, staženo 28x)
citovat
Marekkoc(14.10.2015 9:32)#027420
avatar
Jo super funguje to, a šel by i takhle skrýt a zobrazit obrázek ?citovat
xlnc(14.10.2015 9:49)#027422
avatar
Otázka zní, proč si to nezkusíte...
Ve výchozím stavu se grafické objekty budou skrývat. Jinak to záleží na jejich vlastnosti. Pro dané účely musí mít nastaveno Přesun objektu a změna velikosti (pravé tlačítko myši, Velikost a vlastnosti, položka Vlastnosti).citovat
Marekkoc(14.10.2015 10:23)#027425
avatar
Jasně mám to:

Dim sObject As Shape
For Each sObject In ActiveSheet.Shapes
sObject.Visible = False
Next[/code

Mám těch objektů více a chci jen jeden skrýt a zobrazit.
Marekkoc(14.10.2015 10:42)#027426
avatar
Vyřešeno, díky všem az pomoc. MArek:

5ešení:
ActiveSheet.Shapes("Picture 1").Visible = Truecitovat
elninoslov(14.10.2015 12:43)#027433
elninoslov
Radšej si ten obrázok premenujte. Pri spustení kódu na inej jazykovej verzii Excelu to rado robí problémy ak sa ponechá predvolený názov. Napr. takto:
Sub Rename()
Dim old As String
On Error GoTo CHYBA
old = Selection.ShapeRange.Name
Selection.ShapeRange.Name = "pic1"
MsgBox ("Premenovaný objekt " & old & " na " & Selection.ShapeRange.Name)
Exit Sub
CHYBA:
MsgBox ("Chyba !")
End Subcitovat

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