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

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

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

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-2-22 17:02 ½s¿è

¦pªG§Ú¦³¤@­Ó¸ê®Æ¬O¥Î·í¤ë»ù®æ¤ñ¸û¤W¦¸¥æ©ö»ù®æ
·í»ù®æ¸û§C®É·|¼Ð¤WÃC¦â
­n¥Î¤°»ò¤è¦¡¥i¥H­pºâ¥X¸Ó¦CªºÃC¦â¥X²{¦¸¼Æ
´N¬O¸Ó²£«~­°»ù¦¸¼Æ?

·s¼W Microsoft Excel ¤u§@ªí (3).rar (1.63 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

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

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

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

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

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

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

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

¯uªº¦n¼F®`~

TOP

¦^´_ 18# Hsieh


    ÁÂÁ¤j¤jªá®É¶¡¸Ñ»¡
    ¨º¨â¥yªº¼gªk¹ï§Ú¨Ó»¡Áٻݭnªá®É¶¡¸Ì¸Ñ
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 17# freeffly


    Sub ex()
[AE:AE] = ""
R = 5'²Ä5¦C¶}©l
Do Until Cells(R, 2) = ""
Set Rng = Range(Cells(R, 3), Cells(R, "AD"))'C:ADÄ檺¦C½d³ò
i = 1
Do Until Rng(1, i) <> ""'§ä¨ì¸Ó¦Cªº²Ä¤@­Ó¼Æ­È¦ì¸m
i = i + 1
Loop
first = Rng(1, i): i = i + 1'§â²Ä¤@­Ó¼Æ­È°O¦í¡A·Ç³Æ±q²Ä¤@­Ó¼Æ­È«á¶}©l§ä¼Æ­È
For k = i To Rng.Count
  If Rng(1, k) > first Then cnt = cnt + 1'¦pªGÀx¦s®æ¼Æ­È¤ñ«e¤@­Ó¼Æ­È¤j¡A­p¼ÆªºÅܼƴN¥[1
  If Rng(1, k) <> "" Then first = Rng(1, k)'¦pªG¤£¬OªÅ®æ¡A´N§âÀx¦s®æªº­È°O¦í¡A·Ç³Æ¸ò¤U¤@­Ó¼Æ­È°µ¤ñ¸û
Next
Cells(R, "AE") = cnt: cnt = 0'¾ã¦C¶]§¹«á¡A´N§â­p¼Æªº­È¶ñ¤J¡AµM«áÂk¹s
R = R + 1'¤U¤@¦C
Loop
End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD