'A' kao u Alfi, 'B' kao u Bravu, 'C' kao u Charlieju. Jeste li već čuli ove fraze?
Oni se nazivaju kod vojne abecede (poznat i kao kôd abecede NATO -a). Ljudi ga često koriste (osobito momci iz pozivnog centra) za prenošenje imena, e -adrese ili kućne/uredske adrese.
Generirajte kôd vojne abecede u Excelu
Na svom prvom poslu dobio sam projekt u kojem sam morao obavljati hladne pozive kako bih dobio neke informacije o medicinskim uređajima. Budući da smo se povezivali s ljudima iz cijelog svijeta sa svim vrstama naglasaka, povremeno je bilo teško podijeliti svoje ime i adresu e -pošte ili dobiti njihov. Tada sam se počeo oslanjati na kodove vojne abecede za jasnu komunikaciju. Vidio sam da mnogi momci iz pozivnog centra to rade učinkovito.
Imajući to na umu, stvorio sam Excel predložak u koji možete unijeti tekstualni niz, a on će automatski generirati kôd vojne abecede za uneseni tekst.
Nešto kao što je prikazano ispod:
Čim unesete tekst i pritisnete Enter, automatski će generirati kôd vojne abecede za svaku abecedu u tekstualnom nizu.
Imajte na umu da bi se u ovom slučaju brojevi i posebni znakovi prikazali takvi kakvi jesu. Također, ovo bi funkcioniralo u oba slučaja - donjem ili gornjem.
Budući da ova radna knjiga sadrži makronaredbu, čim je otvorite, možda ćete vidjeti žutu traku s gumbom - Omogući sadržaj. Morate kliknuti na ovaj gumb da bi ovo funkcioniralo.
Kako stvoriti ovaj predložak generatora koda vojne abecede
Ovaj predložak radi isključivo na VBA magiji. Unutar postupka događaja Promjena radnog lista postoji nekoliko petlji koje jednostavno provjeravaju svaku abecedu i dohvaćaju kodnu riječ za tu abecedu.
Evo VBA koda koji radi:
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 Greška Nastavi sljedeći TargetColumn = Target. Stupac TargetRow = Target.Row If TargetColumn = 4 I ćelije (TargetRow, TargetColumn) = "" Zatim ćelije (TargetRow, TargetColumn + 1) = "" Izlaz iz podzavršetka If If TargetColumn = 4 Tada alphabetcount = Len (Ćelije (TargetRow, TargetColumn )) Za i = 1 Za broj abecede + 1 abeceda = Srednja (raspon (ciljna adresa), i, 1) Ako raspon ("A2: A27"). Pronađi (abeceda) nije ništa Tada je rezultat = rezultat & "," & abeceda Ostali rezultat = rezultat & "," & Raspon ("A2: A27"). Pronađi (abeceda). Odstupanje (0, 1) Kraj ako je sljedeća i ćelije (TargetRow, TargetColumn + 1) = Srednja (rezultat, 3, Len (rezultat) - 4) Kraj ako završi pod
Ako želite promijeniti nekoliko ovih kodnih riječi tako da odgovaraju vašoj publici/regiji, možete ih jednostavno promijeniti u stupcu B u datoteci za preuzimanje. Kôd bi automatski odabrao promijenjene kodove.
Imajte na umu da budući da ova radna knjiga sadrži makronaredbu, morate spremiti datoteku u .xls ili .xlsm formatu.
Nadam se da će vam ovo pomoći sljedeći put kada pokušate komunicirati imena, ID -ove e -pošte ili adresu s ljudima putem telefonskog razgovora.
Recite mi što mislite o ovom Excel predlošku ostavljajući komentar ispod.
Drugi predlošci programa Excel koji bi vam se mogli svidjeti:
- Predložak matrice prioriteta zadataka.
- Predložak generatora e -pošte.
- Predložak praćenja napuštanja zaposlenika.
- Predložak kalkulatora radnog lista zaposlenika.
- Kalendar integriran s predloškom popisa obaveza.
