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

¦p¦ó¿ï¨ú"´M§ä"µ²ªG¾ã¦C¸ê®Æ

¦p¦ó¿ï¨ú"´M§ä"µ²ªG¾ã¦C¸ê®Æ

¦U¦ì°ª¤â¡G
¤p§Ìºô¸ô¤W§ä«Ü¤[¡A

¤@ª½³£§ä¤£¨ìexcel¥i¥H¿ï¨ú"´M§ä"µ²ªG¾ã¦C¸ê®Æªº¤èªk¡A

½Ð°Ý¦U¦ì¤j¤j¦³¦ó°ª¨£¶Ü?
so far so good

¦U¦ì°ª¤â¡G
¤p§Ìºô¸ô¤W§ä«Ü¤[¡A

¤@ª½³£§ä¤£¨ìexcel¥i¥H¿ï¨ú"´M§ä"µ²ªG¾ã¦C¸ê®Æªº¤èªk¡A

½Ð°Ý¦U¦ì¤j¤j ...
nmtaux µoªí©ó 2016-4-2 22:25

¸Õ¸Õ:
  1. Sub nn()
  2.   With Range("a1:a500")
  3.     Set c = .Find(2, LookIn:=xlValues)
  4.     If Not c Is Nothing Then
  5.       firstAddress = c.Address
  6.       Do
  7.         c.EntireRow.Interior.ColorIndex = 8
  8.         Set c = .FindNext(c)
  9.       Loop While Not c Is Nothing And c.Address <> firstAddress
  10.     End If
  11.   End With
  12. End Sub
½Æ»s¥N½X

TOP

VBA ¥HÃöÁä¦r·j´M§R°£¾ã¦C

¦U¦ì°ª¤â¡A½Ð°Ývba¥HÃöÁä¦r·j´M«á§R°£¾ã¦C«ç»ò¼g¤ñ¸û²³æ¡Hºô¸ô¤W¼g±o³£«ÜÃø¡A¬Ý¤£À´¡C
so far so good

TOP

·PÁ°ª¤â¡A¤p§Ì°¨¤W¥h¸Õ¸Õ¡A¸÷Á¡I
so far so good

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD