Jak bleskově zobrazit malé dialogové okno
Chcete do svého programu VBA zahrnout stručné, interaktivní informace pro uživatele? Nemusíte nutně vytvářet složité dialogové okno (UserForm).
U malých úkolů můžete vyvolat předdefinované okno zprávy pomocí funkce MsgBox (zkratka znamená „Message Box“).
Voláte příkaz v následujícím tvaru:
Návratová hodnota = MsgBox (text okna, typ okna, název okna)
Pomocí parametru Text okna předáváte text, který chcete v okně zobrazit, například text „Tento text se zobrazí v okně zprávy“. Zadejte text do uvozovek.
Parametr typu okna říká Excelu, jak má okno vypadat. K tomu jsou k dispozici předdefinované konstanty. Nejdůležitější konstanty jsou:
vbOKOnly: Zobrazí pouze tlačítko „OK“
vbOKCancel: Zobrazí tlačítka OK a Storno.
vbRetryIgnoreCancel: Zobrazí tlačítka Opakovat, Ignorovat a Zrušit.
Pomocí parametru Název okna předáte text, který se zobrazí v záhlaví okna. Tuto hodnotu také vložte do uvozovek. Příkladem je fráze „Toto je název okna“.
Následující řádek programu ukazuje použití funkce MsgBox na příkladu:
Zobrazit podokno
a = MsgBox („Tento text se zobrazí v okně zprávy“, vbokcancel, „Toto je název okna“)
End Sub
Pokud Excel provede příkaz, zobrazí se okno z následujícího obrázku:
Pomocí dotazu na proměnnou návratové hodnoty můžete v dotazu, které tlačítko uživatel použije k zavření okna, v případě příkladu programu použít proměnnou "a". Možné návratové hodnoty jsou vbOk, vbCancel, vbRetry, vbIgnore pro příslušná tlačítka.