如何使用VBA for Excel制作Cosd函数？

Question

我需要创建一个在Degrees中找到余弦的函数。我在Mac-OS Excel 2011上

Function cosd(d)
    deg = (d * 3.14159265358979) / 180    
    cosd = WorksheetFunction.Cos(deg)
End Function

它仍然不起作用。

Answer 1

你真的很接近你的功能唯一的麻烦（除了不声明你的变量是不好的做法）是Cos不是VBA功能。将您的功能更改为

Function cosd(d As Double) As Double
  cosd = Application.WorksheetFunction.Cos((d * Application.WorksheetFunction.Pi) / 180#)
End Function

它应该可以正常工作。