Question

我正在尝试创建一个函数，该函数将获取格式化为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'方法'范围'对象'_Global'失败

我也已经格式化了格式化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

在VBA子中使用自定义VBA功能

1 个答案: