„A” jak w Alpha, „B” jak w Bravo, „C” jak w Charlie. Słyszałeś już te zwroty?
Są to tak zwane wojskowy kod alfabetu (znany również jako kod alfabetu NATO). Jest często używany przez ludzi (zwłaszcza faceci z call center) do przekazywania nazwiska, adresu e-mail lub adresu domowego/biurowego.
Wygeneruj wojskowy kod alfabetu w programie Excel
W mojej pierwszej pracy dostałem projekt, w którym musiałem wykonać zimne telefony, aby uzyskać informacje na temat urządzeń medycznych. Ponieważ łączyliśmy się z ludźmi z całego świata z różnymi akcentami, czasami trudno było podzielić się naszym imieniem i adresem e-mail lub uzyskać ich. To właśnie wtedy zacząłem polegać na wojskowych kodach alfabetu, aby wyraźnie się komunikować. Widziałem wielu facetów z call center, którzy robili to skutecznie.
Mając to na uwadze, stworzyłem szablon Excela, w którym można wpisać ciąg tekstowy, a on automatycznie wygeneruje kod alfabetu wojskowego dla wprowadzonego tekstu.
Coś, jak pokazano poniżej:
Gdy tylko wprowadzisz tekst i naciśniesz Enter, automatycznie wygeneruje kod alfabetu wojskowego dla każdego alfabetu w ciągu tekstowym.
Zwróć uwagę, że w takim przypadku liczby i znaki specjalne byłyby wyświetlane bez zmian. Działałoby to również z każdą wielkością liter - dolną lub górną.
Ponieważ ten skoroszyt zawiera makro, zaraz po jego otwarciu może pojawić się żółty pasek z przyciskiem Włącz zawartość. Aby to zadziałało, musisz kliknąć ten przycisk.
Jak utworzyć ten szablon generatora wojskowych kodów alfabetu?
Ten szablon działa wyłącznie na magii VBA. W procedurze zdarzenia Worksheet Change istnieje kilka pętli, które po prostu sprawdzają każdy alfabet i pobierają słowo kodowe dla tego alfabetu.
Oto kod VBA, który wykonuje pracę:
Private Sub Worksheet_Change(ByVal Target As Range) 'utworzony przez Sumit Bansal z trumpexcel.com Dim alphabetcount As Integer Dim alfabet As String Dim wynik As String Dim i As Integer Dim TargetColumn As Integer Dim TargetRow As Integer On Error Wznów następny TargetColumn = Target. Kolumna TargetRow = Target.Row If TargetColumn = 4 And Cells(TargetRow, TargetColumn) = "" Then Cells(TargetRow, TargetColumn + 1) = "" Exit Sub End If If TargetColumn = 4 Then alphabetcount = Len(Cells(TargetRow, TargetColumn) )) For i = 1 To liczba alfabetu + 1 alfabet = Mid(Range(Target.Address), i, 1) If Range("A2:A27").Find(alphabet) Is Nothing Then = wynik & ", " & alfabet Inny wynik = wynik & ", " & Range("A2:A27").Find(alphabet).Offset(0, 1) End If Next i Cells(TargetRow, TargetColumn + 1) = Mid(result, 3, Len (wynik) - 4) Koniec, jeśli koniec Sub
Jeśli chcesz zmienić kilka z tych słów kodowych, aby dopasować je do odbiorców/regionu, możesz je po prostu zmienić w kolumnie B w pliku do pobrania. Kod automatycznie wybierze zmienione kody.
Należy zauważyć, że skoro skoroszyt zawiera makro, plik należy zapisać w formacie .xls lub .xlsm.
Mam nadzieję, że pomoże ci to następnym razem, gdy spróbujesz przekazać nazwiska, identyfikatory e-mail lub adresy z ludźmi podczas rozmowy telefonicznej.
Daj mi znać, co myślisz o tym szablonie programu Excel, zostawiając komentarz poniżej.
Inne szablony Excela, które mogą Ci się spodobać:
- Szablon macierzy priorytetów zadań.
- Szablon generatora wiadomości e-mail.
- Szablon śledzenia urlopu pracownika.
- Szablon kalkulatora grafiku pracy pracownika.
- Kalendarz zintegrowany z szablonem listy zadań do wykonania.
