Девід запитує:
Привіт, я повинен розробити проект, і я застряг на біті, який розробляє макрос, щоб дозволити користувачеві ввести число, але проблема, з якою я стикаюся, полягає у встановленні перевірки, яка приймає лише цифри від 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
