Дэвид спрашивает:
Привет, мне нужно разработать проект, и я немного застрял в разработке макроса, позволяющего пользователю вводить число, но проблема, с которой я сталкиваюсь, заключается в установке проверки, которая будет принимать только числа от 1 до 10. Я попытался установить проверку для конкретных ячеек, но проблема с полем ввода заключается в том, что даже если ячейка была настроена на прием только числа, она могла бы принимать что угодно. Не могли бы вы помочь, потому что я не могу продолжать свой проект, пока это не будет сделано.
Этот макрос будет продолжать запрашивать у пользователя число от 1 до 10 или остановится, если он / она отменит.
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
