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

这似乎对我有用。