在VBA子内使用自定义的VBA函数

我正在尝试创build一个函数，它将采用类似于5.23 * 10 ^ -3格式的单元格的值，并且可以在计算中使用它。

Sub Multiplication_Stuff Dim a As Double a = Range('ActiveSheet!$B$2').Value ***** c = multiplyme(a) Range("Sheet1!B7) = C End Sub Public Function multiplyme(a As Double) As Double multiplyme = a * 15 End Function 

我在代码中收到以下错误：

运行时错误“1004”方法'范围'对象'全局'失败

我也已经格式化的范围为c格式化，并收到相同的错误。 我宁愿它不从活动工作表拉，而是工作表1。

Answer 1

在VBA中，工作表和单元是两个不同的对象：

 Sub Multiplication_Stuff Dim a As Double, c As Double a = ActiveSheet.Range("B2").Value c = multiplyme(a) Sheets("Sheet1").Range("B7").Value = c End Sub Public Function multiplyme(a As Double) As Double multiplyme = a * 15 End Function