Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
我的 excel 07 工作表上有各种相同的形状(相同的名称,相同的函数链接到它)。
我需要知道其中哪一个被按下(左上行/列)。Application.Caller 正确识别了名称,但由于它有多个实例,因此我无法识别它按下了哪个实例。
由于我多次复制这些形状,因此希望它们都被称为相同的。
根据上面 Tim Williams 的评论,可以通过以下方式唯一地重命名所有形状
Dim sh As Shape For Each sh In ActiveSheet.Shapes sh.Name = "Button_" & sh.ID Next sh
然后 Application.Caller 工作正常。对于某些应用程序,此解决方案可能看起来不太好,但它确实有效。