David se ptá:
Ahoj, musím navrhnout projekt a já se trochu zasekl, což je návrh makra, které by uživateli umožnilo zadat číslo, ale problém, kterému čelím, je nastavení validace, která by přijímala pouze čísla mezi 1-10. Snažil jsem se nastavit ověření na konkrétních buňkách, ale problém se vstupním boxem je, že i když byla buňka nastavena tak, aby přijímala pouze číslo, přijala by cokoli. Můžete mi prosím pomoci, protože nemohu ve svém projektu pokračovat, dokud to nebude hotové.
Toto makro bude i nadále žádat uživatele o číslo mezi 1 a 10 nebo se zastaví, pokud zruší.
Sub Test() Dim MyAns As Variant Ask: MyAns = Application.InputBox("Enter a number between 1 and 10", Type:=1) If MyAns = False Then Exit Sub If MyAns 10 Then GoTo Ask: MsgBox MyAns, vbInformation, "Good Number" End Sub