VBA Button Application.Caller返回错误的行

如何解决VBA Button Application.Caller返回错误的行

我尝试在myexcel工作簿的不同工作表中的多个按钮上使用以下命令。

MsgBox (ActiveSheet.Shapes(Application.Caller).TopLeftCell.row)

将这些按钮复制到工作簿的另一个区域时，有时会出现一个问题，即仍然显示原始按钮位置的行号。例如，在下面的屏幕截图中，我单击了底部的按钮，但是它返回的是705行而不是739行。有人可以解释此行为吗？

解决方法

确保所有按钮具有唯一的名称。有时，复制的按钮可能具有相同的名称（由于Excel中的错误）。然后，VBA无法区分它们，并使用它找到的第一个。检查所有按钮名称，并确保它们唯一。

此问题可以轻松重现：

1. 打开新工作簿
2. 添加按钮（FormControl）
3. 命名为MyButton
4. 复制该按钮
5. 将其粘贴到同一张纸的其他位置
6. 将问题代码用于两个按钮

该按钮现在将始终显示第一个按钮的行，因为两者的名称完全相同。

^{图像1：说明如何发生此问题。最后，两个按钮显示相同的行值。因为它们具有相同的名称，所以VBA只能找到第一个。}

解决方法是，一旦您立即复制按钮，请确保将其重命名为唯一名称。

,

我从来没有想过复制相同名称的形状。仅保留了它的标题...但是，由于人们认为这是可能的，请尝试将代码分配给讨论中的所有形状。如果形状重复名称是原因，则代码将返回两次：

Sub callButName()
Dim sh As Shape
 For Each sh In ActiveSheet.Shapes
   If sh.Name = Application.Caller Then MsgBox sh.TopLeftCell.Address
 Next
End Sub