標題: [發問] (已解決)重排工作表順序 [打印本頁]

---

作者: freeffly    時間: 2011-10-20 10:49     標題: (已解決)重排工作表順序

本帖最後由 freeffly 於 2012-2-22 16:56 編輯

我想問如果我要在第一各工作表那邊編排工作表順序
再讓工作表照排完之後的順序去排要如何寫?







[attach]8281[/attach]

---

作者: Hsieh    時間: 2011-10-20 11:09

本帖最後由 Hsieh 於 2011-10-20 11:12 編輯

回復 1# freeffly

1. Sub nn()
   
2. For i = [B65536].End(xlUp).Row To 2 Step -1
   
3.    Sheets(Cells(i, 2).Value).Move before:=Sheets(1)
   
4. Next
   
5. End Sub

複製代碼

或

1. Sub nn()
   
2. For Each a In Range([B2], [B65536].End(xlUp))
   
3.    Sheets(a.Value).Move after:=Sheets(Sheets.Count)
   
4. Next
   
5. End Sub

複製代碼

---

作者: freeffly    時間: 2011-10-20 11:20

回復 2# Hsieh


    感謝大大
       第二各可以
       第一各有問題
       看完程式碼後
        本來想不通為什麼
       原來跟大風吹一樣
        真是妙!!

---

作者: Hsieh    時間: 2011-10-20 17:42

回復 3# freeffly


    在一般模組使用就必須指定工作表

1. Sub nn()
   
2. With Sheets("Sheet159")
   
3. For i = .[B65536].End(xlUp).Row To 2 Step -1
   
4.    Sheets(.Cells(i, 2).Value).Move before:=Sheets(1)
   
5. Next
   
6. End With
   
7. End Sub

複製代碼

---

作者: freeffly    時間: 2011-10-21 17:38

回復 4# Hsieh


    謝謝大大指導
       沒注意到這各問題

---

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