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

只在Sheet3放一个按钮就行。

按钮指定到SUB

Sub 清空数据()

Sheet1[A1:A5]ClearContents

Sheet2[A1:A5]ClearContents

End Sub

补充说明：

工作表名Sheet1是指工作表的大名，不一定与左下角看到的工作表名相同，

工作表的大名是不能更改的，平时咱们对工作表重命名，是改的小名。

在VBA编辑器的左侧栏中，可能看到：工作表大名(工作表小名)

在VBA中，对工作表的称呼有三种：

第一种就是刚才说的大名，写法为：

Sheet1range("A1")

第二种是工作表小名，就是可以重命名的名称，写法为：

Sheets("汇总表")range("A1")

第三种是顺序名，按从左到右的顺序，

比如左边第1张表写法为：

Sheets(1)range("A1")

比如最后一张表的写法为：

Sheets(Sheetscount)range("A1")

顺序名的写法，不是指固定的表，因为可以人为移动表的顺序，但是Sheets(1)永远是指第1张表，不论是怎么移动表的顺序。

'主菜单上添加自定义按钮

Sub addbtn()

Set myMenu = ApplicationCommandBars("worksheet menu bar")

Set Button = myMenuControlsAdd(Type:=msoControlButton)

ButtonCaption = "按钮" '按钮上的文字，填写你需要的

ButtonStyle = msoButtonIconAndCaption

ButtonFaceId = FaceId '按钮图标,数字比如8，系统存在的

ButtonOnAction = "OnAction" '按钮执行的宏名，填写你自己编写的宏的宏名

End Sub

建一个按钮，然后把下面代码复制进去

Public s, s1 As Integer

Private Sub CommandButton1_Click()

s = 97

s = s + s1

Range(Chr(s) & ":" & Chr(s))EntireColumnHidden = True

s1 = s1 + 1

End Sub 这样每单击一次就会按A、B、C、D。。。的顺序隐藏列。（已测试成功）

第一步：首先新建一个窗体，双击窗体，复制如下代码进去。Dim Cbtn As New BtnClick '定义Cbtn 一个类名Private Sub UserForm_Initialize()Dim ClickBtn As Object '定义一个对象名Set ClickBtn = MeCommandButton1 '给对象名关联按钮对象Cbtninit ClickBtn '关联BtnClick类End Sub每一行都有解释，就不一一介绍了，很明显的说明。

第二步：新建一个类模块，复制如下代码到类模块。'声明一个MSFormsCommandButton对象变量Private WithEvents btnObj As

在菜单栏右边空白处击右键，点右键菜单中的“窗体”或“工具箱”，在打开的的窗口中会看到，按钮样式的快捷图标，用鼠标点一下这个快捷图标然后在单元格窗口中按住鼠标左键不放拖动就可得到按钮了。

以上就是关于VBA怎么在一个工作表创建一个按钮去控制其他工作表上的按钮全部的内容，包括:VBA怎么在一个工作表创建一个按钮去控制其他工作表上的按钮、如何为VBA宏程序在EXCEL菜单栏上添加按钮、怎么用excel中的VBA来控制一个按钮等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！