David pita:
Bok, moram dizajnirati projekt i zapeo sam na dijelu koji dizajnira makronaredbu kako bi omogućio korisniku unos broja, ali problem s kojim se suočavam je postavljanje provjere valjanosti koja prihvaća samo brojeve između 1-10. Pokušao sam postaviti provjeru valjanosti za određene ćelije, ali problem s ulaznim okvirom je taj da će čak i ako je ćelija postavljena da prihvaća samo broj prihvatiti bilo što. Možete li molim vas pomoći jer ne mogu nastaviti sa svojim projektom dok se to ne završi.
Ova će makronaredba i dalje tražiti od korisnika broj između 1 i 10 ili će se zaustaviti ako otkaže.
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
