Página 1 de 1

Fórmula para obter resolução de expressões dadas em texto

Enviado: 01 Jun 2016 às 10:29
por PauloMelo95
Bom dia à todos.

Gostaria de saber se há como, por meio de alguma fórmula ou não, copiar o texto de determinada célula e inserir em outra na forma de função. Por exemplo: Tenho na célula A1 o texto "6*2" e gostaria que na célula A2 aparecesse "=6*2", ou seja, que mostrasse o resultado da expressão na célula A1 (12). Claro que de uma forma geral, independente do texto inserido na célula A1.

Obs.: Nesse caso o "texto" seria só expressões matemáticas.

Espero que tenha dado para ficar claro :|
Grato desde já! :D

Fórmula para obter resolução de expressões dadas em texto

Enviado: 01 Jun 2016 às 10:46
por FelipeMGarcia
Paulo, não sei se entendi bem o que deseja, mas segue:

Na célula A1 tem o texto '6*2 e na célula A2 coloque a fórmula ="="&A1

Abraços

Fórmula para obter resolução de expressões dadas em texto

Enviado: 01 Jun 2016 às 11:11
por PauloMelo95
Então, Felipe, usei sua fórmula e teoricamente deu certo. Na célula A2 apareceu "=6*2", mas queria que mostrasse "12", entende? A resposta da expressão na célula A1...

De qualquer forma muito obrigado! :D

Soluções de Operações Escritas em Determinada Célula

Enviado: 01 Jun 2016 às 11:48
por PauloMelo95
Bom dia à todos.

Gostaria de saber se há como obtermos o resultado de uma operação matemática de uma célula escrita em texto.

Por exemplo: Tenho na célula A1 o texto "6*2" e gostaria que na célula A2 mostrasse o resultado da célula A1, ou seja, que mostrasse 12. Basicamente como se eu tivesse escrito na célula A2 "=6*2". Para se aplicar em qualquer operação, independente do texto inserido na célula A1.

Espero que tenha dado para ficar claro... :|
Grato desde já! :D

Re: Fórmula para obter resolução de expressões dadas em text

Enviado: 01 Jun 2016 às 11:53
por Kledison
Olá,

uma possibilidade, em A1 digite '6*2, em A2 coloque a fórmula abaixo:
Código: Selecionar todos
=ESQUERDA(A1;PROCURAR("*";A1)-1)*DIREITA(A1;NÚM.CARACT(A1)-PROCURAR("*";SUBSTITUIR(A1;" ";"*";NÚM.CARACT(A1)-NÚM.CARACT(SUBSTITUIR(A1;"*";"")))))
Att

Re: Fórmula para obter resolução de expressões dadas em text

Enviado: 01 Jun 2016 às 11:58
por Kledison
Paulo,

fique atendo as regras do fórum.
Regra nº 9:
Não coloque perguntas duplicadas. Posts de natureza duplicada serão excluídos ou bloqueados.
Att

Re: Fórmula para obter resolução de expressões dadas em text

Enviado: 01 Jun 2016 às 12:41
por MichelExcel
Olá Paulo,

efetuar o que você precisa com fórmulas, de maneira genérica, não é possível. Então criei uma função bem simples no VBA para resolver seu problema. Basta colar o código abaixo em um módulo e então usar a função CalculaFormula que estará disponível no Excel. Perceba que desta forma o resultado da função é igual ao resultado da fórmula escrita como texto.
Código: Selecionar todos
Public Function CalculaFormula(txt As String) As Double
    CalculaFormula = IIf(txt = "", 0, Evaluate(txt))
End Function
Att.
#MichelExcel

Re: Fórmula para obter resolução de expressões dadas em text

Enviado: 01 Jun 2016 às 13:42
por PauloMelo95
Boa tarde!

Olá, Kledison!
Sua fórmula funcionou, mas somente para expressões com multiplicação. Mesmo assim muito obrigado!
Em relação ao repost que eu fiz acredito que tenha sido sem querer, minha primeira vez aqui no forum e eu estou meio perdido :? Não acontecerá novamente, vai desculpando.

Michel, meu caro, havia pensado que não tinha nenhum jeito de solucionar essa generalização somente pelo excel, por isso refiz o mesmo post nos temas de Macros e VBAs. Utilizei sua programação e funcionou exatamente como queria!!!! :D :D :D :D Obrigado!!!