加载中…VBA删除工作簿指定N个工作表上所有按钮的几种方法
(2020-10-20 15:48:07)
标签：
excelvba |
分类： Excel相关 |
就我个人而言，VBA目前有三种删除工作簿指定N个工作表上所有按钮的方法，根据具体工作簿来确定用哪种方法，按理说，用方法１就可以了，但有时，方法１就是搞不定，所以，就有了第２种和第３种方法。
代码如下：
方法一：
'删除工作簿上所有工作表上的所有按钮
Dim sht As
Worksheet
With
ActiveWorkbook
For Each sht In Worksheets
'依次选择所有表
sht.Select
ActiveSheet.Shapes.SelectAll
'依次清除表格上的所有按钮
Selection.Delete
Next
Sheets("汇总表").Select
'打开新工作簿时显示的指定工作表
End With
'删除工作簿上指定工作表上所有按钮，这个方法笨一点，但可行。
Sheets("2020任务").Activate
ActiveSheet.Shapes.SelectAll
Selection.Delete
Sheets("2020基数").Activate
ActiveSheet.Shapes.SelectAll
Selection.Delete
Sheets("通讯录").Activate
ActiveSheet.Shapes.SelectAll
Selection.Delete
Sheets("数据汇总").Activate
ActiveSheet.Shapes.SelectAll
Selection.Delete
'删除工作簿上指定工作表上的所有按钮，有时候方法1行不通，那就用这个方法吧。
Dim sht2 As
Worksheet
With
ActiveWorkbook
For Each sht2 In Worksheets
If
sht2.Name = "报表" or sht2.Name = "分表" Then
sht2.Activate
ActiveSheet.Shapes.SelectAll
'清除表上按钮
Selection.Delete
End
If
Next
End With
Sheets("考核汇总").Select
Sub 按钮删除方法1()
End Sub
方法二：
Sub 按钮删除方法2()
End Sub
方法三：
Sub 按钮删除方法3()
End Sub
喜欢
0
赠金笔
前一篇：详解python中pip命令