怎样使用VBA一个按钮执行两个不同程序

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行Private Sub CommandButton1_Click() If Me.CommandButton1.Caption="删除" Then Call删除 Else Call添加工作表 End IfEnd SubSub添加工作表() Dim sht As Worksheet For Each sht In Worksheets Me.ListBox1.AddItem sht.Name Next Me.CommandButton1.Caption="删除"End SubSub删除() Me.ListBox1.Clear Me.CommandButton1.Caption="添加工作表"End Sub

5、单击 “删除”按钮，列表框中的数据全部清除，同时“删除”二字已修改为“添加工作表”，按扭在此时的功能是为列表框添加条目，如图