需要对象错误424

Question

我正在尝试使用VBA中的以下功能检索工作表名称并临时存储。

Function MySheet()

    MySheet = Application.Caller.Worksheet.Name

End Function

但它不断返回 所需的对象 突出显示 MySheet = Application.Caller.Worksheet.Name。

请帮忙。

Answer 1

您需要Range.Parent property的Application.Caller才能检索工作表.Name property。

Function MySheet()

    MySheet = Application.Caller.Parent.Name

End Function

这预先假定您在工作表上将其用作UDF¹工作表函数。

¹_{用户定义函数（又名UDF）被放入标准模块代码表中。点击 Alt + F11 ，当VBE打开时，立即使用下拉菜单插入►模块（ Alt + 我，中号）。将功能代码粘贴到标题为 Book1 - Module1（Code）的新模块代码表中。点击 Alt + Q 返回工作表。}

Answer 2

Dim ws as worksheet 设置ws = activeworksheet

然后尝试从ws.name

获取名称