Function não resolve expressões com casas decimais
Enviado: 02 Jun 2016 às 18:06
Boa noite, amigos!
Utilizei este código, que citarei abaixo, para realizar a seguinte operação: Qualquer texto inserido numa dada célula - nesse caso expressões matemáticas - seriam "resolvidos", entretanto sem a utilização do "=" para obter uma formula.
Por ex: Na célula A1 estava escrito "6*2" e na célula A2, utilizando a função feita no VBA, obteria o resultado da célula A1, ou seja, 12.
O único problema é que ele não está resolvendo operações com números decimais. Já testei com fração, sen, cos, ln e funciona normalmente.
OBS: Sou leigo em VBA
Segue o código:
ublic Function CalculaFormula(txt As String) As Double
CalculaFormula = IIf(txt = "", 0, Evaluate(txt))
End Function
Seria problema nas configurações do excel ou algo na programação?
Espero que tenha ficado claro,
Grato desde já!!
Utilizei este código, que citarei abaixo, para realizar a seguinte operação: Qualquer texto inserido numa dada célula - nesse caso expressões matemáticas - seriam "resolvidos", entretanto sem a utilização do "=" para obter uma formula.
Por ex: Na célula A1 estava escrito "6*2" e na célula A2, utilizando a função feita no VBA, obteria o resultado da célula A1, ou seja, 12.
O único problema é que ele não está resolvendo operações com números decimais. Já testei com fração, sen, cos, ln e funciona normalmente.
OBS: Sou leigo em VBA

Segue o código:
ublic Function CalculaFormula(txt As String) As Double
CalculaFormula = IIf(txt = "", 0, Evaluate(txt))
End Function
Seria problema nas configurações do excel ou algo na programação?
Espero que tenha ficado claro,
Grato desde já!!