Genera codice alfabetico militare per un testo in Excel

"A" come Alpha, "B" come Bravo, "C" come Charlie. Hai già sentito queste frasi?

Questi sono chiamati codice alfabetico militare (noto anche come codice alfabetico NATO). Viene spesso utilizzato dalle persone (soprattutto i ragazzi del call center) per comunicare il nome, l'indirizzo e-mail o l'indirizzo di casa/ufficio.

Genera codice alfabetico militare in Excel

Nel mio primo lavoro, ho avuto un progetto in cui dovevo fare chiamate a freddo per ottenere alcune informazioni sui dispositivi medici. Dato che ci connettevamo con persone provenienti da tutto il mondo con tutti i tipi di accenti, era - a volte - difficile condividere il nostro nome e la nostra e-mail o ottenere la loro. Fu allora che iniziai a fare affidamento sui codici alfabetici militari per comunicare in modo chiaro. Ho visto molti ragazzi del call center farlo in modo efficace.

Con questo in mente, ho creato un modello Excel in cui è possibile inserire una stringa di testo e genererà automaticamente il codice dell'alfabeto militare per il testo inserito.

Qualcosa come mostrato di seguito:

Non appena inserisci il testo e premi Invio, genererà automaticamente il codice alfabeto militare per ogni alfabeto nella stringa di testo.

Nota che in questo caso, i numeri e i caratteri speciali verrebbero mostrati così come sono. Inoltre, questo funzionerebbe con entrambi i casi: inferiore o superiore.

Poiché questa cartella di lavoro contiene una macro, non appena la apri, potresti vedere una barra gialla con il pulsante - Abilita contenuto. È necessario fare clic su questo pulsante affinché funzioni.

Come creare questo modello di generatore di codici alfabetici militari

Questo modello funziona esclusivamente con la magia VBA. Ci sono un paio di cicli all'interno della procedura dell'evento Modifica foglio di lavoro che controlla semplicemente ogni alfabeto e recupera la parola in codice per quell'alfabeto.

Ecco il codice VBA che fa il lavoro:

Private Sub Worksheet_Change(ByVal Target As Range) 'creato da Sumit Bansal di trumpexcel.com Dim Alphabetcount As Integer Dim alfabeto As String Dim risultato As String Dim i As Integer Dim TargetColumn As Integer Dim TargetRow As Integer On Error Resume Next TargetColumn = Target. Colonna TargetRow = Target.Row If TargetColumn = 4 And Cells(TargetRow, TargetColumn) = "" Then Cells(TargetRow, TargetColumn + 1) = "" Esci da Sub End If If TargetColumn = 4 Poi 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 & ", " & alfabeto Else risultato = risultato & ", " & Intervallo ("A2: A27"). Trova (alfabeto). Offset (0, 1) End If Next i Cells (TargetRow, TargetColumn + 1) = Mid (risultato, 3, Len (risultato) - 4) End If End Sub

Se desideri modificare un paio di queste parole in codice per adattarle al tuo pubblico/regione, puoi semplicemente modificarle nella colonna B del file di download. Il codice sceglierà automaticamente i codici modificati.

Si noti che poiché questa cartella di lavoro contiene una macro, è necessario salvare il file in formato .xls o .xlsm.

Spero che questo ti possa aiutare la prossima volta che provi a comunicare nomi, ID e-mail o indirizzi con le persone durante una conversazione telefonica.

Fammi sapere cosa ne pensi di questo modello Excel lasciando un commento qui sotto.

Altri modelli di Excel che potrebbero piacerti:

  • Modello di matrice di priorità delle attività.
  • Modello di generatore di posta elettronica.
  • Modello di monitoraggio delle ferie dei dipendenti.
  • Modello di calcolatrice del foglio presenze dei dipendenti.
  • Calendario integrato con un modello di lista delle cose da fare.
wave wave wave wave wave