Katonai ábécé kód létrehozása Excel szöveghez

„A”, mint az Alfa, „B”, mint a Bravo, „C”, mint Charlie -ban. Hallottad már ezeket a mondatokat?

Ezeket katonai ábécé kódnak (más néven NATO ábécé kódnak) hívják. Az emberek (különösen a call center srácok) gyakran használják a név, e -mail cím vagy az otthoni/irodai cím közlésére.

Katonai ábécé kód létrehozása Excelben

Az első munkám során kaptam egy projektet, ahol hideg hívásokat kellett végeznem, hogy információkat szerezzek az orvosi eszközökről. Mivel a világ minden tájáról érkeztünk emberekkel mindenféle ékezetekkel, időnként nehéz volt megosztani nevünket és e -mail címünket, vagy megszerezni az övékét. Ekkor kezdtem a katonai ábécé kódjaira támaszkodni, hogy egyértelműen kommunikáljak. Láttam, hogy sok call center fickó ezt hatékonyan végzi.

Ezt szem előtt tartva létrehoztam egy Excel sablont, ahol megadhat egy szöveges karakterláncot, és az automatikusan generálja a katonai ábécé kódját a beírt szöveghez.

Valami az alábbiak szerint:

Amint beírja a szöveget és megnyomja az Enter billentyűt, automatikusan generálja a katonai ábécé kódját a szöveges karakterlánc minden ábécéjéhez.

Vegye figyelembe, hogy ebben az esetben a számok és a speciális karakterek úgy jelennek meg, ahogy vannak. Ezenkívül ez bármelyik esetben működhet - alsó vagy felső.

Mivel ez a munkafüzet makrót tartalmaz, amint megnyitja, előfordulhat, hogy megjelenik egy sárga sáv a Tartalom engedélyezése gombbal. Erre a gombra kell kattintania, hogy működjön.

Katonai ábécé kódgenerátor sablon létrehozása

Ez a sablon tisztán a VBA varázslatán működik. Van néhány ciklus a Munkalap módosítása esemény eljáráson belül, amely egyszerűen ellenőrzi az egyes ábécéket, és lekéri az adott ábécé kódszavát.

Itt van a VBA kód, amely elvégzi a munkát:

Private sub Worksheet_Change (ByVal Target as Range) ' - Sumit Bansal, trumpexcel.com Oszlop TargetRow = Target.Row If TargetColumn = 4 And Cells (TargetRow, TargetColumn) = "" Akkor a cellák (TargetRow, TargetColumn + 1) = "" Kilépés az alvégből Ha If TargetColumn = 4 Majd alphabetcount = Len (Cells (TargetRow, TargetColumn )) Ha i = 1 Az ábécészámhoz + 1 ábécé = Közép (Tartomány (Cél.Cím), i, 1) Ha Tartomány ("A2: A27"). Keresse meg (ábécé) Semmi Ekkor eredmény = eredmény & "," & ábécé Else result = result & "," & Range ("A2: A27"). Find (ábécé). Offset (0, 1) End If Next i Cells (TargetRow, TargetColumn + 1) = Közép (eredmény, 3, Len (eredmény) - 4) End If End Sub

Ha ezen kódszavak közül néhányat a közönségének/régiójának megfelelően szeretne megváltoztatni, egyszerűen módosítsa a letöltési fájl B oszlopában. A kód automatikusan kiválasztja a megváltozott kódokat.

Ne feledje, hogy mivel ez a munkafüzet makrót tartalmaz, a fájlt .xls vagy .xlsm formátumban kell mentenie.

Remélem, ez segíteni fog a következő alkalommal, amikor telefonos beszélgetés során megpróbálja közölni az emberekkel a neveket, e -mail -azonosítókat vagy címeket.

Tájékoztassa velem, mit gondol erről az Excel -sablonról, ha megjegyzést hagy.

Egyéb Excel sablonok, amelyek tetszhetnek:

  • Feladat prioritási mátrix sablon.
  • E -mail generátor sablon.
  • Munkavállalói szabadságkövető sablon.
  • Munkavállalói munkaidő -számológép sablon.
  • Teendőlista sablonnal integrált naptár.
wave wave wave wave wave