我在Excel / Mac中的VBA功能“该名称无效”

Question

A simple VBA function. When I try to use it in my worksheet, all I get, no matter what I do, is "That name is not valid". I'm out of ideas.

Sub FindABV(temperature)
With Worksheets("Sheet1")
    .Range("C28").GoalSeek _
    Goal:=temperature, _
    ChangingCell:=.Range("B28")
End With
FindABV = .Range("B28").Value
End Sub

I've tried creating a new Module to put it in. No change. And no error indications from the code editor.

Answer 1

The Sub procedure performs a task and then returns control to the calling code, but it does not return a value to the calling code.

See more here .

This said, you cannot set a procedure equal to something:

FindABV = .Range("B28").Value

because that name is not valid (you cannot say that a procedure is equal to a certain value, it doesn't make sense). You probably wanted to use a Function to return the value of that cell calculated by the Goal Seeker depending on the input temperature that you pass by the function:

Function FindABV(temperature)
With Worksheets("Sheet1")
    .Range("C28").GoalSeek _
    Goal:=temperature, _
    ChangingCell:=.Range("B28")
End With
FindABV = .Range("B28").Value '<-- return the value
End Function

However, be careful: if =FindABV(temperature) lies on Sheet1.Range("B28") , you will have a circular reference because your function will try to have the value of itself.

Answer 2

Your code will not deliver the results you want. If you want to have the Function work for different values than the ones stored in B28 and C28 you'll have to write it more like this:

Public Function FindABV(goalCell As Range, changeCell As Range, temperature As Double)

    goalCell.GoalSeek Goal:=temperature, ChangingCell:=changeCell

    FindABV = changeCell
End Function

But this doesn't matter in any case because GoalSeek actually changes the value in the ChangingCell which Excel will not do if it is called from within a Function .