Дейвид пита:
Здравейте, трябва да проектирам проект и аз остана на малко, което проектира макрос, за да позволи на потребителя да въведе число, но проблемът, с който се сблъсквам, е задаването на проверка, която приема само числа между 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