Ahoj, potřeboval bych pomoci s makrem v excelu. Potřebuji mu říct následující:
1. když nastane jakákoliv chyba v makru, skryj list "aa" a ukonči makro
2. Application ScrrenUpdating = False ikdyž makrem otevíraný soubor má v autoopen application screenudpating = True - prostě permanentně zakázána aktualizace obrazovky
3. Nevím proč, ale občas mi vyskočí dialogové okno, zda-li opravdu chci vymazat konttingenční tabulku, tak kdyby mu šlo nějak říct aby toto dialog. okno nevyskakovalo ...
předem moc díky za rady ...
Excel VBA - IF Error/screenupdating/dialogové okno Vyřešeno
- Branscombe
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel VBA - IF Error/screenupdating/dialogové okno Vyřešeno
ad 1. projdi si http://www.cpearson.com/excel/ErrorHandling.htm (preklad zajisti Google), kde najdes potrebne postupy, priklad:
ad 3. v procedure pouzij Application.DisplayAlerts=False pred radkem, kde vznika hlaseni a ukonci za Application.DisplayAlerts=True
ad 2. bez konkretni ukazky tezko rict, kde je zakopany pes, ale krokuj procedury a kontroluj, kde plati zakaz aktualizace obrazovky a kde ne
PS.: a prejdi od prehistorickeho autoopen k procedure Sub Workbook_Open() v modulu sesitu.
Kód: Vybrat vše
Sub tst()
On Error GoTo ErrHandler
' zde je prikaz vyvolavajici chybu
On Error GoTo 0
' dalsi prikazy
Exit Sub
ErrHandler:
Worksheets("name").Visible = False
End Sub
ad 3. v procedure pouzij Application.DisplayAlerts=False pred radkem, kde vznika hlaseni a ukonci za Application.DisplayAlerts=True
ad 2. bez konkretni ukazky tezko rict, kde je zakopany pes, ale krokuj procedury a kontroluj, kde plati zakaz aktualizace obrazovky a kde ne
PS.: a prejdi od prehistorickeho autoopen k procedure Sub Workbook_Open() v modulu sesitu.
Naposledy upravil(a) navstevnik dne 02 zář 2010 14:24, celkem upraveno 1 x.
- Branscombe
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
Re: Excel VBA - IF Error/screenupdating/dialogové okno
Super, díky moc ...
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 4
- 1121
-
od petr22
Zobrazit poslední příspěvek
11 čer 2023 19:32
-
- 8
- 1731
-
od petr22
Zobrazit poslední příspěvek
09 srp 2023 15:25
-
- 5
- 1257
-
od Zivan
Zobrazit poslední příspěvek
04 črc 2023 16:05
-
- 16
- 6844
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 3639
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti