作者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