Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Equação Trigonométrica em VBA
Equação Trigonométrica em VBA
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,
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,
- Reinaldo
- 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
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
Re: Equação Trigonométrica em VBA
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.
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.
- Reinaldo
- 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
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
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
Re: Equação Trigonométrica em VBA
Rmarco,
Acho que agora funcionará, ficou excelente.
Muito agradecido mesmo.
Acho que agora funcionará, ficou excelente.
Muito agradecido mesmo.