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

¤@­ÓÄæ¦ìÅܦâ°ÝÃD

¤@­ÓÄæ¦ìÅܦâ°ÝÃD

¤j¤j­Ì, ¦w¦n
¤@ª½¥H¨Ó, ¤p§Ì³£¬O¥Î³]©w®æ¦¡±ø¥ó¥h§ïÅÜÀx¦s®æ©³¦â©Î¦rÅéÃC¦â, ¦Ó²{®É¤p§Ì¦³¤@ÀÉ®×, ¤]¬OÅܦâ°ÝÃD, ¦Ó³]©w®æ¦¡À³¨Sªk°µ¨ì, ¬G§âÀɮפW¶Ç, ½Ð¤j¤j­Ì¨ó§U, ÁÂÁÂ!!
bb.rar (8.56 KB)

  1. Private Sub CommandButton1_Click()
  2. For Each r In Range([an5], [an5].End(4))
  3. Set c = Sheets(r).[2:2].Find(r(1, 2), , , 1)
  4. If Not c Is Nothing Then c(2, 1).Resize(20, 1).Interior.ColorIndex = 15
  5. Next
  6. End Sub
½Æ»s¥N½X
bb.rar (11.83 KB)

TOP

oobird ª©¥D¤j¤j¦n
¥ýÁÂÁ¦^À³, ¦³¤@­Ó©Ç²{¶H½Ð±Ð, §Ú§â¤j¤j­ì¼g¦nªºÀɮפU¸ü, ¤@¤Á¥¿±`, ¦Ó·í§Ú§âµ{¦¡½Æ»s©ó²{¥ÎªºÀɮפ¤, «K¥X²{¦³­Ó§O¤ë¥÷¨S¦³¦^À³©Î¤ë¥÷½Õ¶Ã, ¦p12¤ë, «K¨S¦³Åܦâ, ¦Ó­ì¥»¦b12¤ëÅܦ⪺°²´Á«hÅã¥Ü©ó11¤ë¤¤, ¦ó¸Ñ, Àµ½Ð¤j¤j¨ó.
cc.rar (28.96 KB)

TOP

¥»©«³Ì«á¥Ñ oobird ©ó 2011-7-3 19:05 ½s¿è

Set c = Sheets(r & "¤ë").[2:2].Find(r(1, 2), , , 1)
¥Hªíªº±Æ¦C§Ç¸¹®e©öµo¥Í¿ù»~¡A¦]¬°1¤ë¤£¤@©w¬O²Ä¤@±iªí¡A­n§ï¥Hªí¦W§@¬°¨Ì¾Ú¡C

TOP

¦^´_ 4# oobird

oobird ª©¥D¤j¤j,  
°J¤ßÁÂÁÂ: °ÝÃD¤w¸Ñ¨M, ¯¬§Ö¼Ö..

TOP

oobird ª©¥D¤j¤j, ¦n
¤p§Ì¤é«e¥Î¿ý»s¤è¦¡, ¿ý»s¤F¤@­Ó¥¨¶°, ¦ý¥X¨Óªº®ÄªGÁöµM¥i¥Î, ¦ý¿ý»sµ{¦¡½X»áªø, ¦Ó¥B¹B§@¤£¤ÓºZ¶¶,
¬G§â³o­Ó°ÝÃD¤W¶Ç, ½Ð±Ð,,ªþ¥ó¤¤¦³©ú²Ó»¡©ú, ¥ý¦æÁ¹L....

rr.rar (9.75 KB)

TOP

TOP

¦^´_ 7# oobird

ÁÂÁÂÁÂ!!!   
¯¬°·±d, §Ö¼Ö..

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD