標題: For Each 的range，datatype [打印本頁]

---

作者: m09903020    時間: 2012-6-3 14:43     標題: For Each 的range，datatype

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    時間: 2012-6-3 14:50

回復 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    時間: 2012-6-3 15:04

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

---

作者: GBKEE    時間: 2012-6-3 15:20

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

---

作者: m09903020    時間: 2012-6-4 10:08

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

---

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