Excel 在VBA中定义MoveButton函数的工作表

我有一个Excel文件，包含

5张

在

Sheet1

、

Sheet2

和

Sheet3

中，我有一个

按钮1

一旦用户单击其中一个按钮，所有

按钮1

应从其当前位置移动到范围

D9:E11

无论用户在哪个工作表中单击按钮

我试着使用来自的解决方案，但只有当我有两张工作表时，它才起作用
我试图添加

Sheet3

，但没有成功：

参数数目错误或属性赋值无效

---

我需要在代码中更改什么来指定我要将

按钮1

移动到范围

D9:E11

的每张图纸？

目前的程序最多只允许三个参数

MoveButton(sh As Worksheet, btnName As String, Optional shB As Worksheet)

请注意，MoveButton后面的逗号当前正在分隔这三个参数

你可以改变它，或者至少打三次电话

如果您决定修改调用者：

Sub Sample()
    MoveButton Sheet1, "Button 1", Sheet2
    MoveButton Sheet3, "Button 1", Sheet4
    MoveButton Sheet5, "Button 1"
End Sub

重读问题时，如果按钮仅在上述表格中，请使用：

Sub Sample()
    MoveButton Sheet1, "Button 1", Sheet2
    MoveButton Sheet3, "Button 1"
End Sub

Sub Sample()
    MoveButton Sheet1, "Button 1", Sheet2
    MoveButton Sheet3, "Button 1"
End Sub