Genere un código alfabético militar para un texto en Excel

"A" como en Alfa, "B" como en Bravo, "C" como en Charlie. ¿Escuchaste estas frases antes?

Estos se denominan código alfabético militar (también conocido como código alfabético OTAN). A menudo lo utilizan las personas (especialmente los del centro de llamadas) para comunicar el nombre, la dirección de correo electrónico o la dirección de casa / oficina.

Generar código de alfabeto militar en Excel

En mi primer trabajo, obtuve un proyecto en el que tenía que hacer llamadas en frío para obtener información sobre dispositivos médicos. Dado que nos conectábamos con personas de todo el mundo con todo tipo de acentos, a veces era difícil compartir nuestro nombre y correo electrónico u obtener el de ellos. Fue entonces cuando comencé a confiar en los códigos alfabéticos militares para comunicarme con claridad. He visto a muchos empleados de centros de llamadas hacer esto de manera efectiva.

Con esto en mente, he creado una plantilla de Excel donde puede ingresar una cadena de texto y generará automáticamente el código del Alfabeto militar para el texto ingresado.

Algo como se muestra a continuación:

Tan pronto como ingrese el texto y presione Enter, se generará automáticamente el código del alfabeto militar para cada alfabeto en la cadena de texto.

Tenga en cuenta que, en este caso, los números y los caracteres especiales se mostrarán tal cual. Además, esto funcionaría con cualquier caso: inferior o superior.

Dado que este libro de trabajo contiene una macro, tan pronto como lo abra, es posible que vea una barra amarilla con el botón - Habilitar contenido. Debe hacer clic en este botón para que esto funcione.

Cómo crear esta plantilla de generador de código alfabético militar

Esta plantilla funciona puramente en VBA magic. Hay un par de bucles dentro del procedimiento de evento de cambio de hoja de trabajo que simplemente verifica cada alfabeto y busca la palabra de código para ese alfabeto.

Aquí está el código VBA que hace el trabajo:

Private Sub Worksheet_Change (ByVal Target As Range) 'creado por Sumit Bansal de trumpexcel.com Dim alphabetcount As Integer Dim alphabet As String Dim result Como String Dim i As Integer Dim TargetColumn As Integer Dim TargetRow As Integer On Error Resume Next TargetColumn = Target. Columna TargetRow = Target.Row If TargetColumn = 4 And Cells (TargetRow, TargetColumn) = "" Entonces Cells (TargetRow, TargetColumn + 1) = "" Salir de 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 Entonces 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 (resultado) - 4) End If End Sub

Si desea cambiar un par de estas palabras de código para que se adapten a su audiencia / región, simplemente puede cambiarlas en la columna B del archivo de descarga. El código seleccionaría automáticamente los códigos modificados.

Tenga en cuenta que, dado que este libro contiene una macro, debe guardar el archivo en formato .xls o .xlsm.

Espero que esto le ayude la próxima vez que intente comunicar nombres, identificaciones de correo electrónico o direcciones con personas a través de una conversación telefónica.

Hágame saber lo que piensa de esta plantilla de Excel dejando un comentario a continuación.

Otras plantillas de Excel que le pueden gustar:

  • Plantilla de matriz de priorización de tareas.
  • Plantilla de generador de correo electrónico.
  • Plantilla de seguimiento de ausencias de empleados.
  • Plantilla de calculadora de hoja de horas trabajadas para empleados.
  • Calendario integrado con una plantilla de lista de tareas pendientes.

Va a ayudar al desarrollo del sitio, compartir la página con sus amigos

wave wave wave wave wave