求教。。VBA中如何调用三角函数

yunzhimu

调用格式？是否能用参数表示角度?例如：tan kr

xinghesnak

Dim aa As Double
aa = 3.1415926
MsgBox Sin(aa

yunzhimu

哦，谢谢，我定义错了数据类型，怪不得一运行就无响应。还有就是没注意调用格式，直接调用不用加括号如 sin a

如果是计算式中使用的话，就需要加扩号。如 a=sin(as)/tan(bc)。很常识的东西，有时不注意。嘻嘻

yunzhimu

反正余弦函数需要自定义，下面是计算公式。

Public Function Arcsin(x As Double) As Double
  Arcsin(x) = Atn(x / Sqr(-x * x + 1))
End Function
Public Function Arccos(x As Double) As Double
  Arccos(x) = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
End Function