David întreabă:
Bună, trebuie să proiectez un proiect și sunt blocat pe un pic care proiectează o macro pentru a permite utilizatorului să introducă un număr, dar problema cu care mă confrunt este setarea unei validări care ar accepta doar numere între 1-10. Am încercat să setez o validare pe celulele specifice, dar problema cu cutia de intrare este că, chiar dacă celula a fost setată să accepte doar un număr, ar accepta orice. Vă puteți ajuta, vă rog, pentru că nu pot continua cu proiectul meu până nu se termină acest lucru.
Această macrocomandă va cere în continuare utilizatorului un număr între 1 și 10 sau se va opri dacă anulează.
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
