«Это имя недействительно» для моей функции VBA в Excel/Mac

Question

Простая функция VBA. Когда я пытаюсь использовать его на своем листе, все, что я получаю, независимо от того, что я делаю, - «Это имя недопустимо». У меня нет идей.

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

Я пробовал создать новый модуль для его ввода. Без изменений. И никаких указаний об ошибках от редактора кода.

Answer 1

Процедура Sub выполняет задачу и затем возвращает управление вызывающему коду, но не возвращает значение вызывающему коду.

Подробнее here.

При этом, вы не можете установить порядок, равный к чему-то:

FindABV = .Range("B28").Value 

потому , что имя не является действительным (вы не можете сказать, что процедура равна определенному значению, это не делает смысл). Вы, вероятно, хотели использовать Function, чтобы вернуть значение этой ячейки рассчитывается по цели Seeker в зависимости от входа temperature, что вы проходите мимо функции:

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 

Однако будьте осторожны: если =FindABV(temperature) лежит на Sheet1.Range("B28"), вы будет иметь круговую ссылку, потому что ваша функция будет пытаться получить значение самого себя.

Answer 2

Ваш код не даст желаемые результаты. Если вы хотите иметь Function работу для различных значений, чем те, хранящихся в B28 и C28 вам придется писать больше, как это:

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

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

    FindABV = changeCell 
End Function 

Но это не имеет значения, в любом случае, потому что на самом деле изменения GoalSeek значение в ChangingCell, которое Excel не будет выполнено, если оно вызвано из Function.