Jump to content

Recommended Posts

Posted

Não entendi o que queres fazer.

quero fazer um calculo tipo este sen(x)=(cos(y)*sen(z))/cos(h), que no final vai dar x=arsen (cos(y)*sen(z))/cos(h),

consegues perceber agora???

Pmg - isso vem eu rad certo?? como converto para graus?

obrigado

cumps

Posted

Experimenta gravar uma macro com os seguintes dados por exemplo:

Célula A1: =cos(20)

Célula A2: =sen(10)

Célula A3: =sen(5)

Célula B1: =ASEN((A1*A2)/A3)

Célula B2: =Grau(B1)

Na Célula B1 tens o valor do arcsen em radianos e na célula B2 tens o valor em Graus.

Depois no VBA vê o código que te dá....

Cumprimentos,

Posted

Obrigado.

ao escrever grau b1 passa automaticamente de radianos para graus?

Experimenta gravar uma macro com os seguintes dados por exemplo:

Célula A1: =cos(20)

Célula A2: =sen(10)

Célula A3: =sen(5)

Célula B1: =ASEN((A1*A2)/A3)

Célula B2: =Grau(B1)

Na Célula B1 tens o valor do arcsen em radianos e na célula B2 tens o valor em Graus.

Depois no VBA vê o código que te dá....

Cumprimentos,

Posted

estive a tentar e não consigo encontrar o código, não funciona com asin, ainda não consegui encontrar o código, alguém sabe???

Sim, o valor da célula B1 passa de radianos para graus.

cumprimentos,

Posted

O VBA tem as funções trignométricas (Sin, Cos e Tan), mas as funções trignométricas inversas, chamadas funções de arco, apenas tem o Atn.

Se queres calcular as outras terá de ser formulas baseadas no Atn tipo:

    Arccos(x) = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)

    Arcsin(x) = Atn(x / Sqr(-x * x + 1))

Todas as funções trignométricas em VBA são em Radianos.

Para converter graus de e para radianos tens de usar o PI:

    Graus= Radianos x 180 / PI

    Radianos = Graus x PI /180

O PI também não está definido no VBA.

Mas quando usas o VBA no Excel, direta opu indiretamente, tens as funções trignométricas todas incluindo as conversões.

Estas funçõers são acedidas em WorksheetFunction, nomeadamente:

    WorksheetFunction.Degrees(Radianos)

    WorksheetFunction.Radians(Graus)

    WorksheetFunction.Acos(Coseno)

    WorksheetFunction.Asin(Seno)

    WorksheetFunction.Pi()

    e muitas mais ...

Nas folhas de calculo as funções têm nomes em português, mas em VBA eles são sempre em inglês.

O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.