c_c_lai

¦^´_ 4# GBKEE

1.     Set Rng = Range("B2:I" & [A2].End(xlDown).Row)
   
2.     For Each R In Rng.Rows
   
3.         Set Rng = R.Cells(1)

½Æ»s¥N½X

±z¬°¦ó¤£¼g¦¨¡H

1.     Set Rng = Range("B2:I" & [A2].End(xlDown).Row)
   
2.     For Each R In Rng.Rows
   
3.         Set X = R.Cells(1)

½Æ»s¥N½X

GBKEE

¦^´_ 21# c_c_lai
Set X = R.Cells(1) ¦bµ{§Ç¤¤¬O·|ªí¹F©ú½T¨Ç , ¤£­×§ï¥¦¦b³oµ{§Ç¤¤¤@¼Ë¹F¨ì®ÄªG,
µ{¦¡¤¤¤] Dim  X As Range À³¦]¬O¤@®É§Ñ°O¥Î¥¦§a!
ÁÂÁ§Aªº´£¿ô,ªÈ¥¿.

c_c_lai

¦^´_ 22# GBKEE
§Úªº¥»·N¬O¡G

¤U¸ü (26.52 KB)

2012-8-22 07:44

½Ð±z§O¤¶·N¡A²ö»¡ªÈ¥¿¤@µü¤F¡I

GBKEE

¦^´_ 23# c_c_lai

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Integer, i As Integer, x As Integer
   
4.     Rng = 10
   
5.     i = 0
   
6.     For x = 1 To Rng   '³o¸Ì°j°é³Ì²×­È¤w³]©w=10 ¤£¨ü¥H«áªº¼vÅT
   
7.         Debug.Print x  '½Ð¦b§Y®Éµøµ¡¬Ý x ªºÅÜ°Ê
   
8.         i = i + 1
   
9.         Rng = i + 5    'RngÅܼƤ£¼vÅT°j°é³Ì²×­È
   
10.         x = Rng        '³o XÅܼƤ~·|¼vÅT°j°éªº¦¸¼Æ
    
11.     Next
    
12.     MsgBox "°j°é°jµ²§ô«á X= " & x
    
13. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 24# GBKEE
±z»~¸Ñ§Úªº·N«ä¡A§Úªº­«ÂI¶È¦b©ó Rng Åܼƪº¨Ï¥Î¡C

°²³]¡GFor X = 1 To Rng ~ Next X ¤§¤º®e«D±`½ÆÂø
1.  ¦pªG¦b For Next Loop ¤º Coding ®É¤@®É²¨©¿¡A¦P®É¤Þ¥Î¤F Rng ÅܼƨñN¨ä
      ­È§ïÅÜ¡F
2.  ¤§«á¡A ¦b For Next Loop «á¬q³B²z®É¡A¥ç¦P¼Ë¤Þ¥Î¤F Rng ÅܼƭȡA
      ¦¹³B¬O§Æ±æ¤Þ¥Î­ì¥ýªº Rng ÅܼƭȮɡA¥L©¿²¤¤F¦b For Next Loop ¤º
      ¤w²§°Ê¤F Rng ÅܼƭȡAµ²ªG°õ¦æµo¥Í¤F¤£¥i¹w´Áªº¿ù»~¡C
3.  ³oºØ±¡¨Æ±`©öµo¥Í¦b·í¼Ò²ÕÃe¤j¡A³B²z¤º®e½ÆÂø®Éªº¤£¸g·N³B²z¡C

¦Ó«D±zµ{¦¡ªº¸ÑĶ¡A ½Ð±z¨£½Ì¡C

GBKEE

¦^´_ 25# c_c_lai
¬Ý¹Ï¸Ñ¤å:  ¤@ª½¤£©ú¾é§Aªº¯u¥¿·N«ä
3.  ³oºØ±¡¨Æ±`©öµo¥Í¦b·í¼Ò²ÕÃe¤j¡A³B²z¤º®e½ÆÂø®Éªº¤£¸g·N³B²z¡C
¬O°Ú! ©Ò¥H¶·­n¥J²Ó¤ÏÂЪºÀˬdµ{¦¡½X ,°õ¦æ«áªº¥¿½T©Ê