[發問] 請問listbox清單要show出所有sheet並排除指定sheet

lifedidi

大大好：
假如我的檔案裡有 A B C D E F G 七個sheet

小弟現在Listbox的編碼為

Dim XY As Worksheet, j As Variant
    For Each XY In Sheets
    j = XY.Name
    ListBox1.AddItem j
    Next

但是假如我要排除 A 跟 C 兩個sheet 不要show在 Listbox上 該怎麼寫呢？ 謝謝！！

stillfish00

回復 1# lifedidi

1. Dim XY As Worksheet, j As Variant
   
2. For Each XY In Sheets
   
3.      j = XY.Name
   
4.     if j<>"A" and j<>"C" then ListBox1.AddItem j
   
5. Next

複製代碼

lifedidi

回復 2# stillfish00


    謝謝stillfish00大大！！