使用带有变量的 excel 内置函数

Question

我是一个 excel 菜鸟，试图制作一个自定义 excel 函数，该函数在计算角度正弦值时使用度数。

Public Function SIND(number As Double)
Formula = "SIN(RADIANS(number))"
Formula = Replace(Formula, "number", number)
SIND = Evaluate(Formula)
End Function

到目前为止我有这个但它不起作用

Answer 1

这里有一个更好的方法：

Public Function SIND(degrees As Double) As Double
  Dim Rads As Double
  Rads = WorksheetFunction.Radians(degrees)
  SIND = Sin(Rads)
End Function

你的方法的主要问题是你混合了字符串函数来进行数学计算，这不是最好的方法。

使用带有变量的 excel 内置函数

Using excel built-in functions with a variable

excel

vba

function

trigonometry

degrees