Jak provést dílčí proceduru VBA v aplikaci Excel 2016

Musíte vědět, jak spouštět procedury VBA Sub v aplikaci Excel 2016. To je důležité, protože procedura Sub je bezcenná, pokud nevíte, jak ji spustit. Mimochodem, provedení procedury Sub znamená totéž jako spuštění nebo volání procedury Sub. Můžete použít jakoukoli terminologii, kterou chcete.

Sub VBA Sub můžete spustit mnoha způsoby; to je jeden z důvodů, proč můžete s procedurami Sub dělat tolik užitečných věcí. Zde je vyčerpávající seznam způsobů, jak provést proceduru Sub:

• Pomocí příkazu Spustit → Spustit Sub/UserForm (ve VBE). Excel provede proceduru Sub, ve které je umístěn kurzor. Tento příkaz nabídky má dvě alternativy: klávesu F5 a tlačítko Run Sub/UserForm na standardním panelu nástrojů ve VBE. Tyto metody nefungují, pokud procedura vyžaduje jeden nebo více argumentů.

• Z dialogového okna Makro aplikace Excel. Toto pole otevřete výběrem Vývojář → Kód → Makra nebo výběrem Zobrazit → Makra → Makra. Nebo přeskočte pás karet a stiskněte klávesovou zkratku Alt+F8. Když se zobrazí dialogové okno Makro, vyberte požadovanou proceduru Sub a klikněte na Spustit. Toto dialogové okno uvádí pouze procedury, které nevyžadují argument.

• Pomocí klávesy Ctrl+klávesa (nebo Ctrl+Shift+klávesa) přiřazené k proceduře Sub (za předpokladu, že jste nějakou přiřadili).

• Klepnutím na tlačítko nebo obrazec na listu. K tlačítku nebo tvaru musí být přiřazena procedura Sub – což je velmi snadné.

• Z jiné procedury Sub, kterou píšete.

• Z tlačítka, které jste přidali na panel nástrojů Rychlý přístup.

• Z vlastní položky, kterou jste přidali na pás karet.

• Když dojde k události. Tyto události zahrnují otevření sešitu, zavření sešitu, uložení sešitu, provedení změny buňky, aktivaci listu a další věci.

• Z okna Immediate ve VBE. Stačí zadat název procedury Sub a stisknout Enter.

Nyní musíte zadat proceduru Sub do modulu VBA:

Začněte s novým sešitem.

Stisknutím Alt+F11 aktivujte VBE.

Vyberte sešit v okně Projekt.

Zvolte Vložit → Modul pro vložení nového modulu.

Do modulu zadejte následující:

Sub ShowCubeRoot()
  Num = InputBox(“Zadejte kladné číslo”)
  MsgBox Num ^ (1/3) & "je odmocnina."
End Sub