«А» як у Альфі, «В» як у Браво, «С» як у Чарлі. Чули ці фрази раніше?
Вони називаються Кодом військового алфавіту (також відомим як код НАТО). Його часто використовують (особливо хлопці колл -центру) для передачі імені, адреси електронної пошти чи домашньої/офісної адреси.
Створіть код військового алфавіту в 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 Помилка Відновити наступний TargetColumn = Target. Стовпець TargetRow = Target.Row If TargetColumn = 4 І клітинки (TargetRow, TargetColumn) = "" Тоді клітинки (TargetRow, TargetColumn + 1) = "" Вийти з допоміжного кінця If If TargetColumn = 4 Тоді alphabetcount = Len (Клітинки (TargetRow, TargetColumn )) Для i = 1 До рахунку алфавіту + 1 алфавіт = Середній (Діапазон (Адреса цілі.), I, 1) Якщо Діапазон ("A2: A27"). Знайти (алфавіт) Ніщо То результат = результат & "," & алфавіт Інший результат = результат & "," & Діапазон ("A2: A27"). Знайти (алфавіт). Зміщення (0, 1) Закінчити, якщо наступні ячейки i (TargetRow, TargetColumn + 1) = Mid (результат, 3, Len (результат) - 4) End If End Sub
Якщо ви хочете змінити пару цих кодових слів відповідно до своєї аудиторії/регіону, ви можете просто змінити їх у стовпці В у файлі завантаження. Код автоматично вибирає змінені коди.
Зауважте, що оскільки ця книга містить макрос, вам потрібно зберегти файл у форматі .xls або .xlsm.
Сподіваюся, це допоможе вам наступного разу, коли ви спробуєте передати імена, ідентифікатори електронної пошти чи адресу з людьми під час телефонної розмови.
Дайте мені знати, що ви думаєте про цей шаблон Excel, залишивши коментар нижче.
Інші шаблони Excel, які вам можуть сподобатися:
- Шаблон матриці пріоритетності завдань.
- Шаблон генератора електронної пошти.
- Шаблон відстеження відходу співробітників.
- Шаблон калькулятора розкладу працівників.
- Календар, інтегрований із шаблоном списку справ.
