„A“ jako u Alfy, „B“ jako u Brava, „C“ jako u Charlieho. Už jste tyto fráze slyšeli?
Říká se jim kód vojenské abecedy (také známý jako abecední kód NATO). Lidé (zejména lidé z call centra) jej často používají ke sdělování jména, e -mailové adresy nebo adresy domova/kanceláře.
Generujte kód vojenské abecedy v aplikaci Excel
Ve svém prvním zaměstnání jsem dostal projekt, kde jsem musel dělat studené volání, abych získal nějaké informace o zdravotnických prostředcích. Protože jsme se spojovali s lidmi z celého světa se všemi druhy přízvuků, bylo - občas - obtížné sdílet naše jméno a e -mail nebo získat jejich. Tehdy jsem se začal spoléhat na kódy vojenské abecedy, abych komunikoval jasně. Viděl jsem mnoho lidí z call centra, jak to efektivně dělat.
S ohledem na to jsem vytvořil šablonu aplikace Excel, do které můžete zadat textový řetězec, a ta automaticky vygeneruje pro zadaný text kód vojenské abecedy.
Něco, jak je uvedeno níže:
Jakmile zadáte text a stisknete Enter, automaticky vygeneruje kód vojenské abecedy pro každou abecedu v textovém řetězci.
Všimněte si, že v tomto případě budou čísla a speciální znaky zobrazeny tak, jak jsou. Také by to fungovalo v obou případech - dolní nebo horní.
Protože tento sešit obsahuje makro, hned po jeho otevření se vám může zobrazit žlutý pruh s tlačítkem - Povolit obsah. Aby to fungovalo, musíte kliknout na toto tlačítko.
Jak vytvořit tuto šablonu generátoru kódu vojenské abecedy
Tato šablona funguje čistě na magii VBA. V proceduře události Změna pracovního listu existuje několik smyček, které jednoduše kontrolují každou abecedu a načtou kódové slovo pro tuto abecedu.
Zde je kód VBA, který funguje:
Private Sub Worksheet_Change (ByVal Target As Range) 'created by Sumit Bansal of 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. Sloupec 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) )) Pro i = 1 do abecedního účtu + 1 abeceda = střední (rozsah (Target.Address), i, 1) Pokud rozsah ("A2: A27"). Najít (abeceda) není nic Výsledek = výsledek & "," & alphabet Else result = result & "," & Range ("A2: A27"). Find (alphabet). Offset (0, 1) End If Next i Cells (TargetRow, TargetColumn + 1) = Mid (result, 3, Len (výsledek) - 4) End If End Sub
Pokud chcete změnit několik těchto kódových slov tak, aby vyhovovala vašemu publiku/oblasti, můžete je jednoduše změnit ve sloupci B v souboru ke stažení. Kód by automaticky vybral změněné kódy.
Protože tento sešit obsahuje makro, musíte soubor uložit ve formátu .xls nebo .xlsm.
Doufám, že vám to pomůže při příštím pokusu komunikovat jména, e -mailová ID nebo adresy s lidmi prostřednictvím telefonické konverzace.
Dejte mi vědět, co si myslíte o této šabloně aplikace Excel, zanecháním komentáře níže.
Další šablony aplikace Excel, které by se vám mohly líbit:
- Šablona matice priority úkolů.
- Šablona generátoru e -mailů.
- Zaměstnanec Nechte šablonu sledovače.
- Šablona kalkulačky pracovního výkazu zaměstnanců.
- Kalendář integrovaný se šablonou seznamu úkolů.
