'A' kot v Alpha, 'B' kot v Bravo, 'C' kot v Charlieju. Ste že slišali te stavke?
Te se imenujejo vojaška abecedna koda (znana tudi kot Natova abecedna koda). Ljudje (zlasti fantje iz klicnega centra) ga pogosto uporabljajo za sporočanje imena, e -poštnega naslova ali domačega/pisarniškega naslova.
Ustvarite kodo vojaške abecede v Excelu
V svoji prvi službi sem dobil projekt, v katerem sem moral opraviti hladne klice, da sem dobil nekaj informacij o medicinskih pripomočkih. Ker smo se povezovali z ljudmi z vsega sveta z vsemi poudarki, je bilo včasih težko deliti svoje ime in e -poštni naslov ali pridobiti njihovo. Takrat sem se za jasno komunikacijo začel zanašati na kode vojaške abecede. Videl sem veliko fantov iz klicnega centra, ki to učinkovito počnejo.
S tem v mislih sem ustvaril predlogo Excel, v katero lahko vnesete besedilni niz, ki bo samodejno ustvaril kodo vojaške abecede za vneseno besedilo.
Nekaj, kot je prikazano spodaj:
Takoj, ko vnesete besedilo in pritisnete Enter, bo samodejno ustvarila kodo vojaške abecede za vsako abecedo v besedilnem nizu.
Upoštevajte, da bi bile v tem primeru številke in posebni znaki prikazani takšni, kot so. Prav tako bi to delovalo v obeh primerih - spodnjem ali zgornjem.
Ker ta delovni zvezek vsebuje makro, lahko takoj, ko ga odprete, vidite rumeno vrstico z gumbom - Omogoči vsebino. Če želite to delovati, morate klikniti ta gumb.
Kako ustvariti to predlogo za ustvarjanje vojaške abecedne kode
Ta predloga deluje izključno na magijo VBA. V postopku dogodka Sprememba delovnega lista obstaja nekaj zank, ki preprosto preverijo vsako abecedo in pridobijo kodno besedo za to abecedo.
Tu je koda VBA, ki deluje:
Private Sub Worksheet_Change (ByVal Target As Range) ', ki ga je ustvaril Sumit Bansal iz trumpexcel.com Dim alphabetcount Kot Integer Dim alphabet As String Dim result As String Dim i As Integer Dim TargetColumn As Integer Dim TargetRow As Integer On Napaka Nadaljuj Naslednji TargetColumn = Target. Stolpec TargetRow = Target.Row Če je TargetColumn = 4 In celice (TargetRow, TargetColumn) = "" Potem celice (TargetRow, TargetColumn + 1) = "" Zapustite podkončnico If If TargetColumn = 4 Potem alphabetcount = Len (Celice (TargetRow, TargetColumn )) Za i = 1 Za štetje abecede + 1 abeceda = srednja (obseg (ciljni naslov), i, 1) Če obseg ("A2: A27"). Najdi (abeceda) ni nič.) Rezultat = rezultat & "," & abeceda Drugi rezultat = rezultat & "," & Obseg ("A2: A27"). Poišči (abeceda). Odmik (0, 1) Konec Naslednje celice i (TargetRow, TargetColumn + 1) = Srednja (rezultat, 3, Len (rezultat) - 4) Konec Konec Če pod
Če želite spremeniti nekaj teh kodnih besed, ki ustrezajo vašemu občinstvu/regiji, jih lahko preprosto spremenite v stolpcu B v datoteki za prenos. Koda bi samodejno izbrala spremenjene kode.
Ker ta delovni zvezek vsebuje makro, morate datoteko shraniti v obliki .xls ali .xlsm.
Upam, da vam bo to pomagalo, ko boste naslednjič poskusili komunicirati imena, e -poštne številke ali naslov z ljudmi v telefonskem pogovoru.
Sporočite mi, kaj menite o tej predlogi Excel, tako da spodaj pustite komentar.
Druge predloge Excel, ki bi vam bile morda všeč:
- Predloga matrike prednostnih nalog.
- Predloga generatorja e -pošte.
- Predloga za sledenje odhodom zaposlenih.
- Predloga kalkulatorja časovnega lista zaposlenih.
- Koledar integriran s predlogo seznama opravil.
