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

[µo°Ý] (¤w¸Ñ¨M¡^·j´M²Å¦X±ø¥ó¸ê®Æ¨Ã±Nµe­±²¾¨ì¸Ó¦ì¸m

[µo°Ý] (¤w¸Ñ¨M¡^·j´M²Å¦X±ø¥ó¸ê®Æ¨Ã±Nµe­±²¾¨ì¸Ó¦ì¸m

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-5-25 16:31 ½s¿è

§Ú·Q­n·j´MFÄæ¸ê®Æ¬°­tªº
¤@­Ó¤@­ÓÀ˵ø
©Ò¥H²Å¦X±ø¥ó¤§«á±Nµe­±²¾¨ì¸Ó¦CÀ˵ø
¦]¬°§Ú­n¬Ý¨ì«e­±¸ò«á­±¸ê®Æ©Ò¥H¥Î¿z¿ïªº¤è¦¡¤£¯à²Å¦X§Ú­nªº

¤£ª¾¹D³o¼Ë­n«ç»ò¼g



Book1.rar (5.32 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

  1. Sub ²¾°Ê()
  2.     n = ActiveCell.Row
  3.     Do Until Cells(n, 6) < 0
  4.     Cells(n, 6).Select
  5.     n = n + 1
  6.     Loop
  7. End Sub
½Æ»s¥N½X
­è­è·Q¥X¨Óªº²Ä¤@¦¸¥Îdo until¤è¦¡
ÁöµM·|°Ê
¤£¹L­n·j´M¤U¤@­Óªº®É­ÔÁÙ­n¥ý¥Î·Æ¹«²¾¨ì¤£¤p©ó0ªº¦ì¸m
³o­n«ç»ò§ï¡H
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-4-20 13:46 ½s¿è

¦^´_ 2# freeffly
°õ¦æ  ²¾°Êµ{§Ç «á  «ö    [Tab]  Áä ¥i¤@¤@À˵ø
  1. Option Explicit
  2. Sub ²¾°Ê()
  3.     Dim Rng As Range, n As Integer
  4.     n = 2 'ActiveCell.Row
  5.     Do Until Cells(n, 6) = ""                       'ªÅ¥Õ
  6.         If Cells(n, 6) < 0 Then                     '­t­È
  7.             If Rng Is Nothing Then                  'RngÅܼƥ¼³]¸m®É
  8.                 Set Rng = Cells(n, 6)               'RngÅܼƳ]¸m¬°Cells(n, 6)
  9.             Else
  10.                 Set Rng = Union(Rng, Cells(n, 6))   ' Union ¤èªk ¶Ç¦^¨â­Ó©Î¦h­Ó½d³òªº¦X¨Ö½d³ò¡C
  11.             End If
  12.         End If
  13.         n = n + 1
  14.     Loop
  15.     Rng.Select                                       '¥þ³¡­t­Èªº½d³ò
  16. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# freeffly
¿ï¤U¤@­Ó­t¼Æ
  1. Sub ²¾°Ê()
  2. For Each A In Range("F" & ActiveCell.Row, [F65536].End(xlUp))
  3.   If A.Offset(1, 0) < 0 Then
  4.      A.Offset(1, 0).Select
  5.      GoTo 123
  6.   End If
  7. Next
  8. 123
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# GBKEE


     ªO¥D§Ú·Q­n°µªº¬O¤@­Ó¤@­Ó¬d
   ¤]´N¬O¨C°õ¦æ¤@¦¸µ{§Ç¸õ¨ì¤U¤@­Ó²Å¦Xªº¦ì¸m
   ³oºØ¤è¦¡¦n¹³¥i¥H¥Î¦b§Oªº¦a¤è§Ú¥ý¾Ç¤U¨Ó
   ÁÂÁÂ

¦^´_ 3# register313
  ¤j¤jªº¥i¥H
¤£¹L¦pªG­t¼Æ¦³³sÄòÅܦ¨­n¤@­Ó¤@­ÓÂI
¤U­±¬O§Ú­è­è·Qªº
§Ú·Q­nªº¬O¤U­±³o¼Ëªºµ²ªG
¤£¹L¤£ª¾¹D¼gªk¥¿¤£¥¿½T
¦³¨S¦³§ó²«Kªº
  1. Sub ²¾°Ê()
  2.     n = ActiveCell.Row
  3.     Do Until Cells(n, 6) > 0
  4.     Cells(n, 6).Select
  5.     n = n + 1
  6.     Loop
  7.     Do Until Cells(n, 6) < 0
  8.     Cells(n, 6).Offset(1).Select
  9.     n = n + 1
  10.     Loop
  11. End Sub
½Æ»s¥N½X
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 3# GBKEE


    ­è¥uª`·N¨ìvba¨Sª`·N¨ìTABÁä³o´X­Ó¦r
   ³o¼Ëªº½T¤]¥i¥H
   ÁÂÁªO¥D
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD