Ошибка функции VBA «Отсутствует переменная объекта».Номер 91

Question

Excel продолжает светить с ошибкой «Отсутствует переменная объекта».Номер 91.

Function GetMonthRange(sheetMonth) As Range
GetMonthRange = ActiveCell.Range("A1:AB1")
End Function

Я почти уверен, что Excel поддерживает свой собственный буфер обмена.

Вот ссылка на весь файл.

https://github.com/okamura1967/Directors_project_sheet/blob/master/project-sheet-for-directors.vbs

Answer 1

С вашей функцией связано несколько ошибок.1. Если вы хотите вернуть диапазон, вы должны использовать Set, потому что Range - это объект.2. Параметр sheetMonth не используется. 3. Функция будет возвращать разные результаты в зависимости от того, какой будет активная ячейка при выполнении функции.4. Если это UDF, он не будет пересчитывать всякий раз, когда что-либо в A1: B1 изменяется, потому что A1: B1 не является параметром.

Что вы на самом деле пытаетесь сделать?

Answer 2

Я изменил вашу функцию на:

Function GetMonthRange() As Range
   Set GetMonthRange = ActiveSheet.Range("A1:AB1")
End Function

Кажется, теперь это работает для меня.