Můžete použít Funkce InputBox v Excel VBA vyzvat uživatele k zadání hodnoty. Umístěte na list příkazové tlačítko a přidejte následující řádky kódu:
1. Nejprve deklarujte proměnnou myValue typu Variant.
Dim myValue As Variant
Poznámka: zde používáme proměnnou typu Variant, protože proměnná varianty může obsahovat jakýkoli typ hodnoty. Tímto způsobem může uživatel zadávat text, čísla atd.
2. Přidejte následující řádek kódu pro zobrazení vstupního pole.
myValue = InputBox ("Dej mi nějaký vstup")
3. Napište hodnotu myValue do buňky A1.
Rozsah („A1“). Hodnota = myValue
Výsledek, když uživatel zadá hodnotu 5 a klikne na tlačítko OK.
4. Funkce InputBox má více volitelných argumentů. Následující řádek kódu ukazuje vstupní pole s názvem zobrazeným v záhlaví a má výchozí hodnotu. Výchozí hodnota bude použita, pokud není zadán žádný jiný vstup.
myValue = InputBox ("Dej mi nějaký vstup", "Ahoj", 1)
Výsledek, když uživatel klikne pouze na tlačítko OK.
Poznámka: Umístěte kurzor na InputBox v editoru jazyka a klikněte na F1 pro pomoc s dalšími volitelnými argumenty.
