David megkérdezi:
Sziasztok, meg kell terveznem egy projektet, és egy kicsit elakadtam, ami egy makrót tervez, hogy a felhasználó számot adhasson meg, de az a probléma, amellyel szembesülök, egy olyan érvényesítés beállítása, amely csak 1-10 közötti számokat fogad el. Megpróbáltam érvényesítést állítani az adott cellákon, de az inputbox problémája az, hogy bár a cellát úgy állítottuk be, hogy csak egy számot fogadjon el, bármit elfogadna. Kérem, segítsen, mert nem tudom folytatni a projektemet, amíg ez nem készült el.
Ez a makró továbbra is 1 és 10 közötti számot kér a felhasználótól, vagy leáll, ha lemond.
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
