ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] (¤w¸Ñ¨M)²Î­pÃC¦â¦¸¼Æ

¦^´_ 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

TOP

¦^´_ 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ªº´£¿ô,ªÈ¥¿.

TOP

¦^´_ 22# GBKEE
§Úªº¥»·N¬O¡G
01.png
2012-8-22 07:44

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

TOP

¦^´_ 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

TOP

¦^´_ 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

TOP

¦^´_ 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©Ê

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD