David fragt:
Hallo, ich muss ein Projekt entwerfen und ich bleibe bei einem Bit, das ein Makro entwirft, damit der Benutzer eine Zahl eingeben kann, aber das Problem, mit dem ich konfrontiert bin, besteht darin, eine Validierung festzulegen, die nur Zahlen zwischen 1 und 10 akzeptiert. Ich habe versucht, eine Validierung für die spezifischen Zellen festzulegen, aber das Problem mit dem Eingabefeld besteht darin, dass selbst wenn die Zelle so eingestellt ist, dass sie nur eine Nummer akzeptiert, alles akzeptiert wird. Können Sie mir bitte helfen, da ich mein Projekt erst dann wirklich fortsetzen kann, wenn dies erledigt ist?
Dieses Makro fragt den Benutzer weiterhin nach einer Zahl zwischen 1 und 10 oder stoppt, wenn er abbricht.
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
