標題: [發問] 請問listbox清單要show出所有sheet並排除指定sheet [打印本頁]

---

作者: lifedidi    時間: 2013-9-26 15:07     標題: 請問listbox清單要show出所有sheet並排除指定sheet

大大好：
假如我的檔案裡有 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    時間: 2013-9-26 16:52

回復 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    時間: 2013-9-27 13:33

回復 2# stillfish00


    謝謝stillfish00大大！！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)