‘A’ como em Alpha, ‘B’ como em Bravo, ‘C’ como em Charlie. Já ouviu essas frases antes?
Eles são chamados de Código do Alfabeto Militar (também conhecido como código do alfabeto da OTAN). É frequentemente usado por pessoas (especialmente os caras do call center) para comunicar o nome, endereço de e-mail ou endereço residencial / comercial.
Gerar código do alfabeto militar no Excel
No meu primeiro emprego, consegui um projeto em que tinha que fazer ligações para obter algumas informações sobre dispositivos médicos. Como estávamos nos conectando com pessoas de todo o mundo com todos os tipos de sotaques, era - às vezes - difícil compartilhar nosso nome e e-mail ou obter o deles. Foi então que comecei a confiar nos códigos do alfabeto militar para me comunicar com clareza. Tenho visto muitos caras do call center fazerem isso de forma eficaz.
Com isso em mente, criei um modelo do Excel onde você pode inserir uma string de texto e ele irá gerar automaticamente o código do alfabeto militar para o texto inserido.
Algo conforme mostrado abaixo:
Assim que você inserir o texto e pressionar Enter, o código do alfabeto militar será gerado automaticamente para cada alfabeto na string de texto.
Observe que, neste caso, os números e caracteres especiais seriam mostrados como estão. Além disso, isso funcionaria com qualquer caso - inferior ou superior.
Como esta pasta de trabalho contém uma macro, assim que abri-la, você poderá ver uma barra amarela com o botão - Habilitar Conteúdo. Você precisa clicar neste botão para que isso funcione.
Como criar este modelo de gerador de código do alfabeto militar
Este modelo funciona puramente com a magia do VBA. Existem alguns loops dentro do procedimento de evento de alteração da planilha que simplesmente verifica cada alfabeto e busca a palavra de código para aquele alfabeto.
Aqui está o código VBA que faz o trabalho:
Private Sub Worksheet_Change (ByVal Target As Range) 'criado por Sumit Bansal de trumpexcel.com Dim alphabetcount As Integer Dim alphabet As String Dim resultado As String Dim i As Integer Dim TargetColumn As Integer Dim TargetRow As Integer On Error Resume Next TargetColumn = Destino. Coluna TargetRow = Target.Row If TargetColumn = 4 And Cells (TargetRow, TargetColumn) = "" Then Cells (TargetRow, TargetColumn + 1) = "" Sair Sub End If If TargetColumn = 4 Then alphabetcount = Len (Cells (TargetRow, TargetColumn )) Para i = 1 Para contagem alfabética + 1 alfabeto = Mid (Range (Target.Address), i, 1) If Range ("A2: A27"). Find (alfabeto) Is Nothing Then resultado = resultado & "," & alfabeto 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
Se desejar alterar algumas dessas palavras de código para se adequar ao seu público / região, você pode simplesmente alterá-las na coluna B no arquivo de download. O código escolheria automaticamente os códigos alterados.
Observe que, como esta pasta de trabalho contém uma macro, você precisa salvar o arquivo no formato .xls ou .xlsm.
Espero que isso o ajude na próxima vez que você tentar comunicar nomes, ids de e-mail ou endereços a outras pessoas por meio de uma conversa telefônica.
Deixe-me saber o que você acha deste modelo do Excel, deixando um comentário abaixo.
Outros modelos do Excel de que você pode gostar:
- Modelo de matriz de priorização de tarefas.
- Modelo de gerador de email.
- Modelo de rastreador de licenças de funcionários.
- Modelo de calculadora de quadro de horários de funcionários.
- Calendário integrado com um modelo de lista de tarefas pendentes.
