Olá Mariany!
Como o Edcronos comentou, somente por VBA para fazer isso que você comentou, se é que compreendemos de fato a sua necessidade.
Apenas para você ver o que é possível fazer com VBA. Faça o teste com o código abaixo copiando e colando no módulo de alguma planilha:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim letra() As String
Dim x As Integer
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Application.EnableEvents = True
Exit Sub
End If
On Error GoTo erro
For x = 1 To Len(Target)
ReDim Preserve letra(1 To x)
Select Case Mid(Target.Text, x, 1)
Case 1
If Range("A1") = "" Then
letra(x) = Mid(Target, x, 1)
Else
letra(x) = Range("A1").Text
End If
Case 2
If Range("A2") = "" Then
letra(x) = Mid(Target, x, 1)
Else
letra(x) = Range("A2").Text
End If
Case 3
If Range("A3") = "" Then
letra(x) = Mid(Target, x, 1)
Else
letra(x) = Range("A3").Text
End If
Case 4
If Range("A4") = "" Then
letra(x) = Mid(Target, x, 1)
Else
letra(x) = Range("A4").Text
End If
Case 5
If Range("A5") = "" Then
letra(x) = Mid(Target, x, 1)
Else
letra(x) = Range("A5").Text
End If
Case 6
If Range("A6") = "" Then
letra(x) = Mid(Target, x, 1)
Else
letra(x) = Range("A6").Text
End If
Case 7
If Range("A7") = "" Then
letra(x) = Mid(Target, x, 1)
Else
letra(x) = Range("A7").Text
End If
Case 8
If Range("A8") = "" Then
letra(x) = Mid(Target, x, 1)
Else
letra(x) = Range("A8").Text
End If
Case 9
If Range("A9") = "" Then
letra(x) = Mid(Target, x, 1)
Else
letra(x) = Range("A9").Text
End If
Case 0
If Range("A10") = "" Then
letra(x) = Mid(Target, x, 1)
Else
letra(x) = Range("A10").Text
End If
Case Else
letra(x) = Mid(Target, x, 1)
End Select
Next x
Target.Value = Join(letra, "")
Application.EnableEvents = True
Exit Sub
erro:
Application.EnableEvents = True
End Sub
Para fazer isso, aperte ALT+F11 no Excel, do lado esquerdo deverá aparecer uma estrutura de pastas do Excel, que é parecido com o Windows Explorer. Localize o arquivo aberto e escolha uma das planilhas (Ex: Plan1) e dê dois cliques encima, que do lado direito vai aparecer a folha de códigos de planilha, e é ai que você deve colar o código. Feche o VBA.
O código funciona da maneira que você descreveu. Da célula A1 até A10, você vai colocar os símbolos desejados, e então em qualquer outra célula, ao digitar qualquer número, os números serão trocados de acordo com os simbolos definidos em A1:A10. A troca só vai ocorrer após dar ENTER, pois não há evento que roda ao estar editando uma célula.
Veja se é isso a sua idéia. E só de curiosidade, qual a intenção ou idéia dessa sua necessidade?
Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/
Postado : 13/04/2015 8:08 am