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

­«·s½s¸¹

­«·s½s¸¹

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!°ÝÃD¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

Leov40.rar (13.8 KB)

¦^´_ 1# myleoyes


    §Ú¬O¤@­Ó·s¤â~ ¦³¶i¥h¬Ý§Aµoªº°ÝÃD~
    ¤U¦æ¬O§A´£¤§°ÝÃD
    [«e½ú!¦]¬°¸ê®Æ§R°£ªºÃö«Y³y¦¨½s¸¹µLªk³sÄò,§Æ±æ«ö¶s«á½s¸¹¯à°÷­«·s½s¸¹½Ð«ö¶s,³o´N¬O»Ý¨D,½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!]
    ³o¼Ëªº°ÝÃD,¥i¯à¬O§Ú¤å¾Çµ{«×¤£°÷¦n,¬Ý¤£À´.
    ­Y·Ó§A¦r­±¤Wªº»¡ªk,§A¦Û¤v¼gªº¤w¸g¬O²Å¦X«ö¶s«á·|­«·s½s¸¹
   ÁÙ¬O§A¦³¨ä¥Lªº·N«ä??????
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 2# hugh0620
²³æ»¡©ú¤@¤U
¼Ó¥D¥Øªº¥u¬OÀu¤Æµ{¦¡
¥HÅÞ¿è¨Ó»¡´N¬O­n±N¹s¶Ãªº½s¸¹­«·s¥Ñ1¶}©l
¹J¨ì»P«e®æ¤£¦P®É¥[1
¥H±z¹L¥hªº¾Ç²ßºA«×§Ú·QÀ³¸Ó¼g±o¥X¨Ó
¥u»Ý°j°é¶]§¹³o¨ÇÀx¦s®æ
¤¤¶¡¥[¤J§PÂ_¦Ó¤w
µù:¼Ó¥Dªºµo°ÝºA«×§Ú·Q¤j®a­n¤Þ¥H¬°§Ù
      ¦]¬°³o¼Ë©¹©¹·|±o¤£¨ì¦nªº¸Ñµª
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-1-18 16:13 ½s¿è

¦^´_ 3# Hsieh


    ³á~~  ­ì¨Ó¬O³o¼Ë§r~ ÁÂÁ¤j¤jªº»¡©ú~

   ¤£¹L~ §ÚÀ³¸Ó¨Sªk¼gªº¤ñ¼Ó¥D¦n§a~ ¦ý§ÚÁÙ¬O·|¸Õ¬Ý¬Ý~
   ¨ä¥¦¤è¦¡ªº¼gªk(¦ý¥i¯à¬O¤@ºØ©_©ÇªºÅÞ¿è¨Ó³B²z)~ ^.^

  ¥Î¤£¦Pªº¼gªk~ ¤£¹L¬O­Ó·s¤âªº¼gªk~
  X = 0
  Do Until Cells(1, 3 + X) = ""
   If Cells(1, 3 + X) = Cells(1, 3 + X - 1) And Cells(2, 3 + X) = Cells(2, 3 + X - 1) Then
      If Cells(154, 3 + X - 1) = "" Then
         Cells(154, 3 + X) = 1
      Else
         Cells(154, 3 + X) = Cells(154, 3 + X - 1)
      End If
   Else
      Cells(154, 3 + X) = Cells(154, 3 + X - 1) + 1
   End If
  X = X + 1
  Loop
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 3# Hsieh
hsieh«e½ú§A¦n!
       °¸¹³«e½ú!ÁÂÁÂ!!§Aªº±Ð»£¤p§ÌÂÔ°O¦b¤ß
       ¥u¬O¤p§Ì¤£ª¾¹D­n¦p¦óµo°Ý¤~¯à±o¨ì¤j®aªº
       »{¦P,½Ð«e½ú¯uªº¤£§[¦A«ü¾É,¤p§Ì¤@©w§ï¶i
       ¥u¬O¤p§Ì¦³ÂI­nÁn©úªº¬O¦n¹³¤p§Ì±q¨Ó³£¤£«ü¾É
       §O¤H¥u­n¨D§O¤HÀ°¤p§Ì...¨ä¹ê¤£¬O¤p§Ì¤£Ä@·N
       ¥u¬O§Ú¹ïExcel¯uªº¤@ÂI°ò¦³£¨S¦³´N³o¸Ì¨Ó¤W½Ò
       ½Ð¦U¦ì«e½ú½Ì¸Ñ...¾Ç¨ì²{¦bÁÙ¤@ÀYÃú¤ô...
       °¸¹³«e½ú!½Ð¤£§[¦A½ç±ÐÁÂÁ¦A¤T!!!

TOP

¦^´_ 4# hugh0620
hugh0620 «e½ú§A¦n!
¡@¡@¡@   «e½úÁÂÁÂ!!­ìµ{¦¡¨Ã«D¤p§Ì©Ò¼g¤p§Ì¨S¦³³oºØ¥\¤O
         ¦Ü¥Ø«e¬°¤î¥u¯à¶Ã«÷´ê®M¥Î½}!
         µ{¦¡¬OºI¨úHsieh«e½ú¤§«e©Ò±Ð¾É½d¨Ò¤§¤@¤p¬q
         ©êºp¦]¤p§Ìªº°½Ãi³y¦¨§Aªº»~¸Ñ!!
         µ{¦¡µLªk¾A¥Î¦AªþÀÉ»¡©ú
         ¨¯­WÅo!½Ð¤£§[½ç±ÐÁÂÁ¦A¤T!!

Leov40-1.rar (15.84 KB)

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-1-19 10:10 ½s¿è

¦^´_ 6# myleoyes


    ¤£­n¥s§Ú«e½ú~ ¨ä¹ê§Ú¤]¬O·s¤â~  ^^
    ¤¬¬Ûº|®ð¨D¶i¨B°Õ~
    ¦pªG¬O©T©w15Äæ¤@­Ó½s¸¹~ §Ú¬O¦³¤@­Ó²Âªº¼gªk
   Sub ½s¸¹()
     I = 0                              
     For J = 1 To 100          '<------- J¬°½s¸¹
         For X = 0 To 14       '<------- X¬°¶]15¦¸,±NJ³o­Ó½s¸¹¶ñ¼g15¦¸
               I = I + 1            
              If Cells(1, 2 + I) = "" Then Exit Sub'<--------I¬°Åýµ{¦¡§PÂ_¬O§_¦³¸ê®Æ,­YµL«hÂ÷¶}µ{¦¡
              Cells(154, 2 + I) = J
         Next
    Next

End Sub
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¥u¬O¤p§Ì¤£ª¾¹D­n¦p¦óµo°Ý¤~¯à±o¨ì¤j®aªº
       »{¦P,½Ð«e½ú¯uªº¤£§[¦A«ü¾É,¤p§Ì¤@©w§ï¶i

¦¹¨Òªº°ÝÃD¦b©ó¡G
¨S¦³»¡©ú¬O¥H­þ¤@¦Cªº¼Æ¾Ú¬°¬°¤À²Õªº§P±ø¥ó
§A·Q±o¨ì«ç¼Ëªºµ²ªG¤]¨S¦³ªí¥Ü¥X¨Ó
ÁöµM¤U¸ü¤F§AªºÀɮסAÁÙ¬O¤£À´§A­n°µ¤°»ò

TOP

¦^´_ 4# hugh0620


¾Ç²ß´N¬O¤£Â_½m²ß¡A¤£©È¿ù¡A¥u©È¤£¥h°µ
¥H¦¹¬°¨Ò¡A´N¬O±q²Ä3Äæ¶}©l¡A¹J¨ì¼Æ­È¤£¦P´N¥[1
°Ñ¦Ò¬Ý¬Ý
  1. Sub ½s¸¹()
  2. k = 3: n = 1
  3. Do Until Cells(153, k) = ""
  4. test = Cells(153, k)
  5.     Cells(153, k) = n
  6.     If test <> Cells(153, k + 1) Then n = n + 1
  7. k = k + 1
  8. Loop
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 9# Hsieh


    ¤j¤jªº¼gªk¬O¦]À³±N­ì½Xª½±µ­×§ï¦¨·s½X
   ³o¼Ë²µuªºµ{¦¡½X~ ¤£ºâ§xÃø~ ¦ý¯àª½±µ´N¦³³o¼ËªºÅÞ¿è~ ¤p§ÌÁٻݭn¦h¾Ç²ß~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD