Makro pro výpočet obsahu obdélníka

Příklad

Potřebuji vytvořit makro, které bude na základě délky dvou stran počítat obsah obdélníka.
Uživatel tedy zadá stranu "a", stranu "b" a aplikace mu oznámí obsah čtverce (násobek dvou údajů). Je zřejmé, že toto by se dalo řešit mnohem efektivněji - jde ale o ukázku prvků makra.

Návod

Makro vypadá takto:

Sub obsah_obdelnika()
prvni_strana = Application.InputBox("Zadejte jednu stranu obdelnika", "Zadejte číslo")
druha_strana = Application.InputBox("Zadejte druhou stranu obdelnika", "Zadejte číslo")
obsah = prvni_strana * druha_strana
MsgBox (obsah)
End Sub

Vysvětlení makra:

• Sub obsah_obdelnika()
• Začátek makra, které se jmenuje "obdelnik"
• prvni_strana = Application.InputBox("Zadejte jednu stranu obdelnika", "Zadejte číslo")
• Zobrazím dialog s titulkem "Zadejte číslo" a textem "Zadejte jednu stranu obdelnika"). To, co uživatel zadá, se načte do proměnné "prvni_strana".
• druha_strana = Application.InputBox("Zadejte druhou stranu obdelnika", "Zadejte číslo")
• Obdoba předchozího
• obsah = prvni_strana * druha_strana
• Součin proměnných do proměnné "obsah".
• MsgBox (obsah)
• Zobrazení zprávy s obsahem čtverce
• End Sub
• Konec makra