作者：绿色风
分类：
时间：2022-08-18
浏览：115
楼主
zzmxy |
当我们要批量删除工作表时，如果工作表的名字或者排列顺序有规律可循，那么用For...Next或For Each循环很容易就可以实现，
但如果工作表的名字或顺序没有规律可循时，要怎么办呢？总不能逐个逐个确认工作表名称，然后再删除吧？
下面，我们利用ListBox（列表框），由于ListBox既可以单选也可以多选，这样，我们利用其MulitSelect的特性，将工作表名称添加到列表框里，
然后手动选择要删除的工作表名称，再执行删除即可，方便快捷。
下面是简单的实现代码，首先通过B1单元格的选择，来控制显示或隐藏ListBox；
实现的代码里，只使用了一个DblClick（双击）事件，当双击后，列表框内无内容，则将工作表名称添加到List里；
当双击时，列表框内已有内容，那么就根据选择的Item进行工作表删除。
当然，首先我们要对ListBox的一个属性设置一下，将MultiSelect设置为1 - fmMultiSelectMulti
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Address = "$B$1" Then ListBox1.Visible = True Else ListBox1.Visible = False
- '当选择B1单元格时，显示ListBox，否则隐藏
- End Sub
- Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
- With ListBox1
- If .ListCount = 0 Then '如果列表框内无内容，则执行下面内容
- For Each sht In Worksheets '遍历本工作簿的工作表
- If sht.Name <> ActiveSheet.Name Then .AddItem sht.Name
- '将除了当前工作表之外的所有工作表名称都添加到ListBox里
- Next
- Else '如果列表框内已有内容
- Application.DisplayAlerts = False '关闭程序的提示警告（主要屏蔽删除工作表时的提示）
- For i = 0 To .ListCount - 1 '循环列表框的各个List
- If .Selected(i) Then Sheets(CStr(.List(i))).Delete '如果该List被选中，则将相应的工作表删除
- Next
- ListBox1.Clear '清除列表框内容
- Application.DisplayAlerts = True '恢复程序的提示警告
- End If
- End With
- End Sub
效果演示及附件如下：del.gif
 ListBox To Delete Sheets.rar
|
2楼
水星钓鱼 |
不错，另外这个不是ｅ问ｅ答的格式，所以移到我的酷贴。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一