除了指定工作表外，删除其他的控件按钮

AA5242

1、除了指定工作表外，删除其他的控件按钮
2、保留工作表【销售】和【进货】控件按钮
3、老师帮忙看下。

opel-wong

试试这个：

1. Sub 删除控件()
   
2.     Dim ws As Worksheet, i As Integer, shp As Shape
   
3.     For Each ws In Worksheets
   
4.         If ws.Name <> "销售" And ws.Name <> "进货" Then
   
5.             If ws.Shapes.Count > 0 Then
   
6.                 For Each shp In ws.Shapes
   
7.                     shp.Delete
   
8.                 Next
   
9.             End If
   
10.         End If
    
11.     Next
    
12. End Sub
    

复制代码

lsc900707

1. Sub gj23w98()
   
2.     For Each sht In Sheets
   
3.         If InStr(1, "销售,进货", sht.Name) = 0 Then
   
4.             For Each shp In sht.Shapes
   
5.                 shp.Delete
   
6.             Next
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

AA5242

lsc900707 发表于 2019-9-8 22:52

工作表名【销售】和【进货】对应sheet3和sheet4。
可以用sheet3和sheet4来表达吗（工作表名经常要修改）