InputBox - vstupní dialogový box

Úvodem do InputBox

Potřebujete-li zadat data do Excel pomocí formuláře ve VBA. Můžete vytvořit příslušný formulář. Nebo pro jeden údaj využít InputBox. Slouží pro zadání jedné vstupní informace (číslo, hodnota), která se předá zpracovatelskému programu.

Obsah článku

Pro přehlednost je článek rozdělen na jednotlivé kapitoly:

• Syntaxe InputBox - aneb trocha teorie
  • InputBox
  • Application.InputBox
• Praktické použití
  • InputBox - praktická ukázka použití
  • Application.InputBox - praktická ukázka použití
• Praktické příklady
  • Plocha obdelníků - Příklad 1
  • Plocha obdelníků - Příklad 2
• Sešit ke stažení - zdarma
• Související články

Příklad

Potřebujete vypočíst plochu obdélníku. Pomocí InputBox požádame uživatele o zadání délky strany A a pak o délku strany B. Hodnoty vynásobíme a máme plochu obdélníku.

Poznámka: Vím že výpočet plochy obdélniku se dá provést elegantněji (vynásobím dvě čísla přímo v listu Excelu), ale jde o ukázku použití InputBox.

Syntaxe InputBox - aneb trocha teorie

Popis syntaxe InputBox včetně podrobného popisu jednotlivých parametrů.

InputBox - Syntaxe

InputBox(Zpráva, Titulek_dialogu, Výchozí_hodnota, Posice_X , Posice_Y, Help, context)

• Zpráva - povinné - text zprávy zobrazení v dialogu
• Titulek_dialogu - nepovinné - text v titulku dialogu
• Výchozí_hodnota - nepovinné - pokud je požadavek na výchozí hodnotu
• Posice_X - nepovinné - pozice okna x
• Posice_Y - nepovinné - pozice okna y
• Help - nepovinné - odkaz na soubor s nápovědou
• context - nepovinné - Číslo tématu nápovědy ze souboru nápovědy - musí být zadán Help.

Application.InputBox - Syntaxe

Application.InputBox(Zpráva, Titulek_dialogu, Výchozí_hodnota, Posice_X , Posice_Y, Help, HelpID, Typ)

• Zpráva - povinné - text zprávy zobrazení v dialogu. Maximální délka textu je 1024 znaků. Lze použít konstanty vbCr, vbLf nebo vbCrLf.
• Titulek_dialogu - nepovinné - text v titulku dialogu
• Výchozí_hodnota - nepovinné - pokud je požadavek na výchozí hodnotu
• Výchozí_hodnota - nepovinné - pokud je požadavek na výchozí hodnotu
• Posice_X - nepovinné - pozice okna x
• Posice_Y - nepovinné - pozice okna y
• Help - nepovinné - odkaz na soubor s nápovědou
• HelpID - nepovinné -
• Typ - nepovinné - Typ, typy lze sčítat, např.: 1+2
  • 0 - vzorec
  • 1 - číslo
  • 2- text
  • 4 - logická hodnota
  • 8 - buŇka reference, oblast objekt
  • 16 - chybová hodnota
  • 64 - pole

InputBox - praktická ukázka použití

Základní zadání:

MojeHodnota = InputBox("Zádej hodnotu:")

Kompletní zadání

Ukázka jak je kompletně vyplněno, včetně popisu okna a předpřipravené hodnoty

MojeHodnota = InputBox("Zádej hodnotu:", "Název okna", "Předpřipravená hodnota")

Pokud bude předpřipravené číslo 5:

MojeHodnota = InputBox("Zádej hodnotu:", "Název okna", 5)

Application.InputBox - TYP - praktická ukázka použití

• 0 - vzorec
• 1 - číslo
• 2- text
• 4 - logická hodnota
• 8 - buňka reference, oblast objekt
• 16 - chybová hodnota
• 64 - pole

Application.InputBox - TYP 0 - vzorec

varInput = Application.InputBox("Zadej vzorec", Type:=0)

Application.InputBox - TYP 1 - číslo

Zadávání a kontrola čísel:

varInput = Application.InputBox("Zadej číslo", Type:=1) MsgBox (varInput)

Chybová zpráva pokud se nezadá číslo.

Application.InputBox - TYP 2 - text

Zadání textu

varInput = Application.InputBox("Zadej Text", Type:=2)

Application.InputBox - TYP 4 - číslo

Zadání čísla

varInput = Application.InputBox("Zadej Číslo", Type:=4)

Application.InputBox - TYP 8 - buňka reference, oblast objekt

Jak vybírat oblast například pro kopii

Set MojeOblast = Application.InputBox(Prompt:="Vyber Oblast", Title:="Oblasti typ 8", Type:=8) Application.Goto (UserRange) Selection.Copy

Application.InputBox - TYP 16 - chybová hodnota

v přípravě

Application.InputBox - TYP 64 - pole

v přípravě

Application.InputBox - TYP - kombinace

Když je potřeba vybrat typ

Dim varInput As Variant Dim myChoice As Integer myChoice = Application.InputBox("Vyber typ zadání:" & vbCrLf _ & "2. Text" & vbCrLf _ & "8. Obast", Type:=1) Select Case myChoice Case Is = 2 varInput = Application.InputBox("Enter Text", Type:=2) Case Is = 8 varInput = Application.InputBox("Výběr oblasti:", Type:=8) End Select

Plocha obdelníků - Příklad 1

Potřebujeme vypočítat obsah obdelníku, kdy uživatel pomocí dialogového okna zadá stranu a a stanu b

Private Sub CommandButton1_Click() ZpravaA = "Zadejte stranu A (m)" ZpravaB = "Zadejte stranu B (m)" Titulek_dialogu = "Vstupní dialog pro vypočet obdelníku" Vychozi_hodnota = 0 Posice_X = 100 Posice_Y = 200 StranaA = InputBox(ZpravaA, Titulek_dialogu, Vychozi_hodnota, Posice_X, Posice_Y) StranaB = InputBox(ZpravaB, Titulek_dialogu, Vychozi_hodnota, Posice_X, Posice_Y) Plocha = StranaA * StranaB MsgBox (Plocha) End Sub

Plocha obdelníků - Příklad 2

Druhý příklad na výpočet obsahu obdelníků.

Private Sub CommandButton1_Click() ZpravaA = "Zadejte stranu A (m)" ZpravaB = "Zadejte stranu B (m)" Titulek_dialogu = "Vstupní dialog pro vypočet obdelníku" Vychozi_hodnota = 0 Posice_X = 100 Posice_Y = 200 StranaA = Application.InputBox(ZpravaA, Titulek_dialogu, Vychozi_hodnota, Posice_X, Posice_Y, Type:=1) StranaB = Application.InputBox(ZpravaB, Titulek_dialogu, Vychozi_hodnota, Posice_X, Posice_Y, Type:=1) Plocha = StranaA * StranaB MsgBox (Plocha) End Sub

Ke stažení

Ke stažení zdarma: InputBox - Praktický příklad . Vyzkoušejte si hotové formuláře prakticky.

Další související články:

Další články týkající se formulářů:

• MsgBox - dialogové okno - VBA Excel
• Design formulářů
• Ovládací prvky - formuláře ve VBA

Závěr

Využívate InputBox, nebo řešíte tvorbou vlastních formulářů?

Článek byl aktualizován: 19.09.2020 11:06

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.