"A" kuten alfa, "B" kuin Bravo, "C" kuin Charlie. Oletko kuullut nämä lauseet ennen?
Näitä kutsutaan sotilaallisiksi aakkosiksi (tunnetaan myös nimellä Naton aakkoset). Ihmiset (erityisesti puhelinkeskuksen kaverit) käyttävät sitä usein nimen, sähköpostiosoitteen tai koti-/toimisto -osoitteen ilmoittamiseen.
Luo armeijan aakkoskoodi Excelissä
Ensimmäisessä työssäni sain projektin, jossa minun piti soittaa kylmäpuhelimella saadakseni tietoa lääkinnällisistä laitteista. Koska olimme yhteydessä ihmisiin ympäri maailmaa kaikenlaisilla aksentteilla, oli toisinaan vaikeaa jakaa nimemme ja sähköpostiosoitteemme tai saada heidän. Silloin aloin luottaa sotilaallisiin aakkoskoodeihin kommunikoidakseni selkeästi. Olen nähnyt, että monet puhelinkeskuksen kaverit tekevät tämän tehokkaasti.
Tässä mielessä olen luonut Excel -mallin, johon voit syöttää tekstimerkkijonon, ja se luo automaattisesti sotilaallisen aakkosen koodin syötetylle tekstille.
Jotain alla olevan kuvan mukaisesti:
Heti kun kirjoitat tekstin ja painat Enter, se luo automaattisesti sotilaallisen aakkosen koodin jokaiselle tekstimerkkijonon aakkoselle.
Huomaa, että tässä tapauksessa numerot ja erikoismerkit näytetään sellaisinaan. Tämä toimisi myös molempien tapausten kanssa - alempi tai ylempi.
Koska tämä työkirja sisältää makron, saatat nähdä keltaisen palkin heti, kun avaat sen, kun painike - Ota sisältö käyttöön. Sinun on napsautettava tätä painiketta, jotta tämä toimii.
Kuinka luoda tämä sotilaskirjoituskoodin luontimalli
Tämä malli toimii puhtaasti VBA -taikuudella. Laskentataulukon muutostapahtumaprosessissa on pari silmukkaa, joka yksinkertaisesti tarkistaa jokaisen aakkoston ja hakee kyseisen aakkoston koodisanan.
Tässä on VBA -koodi, joka toimii:
Yksityinen alityökirjan_muutos (ByVal -kohdealue) '', jonka on luonut Sumpe Bansal, trumpexcel.com Sarake TargetRow = Target.Row If TargetColumn = 4 And Cells (TargetRow, TargetColumn) = "" Sitten solut (TargetRow, TargetColumn + 1) = "" Poistu alipäästä Jos If TargetColumn = 4 Sitten alphabetcount = Len (Solut (TargetRow, TargetColumn )) Jos i = 1 Aakkosnumeroon + 1 aakkoset = Keskitaso (alue (kohde.osoite), i, 1) jos alue ("A2: A27"). Etsi (aakkoset) ei ole mitään Sitten tulos = tulos & "," & aakkoset Else result = result & "," & Range ("A2: A27"). Etsi (aakkoset). Offset (0, 1) End If Next i Cells (TargetRow, TargetColumn + 1) = Mid (result, 3, Len (tulos) - 4) End If End Sub
Jos haluat muuttaa pari näistä koodisanoista yleisösi/alueesi mukaan, voit muuttaa sen lataustiedoston sarakkeessa B. Koodi valitsee automaattisesti muutetut koodit.
Huomaa, että koska tämä työkirja sisältää makron, sinun on tallennettava tiedosto .xls- tai .xlsm -muodossa.
Toivon, että tämä auttaisi sinua seuraavan kerran, kun yrität kommunikoida ihmisten, puhelinnumeroiden tai sähköpostitunnusten tai osoitteiden kanssa puhelinkeskustelun aikana.
Kerro minulle, mitä mieltä olet tästä Excel -mallista jättämällä kommentin alle.
Muut Excel -mallit, joista saatat pitää:
- Tehtävien priorisointimatriisimalli.
- Sähköpostin luontimalli.
- Työntekijän loma -seurantamalli.
- Työntekijän työaikataulukon laskimen malli.
- Tehtäväluettelomalliin integroitu kalenteri.
