David sa pýta:
Ahoj, musím navrhnúť projekt a trochu sa zasekávam, keď navrhujem makro, ktoré umožní používateľovi zadať číslo, ale problémom, s ktorým sa stretávam, je nastavenie overenia, ktoré by akceptovalo iba čísla medzi 1 až 10. Snažil som sa nastaviť overenie na konkrétnych bunkách, ale problém so vstupným boxom je, že aj keď bola bunka nastavená tak, aby prijímala iba číslo, akceptovala by čokoľvek. Môžete mi pomôcť, pretože nemôžem pokračovať v mojom projekte, kým to nebude hotové.
Toto makro bude naďalej požadovať od používateľa číslo od 1 do 10 alebo sa zastaví, ak zruší akciu.
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
