作者FebMyrtle (香桃木)
看板Visual_Basic
标题[VBA ] 定义需删除的 Sheet List Name 作删除
时间Fri Nov 11 23:34:26 2011
请教版上
我想在sheet1里作一个CommandButton可以自动删除sheet.name
但sheet.name的name是一个List 我想定义在sheet2的储存格内
可能是sheet2.range("A:A") 我该怎麽跑这个回圈去Check目前所有的sheets
有哪些是符合我的List而必须要删除的呢~感谢各位
目前是可以写出指定"abc" 但不想写死~List越长越多要一直改程式内容
Dim sheet As Worksheet
Application.DisplayAlerts = False
For Each sheet In Worksheets
If (sheet.Name = "abc") Then
sheet.Delete
End If
Next
Application.DisplayAlerts = True
Next
麻烦各位了~~~~~~~冏 感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.168.83.67
1F：→ qsss:对A栏执行While回圈, 如果为空就停止. 如果Sheet.Name等於A栏 11/14 11:19
2F：→ qsss:任一的值, 就执行Sheet.Delete并跳出While 11/14 11:19