„А“ като в Алфа, „В“ като в Браво, „С“ като в Чарли. Чували ли сте тези фрази преди?
Те се наричат Код на военната азбука (известен също като код на азбуката на НАТО). Често се използва от хора (особено момчета от кол центъра) за съобщаване на име, имейл адрес или домашен/офис адрес.
Генерирайте код за военна азбука в Excel
В първата си работа получих проект, в който трябваше да се обадя на студено, за да получа информация за медицинските изделия. Тъй като се свързвахме с хора от цял свят с всякакви акценти, понякога беше трудно да споделим нашето име и имейл или да получим техния. Тогава започнах да разчитам на кодовете на военната азбука, за да комуникирам ясно. Виждал съм много момчета от кол центъра да правят това ефективно.
Имайки това предвид, създадох шаблон на Excel, където можете да въведете текстов низ и той автоматично ще генерира кода на военната азбука за въведения текст.
Нещо, както е показано по -долу:
Веднага след като въведете текста и натиснете Enter, той автоматично ще генерира кода на военната азбука за всяка азбука в текстовия низ.
Имайте предвид, че в този случай числата и специалните символи ще бъдат показани такива, каквито са. Също така, това ще работи с двата случая - долния или горния.
Тъй като тази работна книга съдържа макрос, веднага щом я отворите, може да видите жълта лента с бутона - Активиране на съдържанието. Трябва да кликнете върху този бутон, за да работи.
Как да създадете този шаблон за генератор на код за военна азбука
Този шаблон работи само върху VBA магия. В процедурата за промяна на работния лист има няколко цикъла, които просто проверяват за всяка азбука и извличат кодовата дума за тази азбука.
Ето кода на VBA, който върши работата:
Private Sub Worksheet_Change (ByVal Target As Range) 'създаден от Sumit Bansal на trumpexcel.com Dim alphabetcount Като Integer Dim азбука As String Dim резултат As String Dim i As Integer Dim TargetColumn As Integer Dim TargetRow As Integer On Грешка Възобновяване Next TargetColumn = Target. Колона TargetRow = Target.Row If TargetColumn = 4 И клетки (TargetRow, TargetColumn) = "" Тогава клетките (TargetRow, TargetColumn + 1) = "" Излезте от Sub End, ако If TargetColumn = 4 Тогава alphabetcount = Len (Клетки (TargetRow, TargetColumn )) За i = 1 Към азбучен брой + 1 азбука = средна (Обхват (Target.Address), i, 1) Ако Range ("A2: A27"). Find (азбука) е нищо Тогава result = result & "," & азбука Друг резултат = резултат & "," & Обхват ("A2: A27"). Намерете (азбука). Отместване (0, 1) Край, ако следващите i клетки (TargetRow, TargetColumn + 1) = Mid (резултат, 3, Len (резултат) - 4) End If End Sub
Ако искате да промените няколко от тези кодови думи, за да отговарят на вашата аудитория/регион, можете просто да ги промените в колона B във файла за изтегляне. Кодът автоматично ще избере променените кодове.
Имайте предвид, че тъй като тази работна книга съдържа макрос, трябва да запишете файла във формат .xls или .xlsm.
Надявам се това да ви помогне следващия път, когато се опитате да съобщите имена, имейл адреси или адрес с хора по телефонен разговор.
Кажете ми какво мислите за този шаблон на Excel, като оставите коментар по -долу.
Други шаблони на Excel, които може да ви харесат:
- Шаблон за матрица за приоритизиране на задачи.
- Шаблон за генератор на имейли.
- Шаблон за проследяване на напускане на служители.
- Шаблон за калкулатор на график за служители.
- Календар, интегриран с шаблон за списък със задачи.
