[VBA] Δημιουργία κωδικών με βάση το όνομα

[sotisanis]

Παιδια καλησπερα και παλι.θα ηθελα την πολυτιμη βοηθεια σας. Θελω να κανω το εξης: σε μια στηλη να δημιουργω 6ψηφιους κωδικους με βαση τα ονοματα μια αλλης στηλης.πχ να μετατρεπει καποια γραμματα σε αριθμους.

Εχει κανεις καμοια ιδεα???

[ChrisGT7]

Καλημέρα!

Ποιος είναι ο επιθυμητός αλγόριθμος που χρειάζεσαι για του κωδικούς; Δηλαδή ποια είναι η αντιστοίχιση γραμμάτων-αριθμών, π.χ. Α=1, Β=2, Γ=3 κ.ο.κ.

Αν το όνομα στο Α1 είναι ΧΡΗΣΤΟΣ, τότε ο κωδικός στο Β1 πρέπει να είναι οπωσδήποτε 6φηφιος;

Θα διευκόλυνε πολύ αν έδινες περισσότερες πληροφορίες για τη δημιουργία των κωδικών.

[sotisanis]

ναι οπως το ειπες.να διαβαζει τα πρωτα εξι γραμματα και να τα μετατρεπει σε κωδικους

[ChrisGT7]

Σε τι είδος κωδικού; Αριθμητικό κωδικό; Κι αν ναι, τότε ποια θα είναι αντιστοιχία των αριθμών;

Μερικοί συνδιασμοί κωδικών είναι:
1) Α=1, Β=2...., Ω=24
2) Ο συνδυασμός του τηλεφώνου, δηλαδή Α-Β-Γ=1, όπως όταν γράφεις ένα μήνυμα στο κινητό.

Επίσης, άλλη αρίθμηση θες για τους λατινικούς κι άλλη για τους ελληνικούς χαρακτήρες;

[sotisanis]

το πρωτο θελω δηλαδη Α=1 Β=2 και αντιστοιχα και οι λατινικοι κωδικοι. το ενα θα ειναι για να δημιουργησω βοηθητικους κωδικους προιοντων και μετα θα το χρησιμοποιησω για να φτιαξω barcode

[ChrisGT7]

Δεν ξέρω κατά πόσο θα σε βολέψει το σκεπτικό μου για την κωδικοποίηση, αλλά λειτουργεί ως εξής:

1) Ελέγχει τα κελιά της στήλης Α. Αν οι χαρακτήρες του ονόματος είναι λιγότεροι από 6, τότε δεν υπάρχει κωδικοποίηση.
2) Αν οι χαρακτήρες είναι περισσότεροι ή ίσοι από 6, τότε κωδικοποιεί μόνο τους 6 πρώτους:

Λατινικοί Χαρακτήρες "A" - "I" και "a" - "i" => 1 - 9
Λατινικοί Χαρακτήρες "J" - "R" και "j" - "r" => 1 - 9
Λατινικοί Χαρακτήρες "S" - "Z" και "s" - "z" => 1 - 8

Ελληνικοί Χαρακτήρες "Α" - "Ι" και "α" - "ι" => 1 - 9
Ελληνικοί Χαρακτήρες "Κ" - "Ρ" και "κ" - "ρ" => 1 - 8
Ελληνικοί Χαρακτήρες "Σ" - "Ω" και "σ" - "ω" => 1 - 7

Οποιοσδήποτε άλλος χαρακτήρας => 0

Ο αριθμητικός κωδικός θα εμφανιστεί στη στήλη Β σε μορφή κειμένου για να μη χάσεις τα μηδενικά σε περίπτωση που είναι το αρχικό ψηφίο.

[sotisanis]

ΘΕΟΣΣΣ!!! Δουλευει.αυτο ακριβως ηθελα!!!!!!!μετα θα το αλλαξω για να μου βγαζει περισσοτερα νουμερα για να φτιαξω barcode