将excel单元格值分配给函数

Question

我想将特定工作表中单元格的值分配给该函数，但是该函数返回零。下面是我的简单代码：

sidenav-close

Answer 1

您不应该尝试通过VBA用户定义函数Activate来工作。

Function TLGV(Modele As String, Pressure As Integer)

   'Total Load Grand Vitesse

   If Modele = "DCHC05" Then
       If Pressure = 30 Then
           TLGV = Worksheets("VC Types").Range("H4").Value
       End If
    Else
        'more stuff
    End If

End Function

实际上，您还应该提供父级工作簿参考。

Function TLGV(Modele As String, Pressure As Integer)

   'Total Load Grand Vitesse
   'reference the parent workbook
   with application.caller.parent.parent
     If Modele = "DCHC05" Then
       If Pressure = 30 Then
           TLGV = .Worksheets("VC Types").Range("H4").Value
       End If
      Else
        'more stuff
      End If
    End With

End Function