Jak začít programovat makra ve VBA pro Excel – Pop-up okno

Last updated on 13.2.2021

V prvním článku „Jak začít programovat makra ve VBA pro Excel – Komentáře“ jsme si ukázali jak si kód doplňovat o komentáře a také proč byste to měli dělat. Pro připomenutí, je to proto, aby jste se ve vlastním kódu sami vyznali, až se jej po půl roce rozhodnete upravit.

V tomto článku se chci podívat na to, co se Vám bude hodit při psaní VBA skriptů a jeho ladění. Každé makro v Excelu doporučuji pomocí debug funkcí pořádně odladit a otestovat. Skvělé Vám toto ladění VBA doplní vyskakovací okna, tedy příkaz msgbox.

 

Jak na vyskakovací okna ve VBA Excel?

Je to jednoduché. Vše obstarává jednoduchý příkaz:

msgbox

Samozřejmě by to bylo moc jednoduché. Tento zápis sám o sobě nic moc neudělá a Excel na vás vybafne s chybovou hláškou, že argument není volitelný (argument not optional). Komplení syntaxe je na obrázku níže.

Kompletní zápis pro msgbox potom může vypadat následovně

Sub myPopUp()
    
    ' Moje první vyskakovací okno
    MsgBox "Toto je moje první vyskakovací okno ve VBA. :)", vbOKOnly, "Mé pop-up okno"
    
End Sub

nebo

Sub myPopUp()
    
    ' Moje první vyskakovací okno
    MsgBox ("Toto je moje první vyskakovací okno ve VBA.")
    
End Sub

případně

 

Sub myPopUp()

    Dim myResult
    
    ' Moje první vyskakovací okno
    myResult = MsgBox("Toto je moje první vyskakovací okno ve VBA.", vbCritical, "Moje chyba")
    
End Sub

 

Jestliže jste pozorní, určitě jste si všimli, že krom různé podoby zápisu, jsou různé také náhledy na vyskakovací okna (obrázky v textu). Je to z důvodu, že jednou jsem použil vbOkOnly pro VbMsgBoxStyle a v dalším případě jsem použil syntaxi vbCricital. Například vbCritical již více využijete při ošetření chyb ve VBA makrech než při kontrole VBA skriptů.

Jaké druhy vyskakovacích oken můžete použít:

1. vbAbortRetryIgnore
2. vbApplicationModal
3. vbCritical
4. vbDefaultButton1
5. vbDefaultButton2
6. vbDefaultButton3
7. vbDefaultButton4
8. vbExclamation
9. vbInformation
10. vbMsgBoxHelpButton
11. vbMsgBoxRight
12. vbMsgBoxRtlReading
13. vbMsgBoxSetForeground
14. vbOKCancel
15. vbOKOnly
16. vbQuestion
17. vbRetryCancel
18. vbSystemModal
19. vbYesNo
20. vbYesNoCancel

Pokud potřebuje naprogramovat nebo se chcete něco naučit. Kontaktuje mne zde.