Generieren Sie Militäralphabetcode für einen Text in Excel

'A' wie in Alpha, 'B' wie in Bravo, 'C' wie in Charlie. Haben Sie diese Sätze schon einmal gehört?

Diese werden als Militäralphabetcode (auch als NATO-Alphabetcode bekannt) bezeichnet. Es wird oft von Leuten (insbesondere den Callcenter-Mitarbeitern) verwendet, um den Namen, die E-Mail-Adresse oder die Privat- / Büroadresse mitzuteilen.

Generieren Sie Militäralphabet-Code in Excel

In meinem ersten Job bekam ich ein Projekt, bei dem ich Kaltakquise durchführen musste, um Informationen über Medizinprodukte zu erhalten. Da wir mit Menschen aus der ganzen Welt mit allen möglichen Akzenten in Kontakt standen, war es manchmal schwierig, unseren Namen und unsere E-Mail-Adresse zu teilen oder ihre zu erhalten. Damals begann ich, mich auf militärische Alphabetcodes zu verlassen, um klar zu kommunizieren. Ich habe viele Callcenter-Leute gesehen, die dies effektiv tun.

Vor diesem Hintergrund habe ich eine Excel-Vorlage erstellt, in die Sie eine Textzeichenfolge eingeben können und die automatisch den Militäralphabet-Code für den eingegebenen Text generiert.

Etwas wie unten gezeigt:

Sobald Sie den Text eingeben und die Eingabetaste drücken, wird automatisch der Militäralphabetcode für jedes Alphabet in der Textzeichenfolge generiert.

Beachten Sie, dass in diesem Fall Zahlen und Sonderzeichen unverändert angezeigt werden. Auch dies würde mit beiden Groß-/Kleinschreibung funktionieren - unterer oder oberer.

Da diese Arbeitsmappe ein Makro enthält, sehen Sie beim Öffnen möglicherweise einen gelben Balken mit der Schaltfläche - Inhalt aktivieren. Sie müssen auf diese Schaltfläche klicken, damit dies funktioniert.

So erstellen Sie diese Militäralphabet-Code-Generatorvorlage

Diese Vorlage funktioniert ausschließlich mit VBA-Magie. Es gibt einige Schleifen innerhalb der Ereignisprozedur Arbeitsblattänderung, die einfach nach jedem Alphabet sucht und das Codewort für dieses Alphabet abruft.

Hier ist der VBA-Code, der die Arbeit macht:

Private Sub Worksheet_Change(ByVal Target As Range) 'erstellt von Sumit Bansal of trumpexcel.com Dim alphabetcount As Integer Dim alphabet As String Dim result As String Dim i As Integer Dim TargetColumn As Integer Dim TargetRow Als Integer bei Fehler Resume Next TargetColumn = Target. Spalte 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 alphabetcount + 1 alphabet = Mid(Range(Target.Address), i, 1) If Range("A2:A27").Find(Alphabet) Is Nothing Then result = result & ", " & alphabet Else result = result & ", " & Range("A2:A27").Find(alphabet).Offset(0, 1) End If Next i Cells(TargetRow, TargetColumn + 1) = Mid(result, 3, Len (Ergebnis) - 4) End If End Sub

Wenn Sie einige dieser Codewörter an Ihre Zielgruppe/Region anpassen möchten, können Sie dies einfach in Spalte B der Download-Datei ändern. Der Code würde automatisch die geänderten Codes auswählen.

Beachten Sie, dass Sie die Datei im XLS- oder XLSM-Format speichern müssen, da diese Arbeitsmappe ein Makro enthält.

Ich hoffe, dies hilft Ihnen das nächste Mal, wenn Sie versuchen, Namen, E-Mail-IDs oder Adressen über ein Telefongespräch mit anderen zu teilen.

Lassen Sie mich wissen, was Sie von dieser Excel-Vorlage halten, indem Sie unten einen Kommentar hinterlassen.

Andere Excel-Vorlagen, die Ihnen gefallen könnten:

  • Vorlage für die Aufgabenpriorisierungsmatrix.
  • E-Mail-Generator-Vorlage.
  • Vorlage für Mitarbeiter-Urlaubsverfolgung.
  • Vorlage für den Stundenzettel-Rechner für Mitarbeiter.
  • Kalender integriert mit einer To-Do-Listen-Vorlage.

Sie werden die Entwicklung der Website helfen, die Seite mit Ihren Freunden teilen

wave wave wave wave wave