VBA怎么在一个工作表创建一个按钮去控制其他工作表上的按钮？

Question

例如: 在Sheet1上创建了一个清除数据按钮"清除数据1"→Range("A1:A5").ClearContents，在Sheet2上创建另一个清除数据按钮"清除数据2"→Range("A1:A5").ClearContents，在Sheet3上创建一个按钮，当点击它时，"清除数据1"和"清除数据2"就会运行，清除A1:A5的数据，这个程序要怎么写，大神有空的话可不可以帮忙看看哈，尝试着写，结果也只能控制一个

Answer 1

只在Sheet3放一个按钮就行。

按钮指定到SUB

Sub 清空数据()
Sheet1.[A1:A5].ClearContents
Sheet2.[A1:A5].ClearContents
End Sub
补充说明：
工作表名Sheet1是指工作表的大名，不一定与左下角看到的工作表名相同，
工作表的大名是不能更改的，平时咱们对工作表重命名，是改的小名。
在VBA编辑器的左侧栏中，可能看到：工作表大名(工作表小名)
在VBA中，对工作表的称呼有三种：
第一种就是刚才说的大名，写法为：
Sheet1.range("A1")
第二种是工作表小名，就是可以重命名的名称，写法为：
Sheets("汇总表").range("A1")
第三种是顺序名，按从左到右的顺序，
比如左边第1张表写法为：
Sheets(1).range("A1")
比如最后一张表的写法为：
Sheets(Sheets.count).range("A1")
顺序名的写法，不是指固定的表，因为可以人为移动表的顺序，但是Sheets(1)永远是指第1张表，不论是怎么移动表的顺序。追问

谢谢哈，好简洁的语句，我这外行想得太复杂了，(*/ω＼*)哈哈~

追答

单元格的写法：

第一种：

这种写法只能写死的格或区域，无法使用变量

[A1]

[A1:A5]

第二种：

这种写法行号可以使用变量

range("A1")

range("A1:A5")

range("A" & ir1 & ":A" & ir2)

第三种：

这种写法行号和列号可以使用变量，

这里指的是列序号数字，不是列字母，

当然，列号用字母也可以，要打双引号。

Cells(1,1) '指A1单元格

Cells(1,"A") '指A1单元格

Cells(Cells(1,1),Cells(10,3)) '指A1:C10区域

Cells(Cells(1,"A"),Cells(10,"C")) '指A1:C10区域

使用变量示例：

Sub 九九乘法表()

    Dim i%, t%

    For i = 1 To 9

        For t = 1 To 9

            Cells(i, t) = i & "X" & t & "=" & i * t

        Next

    Next

    MsgBox "处理完成", 64, "提示"

End Sub

来自：求助得到的回答