«A» - в Alpha, «B» - в Bravo, «C» - в Charlie. Слышали эти фразы раньше?
Они называются военным алфавитным кодом (также известным как алфавитный код НАТО). Его часто используют люди (особенно ребята из колл-центра), чтобы сообщить имя, адрес электронной почты или домашний / рабочий адрес.
Сгенерируйте код военного алфавита в Excel
На моей первой работе у меня был проект, в котором мне приходилось совершать холодные звонки, чтобы получить некоторую информацию о медицинских устройствах. Поскольку мы общались с людьми со всего мира с разными акцентами, иногда было сложно назвать свое имя и адрес электронной почты или получить их. Именно тогда я начал полагаться на коды военных алфавитов, чтобы четко общаться. Я видел, как многие ребята из колл-центра делали это эффективно.
Имея это в виду, я создал шаблон Excel, в котором вы можете ввести текстовую строку, и он автоматически сгенерирует код военного алфавита для введенного текста.
Что-то вроде того, что показано ниже:
Как только вы введете текст и нажмете Enter, он автоматически сгенерирует код военного алфавита для каждого алфавита в текстовой строке.
Обратите внимание, что в этом случае числа и специальные символы будут отображаться как есть. Кроме того, это будет работать с любым регистром - нижним или верхним.
Поскольку эта книга содержит макрос, как только вы откроете ее, вы можете увидеть желтую полосу с кнопкой - Включить содержимое. Вам нужно нажать на эту кнопку, чтобы это сработало.
Как создать этот шаблон генератора кода военного алфавита
Этот шаблон работает исключительно на магии VBA. В процедуре события «Изменение рабочего листа» есть несколько циклов, которые просто проверяют каждый алфавит и извлекают кодовое слово для этого алфавита.
Вот код VBA, который выполняет эту работу:
Private Sub Worksheet_Change (ByVal Target As Range) ', созданный Sumit Bansal из trumpexcel.com Dim Alphacount As Integer Dim Alpha As String Dim result As String Dim i As Integer Dim TargetColumn As Integer Dim TargetRow As Integer On Error Resume Next TargetColumn = Target. Столбец TargetRow = Target.Row, если TargetColumn = 4 и Cells (TargetRow, TargetColumn) = "" Then Cells (TargetRow, TargetColumn + 1) = "" Выйти из вспомогательного конца, если если TargetColumn = 4 Тогда алфавитcount = Len (Cells (TargetRow, TargetColumn )) Для i = 1 To алфавит Else result = result & "," & Range ("A2: A27"). Find (алфавит) .Offset (0, 1) End If Next i Cells (TargetRow, TargetColumn + 1) = Mid (result, 3, Len (результат) - 4) End If End Sub
Если вы хотите изменить пару этих кодовых слов в соответствии с вашей аудиторией / регионом, вы можете просто изменить их в столбце B в загружаемом файле. Код автоматически выберет измененные коды.
Обратите внимание: поскольку эта книга содержит макрос, вам необходимо сохранить файл в формате .xls или .xlsm.
Я надеюсь, что это поможет вам в следующий раз, когда вы попытаетесь сообщить имена, идентификаторы электронной почты или адреса людям в телефонном разговоре.
Сообщите мне, что вы думаете об этом шаблоне Excel, оставив комментарий ниже.
Другие шаблоны Excel, которые могут вам понравиться:
- Шаблон матрицы приоритезации задач.
- Шаблон генератора электронной почты.
- Шаблон отслеживания увольнений сотрудников.
- Шаблон калькулятора расписания сотрудников.
- Календарь интегрирован с шаблоном списка дел.
