对象必需错误424

Question

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

Function MySheet()

    MySheet = Application.Caller.Worksheet.Name

End Function

但它始终保持需要返回的对象突出显示
MySheet = Application.Caller.Worksheet.Name 。

请帮忙。

Answer 1

在检索Worksheet .Name属性之前，需要Application.Caller的Range.Parent 属性 。

Function MySheet()

    MySheet = Application.Caller.Parent.Name

End Function

前提是您在工作表上将此功能用作UDF¹工作表功能。

---

¹ _{将用户定义的功能（也称为UDF）放入标准模块代码表中。 点击Alt + F11 ，当VBE打开时，立即使用下拉菜单插入►模块 （ Alt + I ， M ）。 将功能代码粘贴到新的模块代码表中，该代码表的标题类似于Book1-Module1（代码） 。 点击Alt + Q返回到您的工作表。}

Answer 2

昏暗的ws作为工作表集ws = activeworksheet

然后尝试从ws.name获取名称