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

棋語鳥鳴

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

下載 (44.35 KB)

2012-4-11 19:31

Hsieh

回復 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

回復 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

複製代碼

棋語鳥鳴

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

GBKEE

回復 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

複製代碼