'A' als in Alpha, 'B' als in Bravo, 'C' als in Charlie. Heb je deze zinnen eerder gehoord?
Deze worden de Militaire Alfabetcode genoemd (ook bekend als NAVO-alfabetcode). Het wordt vaak gebruikt door mensen (vooral de jongens van het callcenter) om de naam, het e-mailadres of het thuis- / kantooradres door te geven.
Genereer militaire alfabetcode in Excel
In mijn eerste baan kreeg ik een project waarbij ik ongevraagd moest bellen om wat informatie over medische hulpmiddelen te krijgen. Omdat we contact hadden met mensen van over de hele wereld met allerlei accenten, was het - soms - moeilijk om onze naam en e-mail te delen of die van hen te krijgen. Het was toen dat ik begon te vertrouwen op militaire alfabetcodes om duidelijk te communiceren. Ik heb veel callcentermedewerkers dit effectief zien doen.
Met dit in gedachten heb ik een Excel-sjabloon gemaakt waarin u een tekenreeks kunt invoeren en het zal automatisch de militaire alfabetcode voor de ingevoerde tekst genereren.
Iets zoals hieronder weergegeven:
Zodra u de tekst invoert en op Enter drukt, wordt automatisch de militaire alfabetcode gegenereerd voor elk alfabet in de tekstreeks.
Houd er rekening mee dat in dit geval cijfers en speciale tekens worden weergegeven zoals ze zijn. Dit zou ook werken met beide gevallen - onder of boven.
Aangezien deze werkmap een macro bevat, ziet u mogelijk een gele balk met de knop - Inhoud inschakelen zodra u deze opent. U moet op deze knop klikken om dit te laten werken.
Hoe u deze sjabloon voor het genereren van militaire alfabetcodes kunt maken
Deze sjabloon werkt puur op VBA-magie. Er zijn een aantal lussen in de Worksheet Change-gebeurtenisprocedure die eenvoudigweg voor elk alfabet controleert en het codewoord voor dat alfabet ophaalt.
Hier is de VBA-code die het werk doet:
Private Sub Worksheet_Change (ByVal Target As Range) 'gemaakt door Sumit Bansal van trumpexcel.com Dim alfabettelling As Integer Dim alfabet As String Dim resultaat As String Dim i As Integer Dim TargetColumn As Integer Dim TargetRow As Integer On Error Volgende TargetColumn = Target hervatten. Kolom TargetRow = Target.Row If TargetColumn = 4 And Cells(TargetRow, TargetColumn) = "" Then Cells(TargetRow, TargetColumn + 1) = "" Sub End afsluiten If If TargetColumn = 4 Dan alfabetcount = Len(Cells(TargetRow, TargetColumn )) For i = 1 To alfabetcount + 1 alfabet = Mid(Range(Target.Address), i, 1) If Range("A2:A27").Find(alphabet) Is Nothing Dan resultaat = resultaat & ", " & alfabet Anders resultaat = resultaat & ", " & Bereik("A2:A27").Find(alfabet).Offset(0, 1) End If Next i Cells(TargetRow, TargetColumn + 1) = Mid(result, 3, Len (resultaat) - 4) End If End Sub
Als je een paar van deze codewoorden wilt aanpassen aan je doelgroep/regio, kun je dit eenvoudig wijzigen in kolom B in het downloadbestand. De code zou automatisch de gewijzigde codes kiezen.
Merk op dat aangezien deze werkmap een macro bevat, u het bestand in .xls- of .xlsm-indeling moet opslaan.
Ik hoop dat dit u zal helpen de volgende keer dat u probeert namen, e-mail-ID's of adres met mensen te communiceren via een telefonisch gesprek.
Laat me weten wat je van deze Excel-sjabloon vindt door hieronder een reactie achter te laten.
Andere Excel-sjablonen die u misschien leuk vindt:
- Taakprioriteringsmatrixsjabloon.
- Sjabloon voor e-mailgenerator.
- Sjabloon voor het bijhouden van werknemersverlof.
- Werknemer Timesheet Calculator Template.
- Kalender geïntegreerd met een takenlijstsjabloon.
