„A“ kaip „Alpha“, „B“ kaip „Bravo“, „C“ kaip „Charlie“. Ar girdėjote šias frazes anksčiau?
Jie vadinami karinės abėcėlės kodu (dar žinomu kaip NATO abėcėlės kodas). Jį dažnai naudoja žmonės (ypač skambučių centro vaikinai), norėdami pranešti vardą, el. Pašto adresą arba namų/biuro adresą.
„Excel“ sugeneruokite karinės abėcėlės kodą
Pirmajame darbe gavau projektą, kuriame turėjau skambinti šaltuoju telefonu, kad gaučiau informacijos apie medicinos prietaisus. Kadangi bendravome su žmonėmis iš viso pasaulio su įvairiausiais akcentais, kartais buvo sunku pasidalyti savo vardu ir el. Paštu arba gauti jų. Būtent tada aš pradėjau pasikliauti kariniais abėcėlės kodais, kad galėčiau aiškiai bendrauti. Mačiau daug skambučių centro vaikinų, kurie tai daro efektyviai.
Turėdamas tai omenyje, sukūriau „Excel“ šabloną, kuriame galite įvesti teksto eilutę, ir ji automatiškai sugeneruos įvestam tekstui karinės abėcėlės kodą.
Kažkas, kaip parodyta žemiau:
Kai tik įvesite tekstą ir paspausite „Enter“, jis automatiškai sukurs karinės abėcėlės kodą kiekvienai teksto eilutės abėcėlei.
Atminkite, kad tokiu atveju skaičiai ir specialieji simboliai bus rodomi taip, kaip yra. Be to, tai veiktų su bet kuriuo atveju - apatiniu arba viršutiniu.
Kadangi šioje darbaknygėje yra makrokomanda, vos ją atidarę galite matyti geltoną juostą su mygtuku - Įgalinti turinį. Norėdami tai padaryti, turite spustelėti šį mygtuką.
Kaip sukurti šį karinio abėcėlės kodo generatoriaus šabloną
Šis šablonas veikia tik dėl VBA magijos. Darbo lapo keitimo įvykio procedūroje yra keletas kilpų, kurios tiesiog patikrina kiekvieną abėcėlę ir nuskaito tos abėcėlės kodinį žodį.
Čia yra VBA kodas, kuris atlieka šį darbą:
Privatus antrinis darbalapio keitimas („ByVal Target As Range“) “, kurį sukūrė trumpexcel.com Sumit Bansal Stulpelis TargetRow = Target.Row If TargetColumn = 4 Ir langeliai (TargetRow, TargetColumn) = "" Tada langeliai (TargetRow, TargetColumn + 1) = "" Išeiti iš antrinio galo, jei If TargetColumn = 4 Tada alphabetcount = Len (Cells (TargetRow, TargetColumn) )) Jei i = 1 iki abėcėlės skaičiaus + 1 abėcėlė = vidurkis (diapazonas (tikslinis adresas), i, 1) jei diapazonas ("A2: A27"). Raskite (abėcėlė) nieko, tada rezultatas = rezultatas & "," & abėcėlė Kitas rezultatas = rezultatas & "," & diapazonas ("A2: A27"). Raskite (abėcėlę). Poslinkis (0, 1) Pabaiga, jei kitos i ląstelės (TargetRow, TargetColumn + 1) = Vidutinis (rezultatas, 3, Len (rezultatas) - 4) Pabaiga Jei pabaiga Sub
Jei norite pakeisti kelis šiuos kodinius žodžius, kad jie atitiktų jūsų auditoriją/regioną, galite tiesiog pakeisti juos atsisiuntimo failo B stulpelyje. Kodas automatiškai parenka pakeistus kodus.
Atminkite, kad kadangi šioje darbaknygėje yra makrokomanda, failą turite išsaugoti .xls arba .xlsm formatu.
Tikiuosi, kad tai jums padės kitą kartą, kai telefoniniu pokalbiu bandysite perduoti žmonėms pavardes, el. Pašto adresus ar adresus.
Leiskite man žinoti, ką manote apie šį „Excel“ šabloną, palikdami komentarą žemiau.
Kiti „Excel“ šablonai, kurie jums gali patikti:
- Užduočių prioritetų nustatymo matricos šablonas.
- Pašto generatoriaus šablonas.
- Darbuotojų atostogų stebėjimo šablonas.
- Darbuotojo darbo laiko apskaitos skaičiuoklės šablonas.
- Kalendorius, integruotas su užduočių sąrašo šablonu.
