Frågar David:
Hej, jag måste utforma ett projekt och jag håller fast vid en bit som utformar ett makro så att användaren kan mata in ett nummer, men problemet jag står inför är att ställa in en validering som bara accepterar siffror mellan 1-10. Jag försökte ställa in en validering på de specifika cellerna men problemet med inmatningslådan är att även om cellen har ställts in för att endast acceptera ett nummer skulle den acceptera vad som helst. Kan du snälla hjälpa för jag kan inte riktigt fortsätta med mitt projekt förrän detta är klart.
Detta makro fortsätter att be användaren om ett nummer mellan 1 och 10 eller kommer att sluta om han / hon avbryter.
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
