„A“ ako v Alfe, „B“ ako v Bravovi, „C“ ako v Charlie. Počuli ste už tieto frázy?
Hovorí sa im vojenský abecedný kód (známy aj ako abecedný kód NATO). Ľudia (najmä chlapci z call centra) ho často používajú na oznámenie mena, e -mailovej adresy alebo adresy domova/kancelárie.
Vygenerujte kód vojenskej abecedy v programe Excel
V prvom zamestnaní som dostal projekt, v ktorom som musel studene telefonovať, aby som získal informácie o zdravotníckych pomôckach. Pretože sme sa spájali s ľuďmi z celého sveta so všetkými druhmi akcentov, bolo niekedy ťažké zdieľať naše meno a e -mail alebo získať ich. V tom čase som sa začal spoliehať na kódy vojenskej abecedy, aby som komunikoval jasne. Videl som veľa ľudí z call centra, ako to robia efektívne.
S ohľadom na to som vytvoril šablónu programu Excel, do ktorej môžete zadať textový reťazec, a tá automaticky vygeneruje kód vojenskej abecedy pre zadaný text.
Niečo, ako je uvedené nižšie:
Hneď ako zadáte text a stlačíte kláves Enter, automaticky sa vygeneruje kód vojenskej abecedy pre každú abecedu v textovom reťazci.
Upozorňujeme, že v tomto prípade sa čísla a špeciálne znaky zobrazujú tak, ako sú. Tiež by to fungovalo s oboma prípadmi - dolnými alebo hornými.
Keďže tento zošit obsahuje makro, hneď po otvorení sa vám môže zobraziť žltý pruh s tlačidlom - Povoliť obsah. Aby to fungovalo, musíte kliknúť na toto tlačidlo.
Ako vytvoriť túto šablónu generátora vojenského abecedného kódu
Táto šablóna funguje čisto na mágii VBA. V rámci postupu udalosti Zmena pracovného hárka existuje niekoľko slučiek, ktoré jednoducho skontrolujú každú abecedu a načítajú kódové slovo pre túto abecedu.
Tu je kód VBA, ktorý funguje:
Súkromný čiastkový pracovný list_Zmeniť (ByVal cieľ ako rozsah) 'vytvorený Sumitom Bansal z 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. Stĺpec 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) )) Pre i = 1 Do počtu abecedy + 1 abeceda = stred (rozsah (Target.Address), i, 1) Ak je rozsah ("A2: A27"). Nájsť (abeceda) nie je nič, potom výsledok = výsledok & "," & alphabet Else result = result & "," & Range ("A2: A27"). Find (abeceda). Offset (0, 1) End If Next i Cells (TargetRow, TargetColumn + 1) = Mid (result, 3, Len (výsledok) - 4) End If End Sub
Ak by ste chceli zmeniť niekoľko týchto kódových slov tak, aby vyhovovali vášmu publiku/oblasti, môžete ich jednoducho zmeniť v stĺpci B v súbore na stiahnutie. Kód by automaticky vybral zmenené kódy.
Keďže tento zošit obsahuje makro, musíte súbor uložiť vo formáte .xls alebo .xlsm.
Dúfam, že vám to pomôže pri ďalšom pokuse o komunikáciu mien, e -mailových adries alebo adries s ľuďmi prostredníctvom telefonickej konverzácie.
Dajte mi vedieť, čo si myslíte o tejto šablóne programu Excel, zanechaním komentára nižšie.
Ďalšie šablóny programu Excel, ktoré by sa vám mohli páčiť:
- Šablóna matice priority úloh.
- Šablóna generátora e -mailov.
- Šablóna sledovača opustenia zamestnanca.
- Šablóna kalkulačky pracovného výkazu pre zamestnancov.
- Kalendár integrovaný so šablónou zoznamu úloh.