VBA Excel 正余弦函数

Question

我正在尝试编写一个短三角函数，想在 VB 中使用正弦和余弦函数，我对此很陌生，因为这是我第一次在 VB 中编码。

在下面查看我要完成的工作：

Function XXX(HR, HR_RL, abc)

Const PI As Double = "3.141593"

AC = Sqr(HR ^ 2 + HR_RL ^ 2 - 2 * HR * HR_RL * Cos(abc * PI / 180))

VB 抱怨 Cos 和 Sqr 两件事。

似乎它们都是内置的 VBA 函数，但不知何故我无法对它们求值，结果，AC 变量 = 空。

事实上，它似乎甚至没有超过 "Cos(abc * PI / 180)"。如果我用一个数值替换 "Cos(abc * PI / 180)"（只是为了看看还有什么地方是另一个问题），肯定够了，现在 VB 抱怨 "Sqr".

Answer 1

进入 VBA 编辑器菜单和 select Tools -> References...，然后检查 System 库。它将使您能够访问所有数学函数。

VBA Excel sine cosine functions