David soruyor:
Merhaba Bir proje tasarlamam gerekiyor ve kullanıcının bir sayı girmesine izin veren bir makro tasarlayan bir bit üzerinde takılı kaldım, ancak karşılaştığım sorun yalnızca 1-10 arasındaki sayıları kabul eden bir doğrulama ayarlamak. Belirli hücrelerde bir doğrulama ayarlamaya çalıştım, ancak giriş kutusuyla ilgili sorun, hücre yalnızca bir sayıyı kabul edecek şekilde ayarlanmış olsa bile herhangi bir şeyi kabul edeceğidir. Lütfen yardım eder misiniz, çünkü bu tamamlanana kadar projeme gerçekten devam edemem.
Bu makro, kullanıcıdan 1 ile 10 arasında bir sayı istemeye devam edecek veya kullanıcı iptal ederse duracaktır.
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
