標題: [發問] 請問如何利用迴圈的方式去跑..另一個工作表內的儲純格內容的工作表 [打印本頁]

---

作者: 棋語鳥鳴    時間: 2012-4-11 19:36     標題: 請問如何利用迴圈的方式去跑..另一個工作表內的儲純格內容的工作表

假設我在a3~a9打上要做迴圈的工作表名稱!
請問要如何利用宣告變數及迴圈的方式去跑a3~a9這幾個名稱的工作表!
並讓其b1=5
在For下面的宣告變數設定
去做 A & i 的迴圈
不過好像會出錯
不知哪裡的問題
請各位大師指教...謝謝~~~
[attach]10405[/attach]

---

作者: Hsieh    時間: 2012-4-11 19:53

回復 1# 棋語鳥鳴

1. Sub ex()
   
2. Dim A As Range
   
3. For Each A In [A3:A9]
   
4.   Sheets(A.Text).[B1] = 5
   
5. Next
   
6. End Sub

複製代碼

---

作者: register313    時間: 2012-4-11 20:01

回復 1# 棋語鳥鳴

1. Sub xx()
   
2. For i = 3 To 9
   
3.   Sh = Sheets("工作表名稱").Range("A" & i)
   
4.   Sheets(Sh).[B1] = 5
   
5. Next i
   
6. End Sub
   
7. 
   
8. Sub yy()
   
9. For Each Sh In Sheets
   
10.   Set x = Sheets("工作表名稱").[A3:A9].Find(Sh.Name, , , xlWhole)
    
11.   If Not x Is Nothing Then Sheets(Sh.Name).[B1] = 5
    
12. Next
    
13. End Sub

複製代碼

---

作者: 棋語鳥鳴    時間: 2012-4-11 20:42

回復 2# Hsieh
回復 3# register313
原來還有這麼多方法...感謝兩位大大的教導~
現在才知道...原來有時宣告也可以不用dim as.......

---

作者: GBKEE    時間: 2012-4-11 20:56

本帖最後由 GBKEE 於 2012-4-11 20:58 編輯

回復 4# 棋語鳥鳴
有 Option Explicit 一定要 宣告變數
不加 Option Explicit 上程式容易出錯

1. Option Explicit
   
2. Sub xx()
   
3. For i = 3 To 9
   
4.   Sh = Sheets("工作表名稱").Range("A" & i)
   
5.   Sheets(Sh).[B1] = 5
   
6. Next i
   
7. End Sub
   
8. Sub yy()
   
9. For Each Sh In Sheets
   
10.   Set x = Sheets("工作表名稱").[A3:A9].Find(Sh.Name, , , xlWhole)
    
11.   If Not x Is Nothing Then Sheets(Sh.Name).[B1] = 5
    
12. Next
    
13. End Sub

複製代碼

---

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