Stránka 1 z 1
Excel- skryté listy
Napsal: 05 črc 2009 20:22
od Dieesels
Dobrý den,
potřeboval bych odkrýt skryté listy. Nejsou skryté klasickým způsobem z kontextové nabídky Skryt, ale pomocí makra:
Kód: Vybrat vše
Private Sub Worksheet_Activate()
ActiveSheet.Visible = False
End Sub
Když to změním na True, tak se nic neděje.
Jak na to?...
Re: Excel- skryté listy
Napsal: 05 črc 2009 22:24
od X
Můžeš sem upnout sešit nebo aspoň testovací, kde to nejde?
Re: Excel- skryté listy
Napsal: 05 črc 2009 23:22
od mmmartin
Pokud je ti jedno, jakou cestou list odkryješ, můžeš jít cestou přes menu, nemusíš dělat makro. A v makru pravděpodobně nebude stačit zaměnit False za True. Pokud list skrýváš, skryje se ti ten aktuálně zobrazený, když zadáváš zobrazení listu přes menu, ptá se tě to, který list se má zobrazit. A totéž mu musíš říct i v makru.
Kód: Vybrat vše
Sub Makro1()
'
' Makro1 Makro
'Sheets("List1").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Sub Makro2()
'Makro2 Makro
'Sheets("List2").Select
Sheets("List1").Visible = True
End Sub
Re: Excel- skryté listy
Napsal: 06 črc 2009 00:43
od mike007
Tady máš makro pro odkrytí všech schovaných listů. Jsem po pěti pivech a dvou cuba libre, tak snad to bude ok
Sub odkryt_listy()
For Each List In Worksheets
List_jmeno = List.Name
Sheets(List_jmeno).Visible = True
Next List
End Sub
Re: Excel- skryté listy
Napsal: 06 črc 2009 08:15
od Dieesels
Děkuji za pomoc...
