Insira o código seguinte em um novo módulo e aplique a fórmula na sua planilha:
Public Function FÓRMULATEXTO(rCell As Range, Optional Igual As Boolean = True) As String
If Igual = True Then
FÓRMULATEXTO = rCell.FormulaLocal
Else
If Left(rCell.FormulaLocal, 1) = "=" Then
FÓRMULATEXTO = Mid(rCell.FormulaLocal, 2, Len(rCell.FormulaLocal) - 1)
Else
FÓRMULATEXTO = rCell.FormulaLocal
End If
End If
End Function
Deixei com dois argumentos, sendo que o primeiro é o endereço de célula e o segundo argumento é opcional VERDADEIRO ou FALSO para tirar o sinal de igual no resultado, exemplo:
Célula A1 com a fórmula: =1+2
=FÓRMULATEXTO(A1) resultado-> =1+2
=FÓRMULATEXTO(A1;FALSO) resultado-> 1+2
Importante salvar seu arquivo como xlsm.
Abraços!
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 : 25/09/2015 7:13 am