For Each ªºrange¡Adatatype For, Each

m09903020

For Each ªº½d³ò³¡¤À§Ú¯uªº¤£À´@@..­n«ç»ò´ú¸Õ¤F  ©ó¬O¤W¨Óµo°Ý
§Úªº·Qªk¬O·Q¥Î¦r¦êªº¤è¦¡ K1 = (G & Str(ordernum + 1)) §Î¦¨ for each G in range(G2,K2)¡A¦ýª«¥ó«á­±.end(xlDown)¦ü¥G¤£¦Y³o®M¥H¦Ü©óK1¦³°ÝÃD¡A
¦Ó§Ú¦³¼Æµ§­q³æ­n¶]  ¤£ª¾¹D³o¼Ë¼gªk¤£¦X¾A¦b­þ?
javascript:;
½Ð°Ý¤@¤UFor Each ªºRange() ¬A¸¹¸ÌÃä»Ý­n°ÊºA§ïÅܪº¤èªk¦³¤°»ò¼gªk?

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)  '§ì­q³æªº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)) '§ì­q³æªºG±Æ²Äordernum+1­Ócol
   
10.   'K1¤£ª¾¹D­þ¸Ì¦³°ÝÃD
    
11. end sub

½Æ»s¥N½X

m09903020

­ì¨Ó¦p¦¹^^   §Ú³]ÅܼƮÉÀ³ÁקK¨Ï¥Î Excel ªº¤w¨Ï¥Îªº ÃöÁä¦r

GBKEE

¦^´_ 3# m09903020
Åܼƪº³]©w À³ÁקK¨Ï¥Î Excel ªº¤w¨Ï¥Îªº ÃöÁä¦r
¦pÅÜ¼Æ G1="A1:C1"   Range( G1) =>[ A1:C1 ]

m09903020

ÁÂÁÂGBKEE¡A¦A½Ð±Ð¤@°Ý¡A±z»¡¤£±µ¨üÅܼƬO"´N¹³G1=>ª½±µ¶ë¦ì¸mµ¹¥¦"ªº·N«ä¶Ü?

GBKEE

¦^´_ 1# m09903020
    [ ¤£±µ¨üÅÜ¼Æ ]        [ G1 ]->¤u§@ªíªºG1 ¦ì¸m
For Each G In Range([G1], [K1].End(xlDown)) '§ì­q³æªºG±Æ²Äordernum+1­Ócol
-> For Each G In Range(G1,Range( K1).End(xlDown))