Ahoj,
Prosím o pomoc s jednodušením makra, jehož účelem je pomocí ovládacích prvků formuláře skrývat a odkrývat zvolené listy.
Použil jsem tento kod, ale budu potřebovat asi 15 listů a myslím si, že by šlo kod zjednodušit, abych ho nemusel psát 15x.
Sub Zobrazeni_skryteho_listu()
If Range("F2").Value = True Then
Sheets("List1").Select
Sheets("List2").Visible = True
Else
Sheets("List2").Select
ActiveWindow.SelectedSheets.Visible = False
End If
If Range("F5").Value = True Then
Sheets("List1").Select
Sheets("List3").Visible = True
Else
Sheets("List3").Select
ActiveWindow.SelectedSheets.Visible = False
End If
Sheets("List1").Activate
Application.ScreenUpdating = True
End Sub
Předem všem díky.
Petr
Zjednodušení makra Vyřešeno
Zjednodušení makra
- Přílohy
-
- VBA - Zobrazení skrytého listu.xlsm
- (20.45 KiB) Staženo 24 x
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Zjednodušení makra
Ahoj,
použij toto makro, ale pozor, zaškrtávací políčka (checkboxy) musí být pojmenovány jako listy.
použij toto makro, ale pozor, zaškrtávací políčka (checkboxy) musí být pojmenovány jako listy.
Kód: Vybrat vše
Sub Zobrazeni_skryteho_listu()
'checkbox musi byt pojmenovat jak list
With ActiveSheet
'xlOff = odskrtnuto, xlOn = zaskrtnuto
If .CheckBoxes(Application.Caller).Value = xlOff Then
'zobrazit list
Sheets(.CheckBoxes(Application.Caller).Characters.Text).Visible = True
Else
'skryt list
Sheets(.CheckBoxes(Application.Caller).Characters.Text).Visible = False
End If
End With 'activesheet
End Sub
Re: Zjednodušení makra Vyřešeno
Pecka, super. Moc díky.
Petr
Petr
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 413
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů