Makro – práce s proměnnými

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