'A' som i Alpha, 'B' som i Bravo, 'C' som i Charlie. Hørt disse setningene før?
Disse kalles den militære alfabetkoden (også kjent som NATO -alfabetkoden). Det brukes ofte av folk (spesielt telefonsenteret) til å kommunisere navn, e -postadresse eller adresse til hjemmet/kontoret.
Generer militær alfabetkode i Excel
I min første jobb fikk jeg et prosjekt der jeg måtte ringe kaldt for å få informasjon om medisinsk utstyr. Siden vi hadde kontakt med mennesker fra hele verden med alle slags aksenter, var det - til tider - vanskelig å dele vårt navn og e -post eller få deres. Det var da jeg begynte å stole på militære alfabetkoder for å kommunisere tydelig. Jeg har sett mange telefonsentre gjøre dette effektivt.
Med dette i bakhodet har jeg laget en Excel -mal hvor du kan skrive inn en tekststreng, og den vil automatisk generere Military Alphabet -koden for den angitte teksten.
Noe som vist nedenfor:
Så snart du skriver inn teksten og trykker Enter, genererer den automatisk den militære alfabetkoden for hvert alfabet i tekststrengen.
Vær oppmerksom på at i dette tilfellet vil tall og spesialtegn bli vist som de er. Dette vil også fungere med begge tilfeller - nedre eller øvre.
Siden denne arbeidsboken inneholder en makro, kan du se en gul stolpe med knappen så snart du åpner den - Aktiver innhold. Du må klikke på denne knappen for at dette skal fungere.
Hvordan lage denne militære alfabetkodegeneratormalen
Denne malen fungerer utelukkende på VBA -magi. Det er et par sløyfer i prosedyren Endre hendelsesprosedyre som bare sjekker for hvert alfabet, og henter kodeordet for det alfabetet.
Her er VBA -koden som gjør jobben:
Private Sub Worksheet_Change (ByVal Target As Range) 'laget av Sumit Bansal av 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. Column TargetRow = Target.Row If TargetColumn = 4 And Cells (TargetRow, TargetColumn) = "" Then Cells (TargetRow, TargetColumn + 1) = "" Exit Sub End If If TargetColumn = 4 Then alphabetcount = Len (Cells (TargetRow, TargetColumn) )) For i = 1 Til alfabetetelling + 1 alfabet = Midt (Område (Target.Address), i, 1) Hvis Område ("A2: A27"). Finn (alfabet) er ingenting Så resultat = resultat & "," & alfabet Else result = result & "," & Range ("A2: A27"). Finn (alphabet) .Offset (0, 1) End If Next i Cells (TargetRow, TargetColumn + 1) = Mid (result, 3, Len (resultat) - 4) Slutt hvis slutt Sub
Hvis du vil endre et par av disse kodeordene for å passe ditt publikum/område, kan du ganske enkelt endre det i kolonne B i nedlastingsfilen. Koden ville automatisk velge de endrede kodene.
Vær oppmerksom på at siden denne arbeidsboken inneholder en makro, må du lagre filen i .xls- eller .xlsm -format.
Jeg håper dette vil hjelpe deg neste gang du prøver å kommunisere navn, e -post -ID -er eller adresse med folk over en telefonisk samtale.
Gi meg beskjed om hva du synes om denne Excel -malen ved å legge igjen en kommentar nedenfor.
Andre Excel -maler du kan like:
- Oppgaveprioriteringsmatrisemal.
- E -postgenerator -mal.
- Employee Leave Tracker -mal.
- Ansattes timeliste kalkulatormal.
- Kalender integrert med en gjøremålsliste.
