«Α» όπως στον Alpha, «Β» όπως στο Μπράβο, «Γ» όπως στον Τσάρλι. Έχετε ακούσει αυτές τις φράσεις πριν;
Αυτά ονομάζονται Κώδικας Στρατιωτικού Αλφαβήτου (επίσης γνωστός ως κωδικός αλφαβήτου του ΝΑΤΟ). Συχνά χρησιμοποιείται από άτομα (ειδικά τα παιδιά του τηλεφωνικού κέντρου) για να επικοινωνούν το όνομα, τη διεύθυνση ηλεκτρονικού ταχυδρομείου ή τη διεύθυνση του σπιτιού/του γραφείου.
Δημιουργήστε κώδικα στρατιωτικού αλφαβήτου στο Excel
Στην πρώτη μου δουλειά, πήρα ένα έργο όπου έπρεπε να κάνω κρύες κλήσεις για να πάρω πληροφορίες για ιατρικές συσκευές. Δεδομένου ότι συνδεόμασταν με ανθρώπους από όλο τον κόσμο με κάθε είδους τονισμό, ήταν - μερικές φορές - δύσκολο να μοιραστούμε το όνομα και το email μας ή να πάρουμε το δικό τους. Τότε άρχισα να βασίζομαι σε κώδικες στρατιωτικού αλφαβήτου για να επικοινωνώ καθαρά. Έχω δει πολλά παιδιά του τηλεφωνικού κέντρου να το κάνουν αυτό αποτελεσματικά.
Έχοντας αυτό κατά νου, έχω δημιουργήσει ένα Πρότυπο Excel όπου μπορείτε να εισαγάγετε μια συμβολοσειρά κειμένου και θα δημιουργήσει αυτόματα τον κώδικα του Στρατιωτικού Αλφαβήτου για το εισαγόμενο κείμενο.
Κάτι όπως φαίνεται παρακάτω:
Μόλις εισαγάγετε το κείμενο και πατήσετε Enter, θα δημιουργηθεί αυτόματα ο κωδικός στρατιωτικού αλφαβήτου για κάθε αλφάβητο στη συμβολοσειρά κειμένου.
Σημειώστε ότι σε αυτή την περίπτωση, οι αριθμοί και οι ειδικοί χαρακτήρες θα εμφανίζονται ως έχουν. Επίσης, αυτό θα λειτουργούσε με οποιαδήποτε περίπτωση - κάτω ή πάνω.
Δεδομένου ότι αυτό το βιβλίο εργασίας περιέχει μακροεντολή, μόλις το ανοίξετε, ενδέχεται να δείτε μια κίτρινη γραμμή με το κουμπί - Ενεργοποίηση περιεχομένου. Πρέπει να κάνετε κλικ σε αυτό το κουμπί για να λειτουργήσει.
Πώς να δημιουργήσετε αυτό το πρότυπο γεννήτριας κώδικα στρατιωτικού αλφαβήτου
Αυτό το πρότυπο λειτουργεί καθαρά στο μαγικό VBA. Υπάρχουν μερικοί βρόχοι στη διαδικασία συμβάντος Αλλαγή φύλλου εργασίας που απλώς ελέγχουν για κάθε αλφάβητο και φέρνουν την κωδική λέξη για αυτό το αλφάβητο.
Εδώ είναι ο κώδικας VBA που κάνει τη δουλειά:
Private Sub Worksheet_Change (ByVal Target As Range) »δημιουργήθηκε από Sumit Bansal του trumpexcel.com dim alphabetcount As Integer Dim alphabet As String Dim result As String Dim i As Integer Dim TargetColumn As Integer Dim TargetRow As Integer On Error Resume Next TargetColumn = Target. Στήλη TargetRow = Target.Row If TargetColumn = 4 And Cells (TargetRow, TargetColumn) = "" Τότε κελιά (TargetRow, TargetColumn + 1) = "" Exit Sub End If If TargetColumn = 4 Στη συνέχεια alphabetcount = Len (Κελιά (TargetRow, TargetColumn :) alphabet Else result = result & "," & Range ("A2: A27"). Find (alphabet). Offset (0, 1) End If Next i Cells (TargetRow, TargetColumn + 1) = Mid (αποτέλεσμα, 3, Len (αποτέλεσμα) - 4) Τέλος Αν Τέλος Υπο
Εάν θέλετε να αλλάξετε μερικές από αυτές τις κωδικές λέξεις για να ταιριάζουν στο κοινό/περιοχή σας, μπορείτε απλά να τις αλλάξετε στη στήλη Β στο αρχείο λήψης. Ο κώδικας θα επιλέγει αυτόματα τους αλλαγμένους κωδικούς.
Λάβετε υπόψη ότι δεδομένου ότι αυτό το βιβλίο εργασίας περιέχει μακροεντολή, πρέπει να αποθηκεύσετε το αρχείο σε μορφή .xls ή .xlsm.
Ελπίζω ότι αυτό θα σας βοηθήσει την επόμενη φορά που θα προσπαθήσετε να επικοινωνήσετε ονόματα, αναγνωριστικά ηλεκτρονικού ταχυδρομείου ή διεύθυνση με άτομα μέσω τηλεφωνικής συνομιλίας.
Πείτε μου τι πιστεύετε για αυτό το Πρότυπο Excel αφήνοντας ένα σχόλιο παρακάτω.
Άλλα πρότυπα Excel που μπορεί να σας αρέσουν:
- Πρότυπο μήτρας προτεραιότητας εργασιών.
- Πρότυπο γεννήτρια ηλεκτρονικού ταχυδρομείου.
- Πρότυπο παρακολούθησης αποχωρήσεων υπαλλήλων.
- Πρότυπο αριθμομηχανής φύλλου εργασίας εργαζομένων.
- Ημερολόγιο Ενσωματωμένο με πρότυπο λίστας υποχρεώσεων.
