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

[µo°Ý] Excel VBA Àx¦s®æ¦rÅéÅܦâ¨Æ©y(¤£¦P§Ç­¶µLªkÅܦâ¡^

¦^´_ 10# GBKEE


    ·PÁÂGBKEE¤j

¤p§Ì¨Ì±z´£¨Ñªº»yªk¨Ó­×§ï¤p§Ìªº»yªk«á¡A¤w¯à¦¨¥\Åܧó¦rªºÃC¦â¡]¦p¤U¹Ï¡^{:3_59:}



¤£¹L¤p§Ìµo²{´NºâÀx¦s®æªº¦r§ï¬°DOSXXX «á¡A¤´µM¯à¦¨¥\Åܦâ¡C

¤]´N¬O»¡³o­Ó¼gªk¶È·j¬d²Å¦XDOS¶}ÀYªº¦r¦ê´NÅܦâ¡A¦Ó¦pªGDOS¦r¦ê«á¦³¥[§Oªº¦r´N©¿²¤¡C

¤£ª¾¤p§Ì³o¼Ëªº·Qªk¬O§_¥¿½T¡H
¿ú¬O«Ü±I²öªº¡A©Ò¥H·|·Q¿ìªk»E¦b¤@°_¡I

TOP

¦^´_ 11# syuan
¨S¿ùªº.
LIKE ¤]¥i¤ñ¹ï¦r¦ê
  1. ¥|¦¡ ¤À§O °õ¦æ¬Ý¬Ý  
  2.     If A   LIKE  "DOS" Then A.Font.Color = vbRed
  3.     If A   LIKE  "DOS*" Then A.Font.Color = vbRed
  4.     If A   LIKE  "*DOS" Then A.Font.Color = vbRed
  5.     If A   LIKE  "*DOS*" Then A.Font.Color = vbRed
½Æ»s¥N½X

TOP

¦^´_ 12# GBKEE

¦^ÂÐGBKEE¤j

¡@¡@¤p§Ì¸Õ¤F±z´£¨Ñªº¤è¦¡¡A¦ýÀx¦s®æ¤ºªº¦r¦ê¨ÃµLÅܦâ¡]¦p¤U¹Ï¡^

   

¤p§Ì¦³¬d¤FLIKEªº»¡©ú¡Aµo²{¥¦¦ü¥G¬O¥Î¨Ó¹ï·Ó¦r¦ê¥Îªº¡]¦p¤U¹Ï¡^



¥H¤W¡AÁÂÁ¡I
¿ú¬O«Ü±I²öªº¡A©Ò¥H·|·Q¿ìªk»E¦b¤@°_¡I

TOP

¦^´_ 13# syuan
¬Ý§Aªº¹Ï¤ù:  µ{¦¡½X¤£§¹¾ã
  1.     Option Explicit
  2. Sub Ex()
  3.     Dim A As Range
  4.     For Each A In Sheets("Sheet1").UsedRange.Range("C:C")
  5.         If InStr(A, "DOS*") Then A.Font.Color = vbRed
  6.     Next
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 14# GBKEE


·PÁÂGBKEE¤j
¨º­ÓINSTRªº»yªk¡A¤p§Ì¤w¦³¨Ì±z´£¨Ñªº¤è¦¡¸Õ¥X¡C
²{¤p§Ì¥¿¸ÕµÛ±N³o­Ó»yªk¨Ó±a¤J¦Û¤v¥¿¦b¬ã¨sªº¤pµ{¦¡¤¤¡C
¿ú¬O«Ü±I²öªº¡A©Ò¥H·|·Q¿ìªk»E¦b¤@°_¡I

TOP

¦^´_  syuan
¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2012-10-26 17:48



·PÁ¤j¤jµL¨p¤À¨É,«D±`¨ü¥Î!
For Each A In Sheets("Sheet1").UsedRange

Each
USeRange
³o¨â­Ó¥Îªk¤p§Ì·M¬NÀµ½Ð¤j¤j¸Ñ»¡!

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD