Isso pressupõe que:
- sua tabela de tradução está nas colunas A e B
- sua coluna de entrada de dados é a coluna C
- a coluna de entrada de dados como formatada como "00" ( para permitir que os zeros à esquerda sejam inseridos )
Coloque a seguinte macro de eventos na área de código da planilha:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range, A As Range, B As Range
Dim t As String
Set A = Range("A:A")
Set B = Range("B:B")
Set C = Range("C:C")
If Intersect(C, Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
t = Target.Text
With Application.WorksheetFunction
Target.Value = B(.Match(t, A, 0))
End With
Application.EnableEvents = True
End Sub
Por ser um código de planilha, é muito fácil de instalar e automático de usar:
- clique com o botão direito do mouse no nome da guia próximo à parte inferior da janela do Excel
- selecione View Code - isto traz uma janela do VBE
- cole as coisas e feche a janela do VBE
Se você tiver alguma dúvida, tente primeiro em uma planilha de teste.
Se você salvar a pasta de trabalho, a macro será salva com ela. Se você estiver usando uma versão do Excel posterior a 2003, deverá salvar o arquivo como .xlsm em vez de .xlsx
Para remover a macro:
- abrir as janelas do VBE como acima
- limpe o código
- feche a janela do VBE
Para aprender mais sobre macros em geral, veja:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
e
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Para saber mais sobre macros de eventos (código da planilha), consulte:
http://www.mvps.org/dmcritchie/excel/event.htm
As macros devem estar habilitadas para que isso funcione!
NOTA:
Você também deve incluir manipuladores de erros para cobrir os erros do operador!
VLOOKUPouINDEXeMATCHirão ajudá-lo.