Αλφαριθμητικό

[Ms-Office-Development Team]

ΕΔΩ ΕΧΟΥΜΕ ΕΙΣΑΓΩΓΗ ΕΝΟΣ ΑΛΦΑΡΙΘΜΗΤΙΚΟΥ ΜΕ ΠΕΡΙΟΡΙΣΜΟΥΣ ΤΑ ΕΛΛΗΝΙΚΑ ΚΑΙ ΑΛΛΕΣ ΑΥΤΟΜΑΤΕΣ ΑΛΛΑΓΕΣ
ΖΗΤΟΥΜΕ το πρώτο γράμμα να είναι μόνο ελληνικό

Λοιπόν για τον εντοπισμό του Ελληνικού αλφάβητου θα χρειαστούμε το KeyPress Event όπου θα βλέπει πιο KeyAscii έχει πληκτρολογηθεί. Τα ελληνικά πχ το α είναι το 945 κωδικός και β το 946 άρα βάζουμε έναν περιορισμό εκεί αλλά μετά στους αριθμούς δεν βάζουμε κανέναν περιορισμό. Όσο για να συμπληρώνει τα υπόλοιπα πεδία με 0 θα πρέπει στο AfterUpdate να μετρά το Len και όταν είναι μικρότερο του 5 να χρησιμοποιούμε την συνάρτηση spaces και replace. Το space θα δημιουργεί κενά και το replace θα αλλάζει τα κενά με το 0.
Μια καλύτερη λύση είναι να δώσουμε σε ένα loop το chr ώστε να δεις καλύτερα την αντιστοιχία των ελληνικών με το Ascii.
Private Sub AsciiKeys()
For i = 128 To 255
Debug.Print "Ο κωδικός : " & i & " είναι το σύμβολο : " & Chr(i)
Next i
End Sub
Το παραπάνω τυπώνει τις τιμές και βλέπουμε ποιος κώδικας είναι το καθένα.