For Each 的range，datatype For, Each

m09903020

For Each 的範圍部分我真的不懂@@..要怎麼測試了  於是上來發問
我的想法是想用字串的方式 K1 = (G & Str(ordernum + 1)) 形成 for each G in range(G2,K2)，但物件後面.end(xlDown)似乎不吃這套以至於K1有問題，
而我有數筆訂單要跑  不知道這樣寫法不合適在哪?
javascript:;
請問一下For Each 的Range() 括號裡邊需要動態改變的方法有什麼寫法?

1. Sub a()
   
2. Call cal_item_num_in_asile_5items(arr_order_list(i))
   
3. end sub
   
4. Sub cal_item_num_in_asile_5items(ByVal ordernum)  '抓訂單的arr_order_list(i)
   
5. Dim G, G1, K1 As String
   
6. 
   
7. G1 = (G & Str(ordernum + 1))
   
8. K1 = (G & Str(ordernum + 1))
   
9.   For Each G In Range([G1], [K1].End(xlDown)) '抓訂單的G排第ordernum+1個col
   
10.   'K1不知道哪裡有問題
    
11. end sub

複製代碼

GBKEE

回復 1# m09903020
    [ 不接受變數 ]        [ G1 ]->工作表的G1 位置
For Each G In Range([G1], [K1].End(xlDown)) '抓訂單的G排第ordernum+1個col
-> For Each G In Range(G1,Range( K1).End(xlDown))

m09903020

謝謝GBKEE，再請教一問，您說不接受變數是"就像G1=>直接塞位置給它"的意思嗎?

GBKEE

回復 3# m09903020
變數的設定 應避免使用 Excel 的已使用的 關鍵字
如變數 G1="A1:C1"   Range( G1) =>[ A1:C1 ]

m09903020

原來如此^^   我設變數時應避免使用 Excel 的已使用的 關鍵字