Pracovní listFunkce | Aktualizace obrazovky | DisplayAlerts | Výpočet
Matkou všech objektů je samotný Excel. Říkáme tomu Objekt aplikace. Objekt aplikace poskytuje přístup k mnoha možnostem souvisejícím s aplikací Excel.
Funkce pracovního listu
Vlastnost WorksheetFunction můžete použít v Excel VBA pro přístup k funkcím Excelu.
1. Například umístěte příkazové tlačítko na list a přidejte následující řádek kódu:
Rozsah ("A3"). Hodnota = Application.WorksheetFunction.Average (rozsah ("A1: A2"))
Když kliknete na příkazové tlačítko na listu, Excel VBA vypočítá průměr hodnot v buňce A1 a buňce A2 a výsledek umístí do buňky A3.
Poznámka: místo Application.WorksheetFunction.Average jednoduše použijte WorksheetFunction.Average. Když se podíváte na lištu vzorců, uvidíte, že samotný vzorec není vložen do buňky A3. Chcete -li do buňky A3 vložit samotný vzorec, použijte následující řádek kódu:
Rozsah ("A3"). Hodnota = "= PRŮMĚR (A1: A2)"
Aktualizace obrazovky
Někdy může být užitečné zakázat aktualizaci obrazovky (aby se zabránilo blikání) při provádění kódu. Výsledkem bude, že váš kód poběží rychleji.
1. Umístěte například příkazové tlačítko na list a přidejte následující řádky kódu:
Dim i As Integer
Pro i = 1 až 10 000
Rozsah („A1“). Hodnota = i
Příště já
Když kliknete na příkazové tlačítko na listu, Excel VBA zobrazí každou hodnotu malý zlomek sekundy, což může nějakou dobu trvat.
2. Chcete -li proces urychlit, aktualizujte kód následujícím způsobem.
Dim i As Integer
Application.ScreenUpdating = False
Pro i = 1 až 10 000
Rozsah („A1“). Hodnota = i
Příště já
Application.ScreenUpdating = True
V důsledku toho váš kód poběží mnohem rychleji a uvidíte pouze konečný výsledek (10 000).
DisplayAlerts
Můžete přikázat aplikaci Excel VBA, aby při provádění kódu nezobrazovala upozornění.
1. Například umístěte příkazové tlačítko na list a přidejte následující řádek kódu:
Aktivní pracovní kniha. Zavřít
Když kliknete na příkazové tlačítko na listu, Excel VBA zavře váš soubor Excel a požádá vás o uložení provedených změn.
2. Chcete -li instruovat aplikaci Excel VBA, aby nezobrazovala toto upozornění při spouštění kódu, aktualizujte kód následujícím způsobem.
Application.DisplayAlerts = False
ActiveWorkbook.Zavřít
Application.DisplayAlerts = True
Výsledkem je, že aplikace Excel VBA zavře váš soubor aplikace Excel, aniž by vás vyzvala k uložení provedených změn. Veškeré změny jsou ztraceny.
Výpočet
Ve výchozím nastavení je výpočet nastaven na automatický. V důsledku toho Excel automaticky přepočítá sešit pokaždé, když se změní hodnota ovlivňující vzorec. Pokud váš sešit obsahuje mnoho složitých vzorců, můžete makro zrychlit nastavením výpočtu na ruční.
1. Například umístěte příkazové tlačítko na list a přidejte následující řádek kódu:
Application.Calculation = xlCalculationManual
Když kliknete na příkazové tlačítko na listu, Excel VBA nastaví výpočet na ruční.
2. Můžete to ověřit kliknutím na Soubor, Možnosti, Vzorce.
3. Nyní, když změníte hodnotu buňky A1, nebude hodnota buňky B1 přepočítána.
Sešit můžete přepočítat ručně stisknutím klávesy F9.
4. Ve většině situací nastavíte výpočet na automatický opět na konci kódu. Chcete -li toho dosáhnout, jednoduše přidejte následující řádek kódu.
Application.Calculation = xlCalculationAutomatic
