Logo Hardware.com.br
Cientista_Louco
Cientista_Lo... Membro Senior Registrado
373 Mensagens 6 Curtidas

Macro do excel no calc

#1 Por Cientista_Lo... 18/06/2012 - 18:03
Bom dia!...

Tenho um planilha que foi criada no exel 2003 e na mesma existe uma macro, conforme código abaixo. Tentei usar esta planilha, porém na célula onde consta a chamada para a macro aparece a seguinte mensagem:

#valor

No calc encontro a macro no seguinte local:

Ferramentas=>macro=>organizar macro=libreoffice base
==============================================
E ai encontro aqui:

Nome da planilha
VBA project
Modulos
Modulo1
==============================================
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1

Function rho15(rho, degc, ihydro)

ibase = 15
k0 = 613.9723
k1 = 0
irho = rho

If (irho >= 610.5 And irho <= 1075) And (degc >= -18 And degc <= 95) Then GoTo Dentro
If (irho >= 778 And irho <= 1075) And (degc >= 95 And degc <= 125) Then GoTo Dentro
If (irho >= 824 And irho <= 1075) And (degc > 120 And degc < 150) Then GoTo Dentro

Dentro:
idt = degc - ibase
irhot = irho
If (ihydro = 1) Then ihyc = 1 - (0.000023 * idt) - (0.00000002 * (idt ^ 2)) Else ihyc = 1
irhot = irhot * ihyc
irho15 = irhot
krho = 0
Do While Abs(irho15 - krho) > 0.01

alf = (k0 / irho15 ^ 2) + (k1 / irho15)
ivc = Exp(-alf * idt - 0.8 * alf ^ 2 * idt ^ 2)
irho15 = irhot / ivc
krho = irho15
alf = (k0 / irho15 ^ 2) + (k1 / irho15)
ivc = Exp(-alf * idt - 0.8 * alf ^ 2 * idt ^ 2)
irho15 = irhot / ivc
Loop

rho15 = krho

If (degc < -18) Then rho15 = -999.9
If (irho < 610.5) Then rho15 = -999.9
If (irho > 1075) Then rho15 = -999.9
If (degc > 95 And irho < 778.5) Then rho15 = -999.9
If (degc > 125 And irho < 824) Then rho15 = -999.9

End Function


A chamada da macro é feita da seguinte forma:

=rho15(d20;20;0)

Na célula D20 temos o seguinte valor numérico: 731,00,

Alguém sabe o que pode estar havendo?
Responder
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal