Bom dia, Payzzanno.
Queria saber dos senhores se existe alguma função, não personalizada e sim do Excel
Como bem observou o Patropi, pelo fato de seu Excel ser mais antigo a função FórmulaTexto não está disponível.
Se fosse através de uma UDF seria bem simples, algo como:
Function udfFórmula(Célula As Range) As String
udfFórmula = IIf(Célula(1).HasFormula, Célula(1).FormulaLocal, "")
End Function
aí seria só inserir a função como uma fórmula normal, como vc bem sabe: =udfFórmula(A1)
Mas como vc não quer apelar para funções personalizadas no VBA, outra alternativa seria criar uma função do Excel 4.0 nomeada. Uma das principais desvantagens é que de qualquer forma será necessário salvar sua pasta como .xlsm ou .xlsb, fato que torna a versão em VBA mais atraente do que esta.
Para fazer por fórmula nomeada, supondo que em A1 esteja a fórmula que vc deseja extrair o texto e em B1 o destino, sendo B1 a célula ativa, ficaria algo como:
- Na guia Fórmulas, grupo Nomes Definidos, Definir Nome[/*:m:2nrnr9b6]
- No campo Nome, dê um nome para sua função, digamos Fórmula[/*:m:2nrnr9b6]
- No campo Refere-se a, insira:
=INFO.CÉL(6;A1)
assim estaria pronta sua "Fórmula"[/*:m:2nrnr9b6]
- Agora em B1, seria só inserir
= Fórmula[/*:m:2nrnr9b6][/list:u:2nrnr9b6]
Obs.: Logicamente vc pode incrementar sua INFO.CÉL usando referências relativas LC e/ou tornar o segundo parâmetro mais flexível usando DESLOC/INDIRETO, etc.
Postado : 06/04/2017 8:15 am