Stránka 1 z 1

Excel VBA - IF Error/screenupdating/dialogové okno

Napsal: 02 zář 2010 13:27
od Branscombe
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 ...

Re: Excel VBA - IF Error/screenupdating/dialogové okno  Vyřešeno

Napsal: 02 zář 2010 14:15
od navstevnik
ad 1. projdi si http://www.cpearson.com/excel/ErrorHandling.htm (preklad zajisti Google), kde najdes potrebne postupy, priklad:

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.

Re: Excel VBA - IF Error/screenupdating/dialogové okno

Napsal: 02 zář 2010 14:18
od Branscombe
Super, díky moc ...