Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Equação Trigonométrica em VBA

Dúvidas gerais sobre Excel
Civil
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Sex Jan 23, 2015 3:24 pm

Equação Trigonométrica em VBA

Mensagem por Civil »

Boa Tarde pessoal,

Gostaria de saber como poderia ficar a seguinte equação em programação VBA:
X = 2 . Arccos [(1 - 2.h)/ D], onde X deve ser calculado em radianos.
Acontece que quando coloco a equação sem o Arccos (Acos em VBA) o desenvolvedor calcula certo, quando acrescento Acos, apresenta erro.
Desde já agradeço,


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Equação Trigonométrica em VBA

Mensagem por Reinaldo »

Experimente

Código: Selecionar todos

Sub cc()
Dim x As Single, h As Single, d As Single
h = 2
d = 8
x = 2 * Application.WorksheetFunction.Acos(CDec(((1 - 2 * h) / d)))
MsgBox x
End Sub


Civil
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Sex Jan 23, 2015 3:24 pm

Re: Equação Trigonométrica em VBA

Mensagem por Civil »

Bom dia Rmarco,
Muito Obrigado, vou testar agora mesmo.
valeu!


Civil
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Sex Jan 23, 2015 3:24 pm

Re: Equação Trigonométrica em VBA

Mensagem por Civil »

Rmarco,

Estou trabalhando com CommandButton4, logo preciso adaptar o que você me enviou a algo parecido com o que segue
mas não estou conseguindo. Aparece sempre erro de compilação, função não definida.

Private Sub CommandButton4_Click()
TextBox51 = 2 * Acos(CDec((1 - 2 * TextBox44 / TextBox45)))
End Sub

Quando puder e se tiver uma sugestão, por favor me dê essa força aí.
Obrigado.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Equação Trigonométrica em VBA

Mensagem por Reinaldo »

Até onde sei a função Acos não é nativa no VBA, então deve ser "chamada" utilizando application.worksheetfunction.
Tambem no seu primeiro exemplo 1-2*h estava entre parenteses, no ultimo não, isso afetara o resultado, veja no anexo as duas situações
Anexos
EquaçãoTrigonométrica.zip
(14.51 KiB) Baixado 170 vezes


Civil
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Sex Jan 23, 2015 3:24 pm

Re: Equação Trigonométrica em VBA

Mensagem por Civil »

Rmarco,

Acho que agora funcionará, ficou excelente.
Muito agradecido mesmo.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder