David vpraša:
Živjo. Moram oblikovati projekt in zataknil sem se pri bitku, ki načrtuje makro, da uporabniku omogoči vnos številke, vendar je težava, s katero se srečujem, nastavitev validacije, ki bi sprejemala samo številke med 1 in 10. Poskušal sem nastaviti preverjanje veljavnosti za določene celice, vendar je težava z vnosnim poljem ta, da tudi če je celica nastavljena tako, da sprejema samo številko, bi sprejela kar koli. Lahko prosim za pomoč, ker ne morem nadaljevati s svojim projektom, dokler tega ne končam.
Ta makro bo še naprej od uporabnika zahteval številko med 1 in 10 ali se bo ustavil, če bo preklical.
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
