Ο Ντέιβιντ ρωτά:
Γεια πρέπει να σχεδιάσω ένα έργο και έχω κολλήσει λίγο που σχεδιάζει μια μακροεντολή για να επιτρέψει στον χρήστη να εισάγει έναν αριθμό, αλλά το πρόβλημα που αντιμετωπίζω είναι να ορίσω μια επικύρωση που θα δέχεται μόνο αριθμούς μεταξύ 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
