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

¦p¦ó¨Ì¾ÚÀx¦s®æªº¤º®e§ïÅÜ¥kÃäÀx¦s®æªº©³¦â

¦p¦ó¨Ì¾ÚÀx¦s®æªº¤º®e§ïÅÜ¥kÃäÀx¦s®æªº©³¦â

½Ð°Ý­n«ç»ò¨ÌÀx¦s®æªº¶}ÀYªº²Ä¤@­Ó¦r·í±ø¥ó¡A§ïÅܦP¦C¤¤ªº¥t¤@­ÓÀx¦s®æªº©³¦â¡H

¨Ò¦pA1~A10¤º®e¬°Axxx©Î¬OBxxx¡]xxx¥i¬°¥ô·N¤å¦r¡^
·í¶}ÀY¬OAªº®É­Ô¦P¤@¦C¥kÄæ(B1~B10)ªºÀx¦s®æªº©³¦â´NÅܬõ¦â¡A¶}ÀY¬OBªº®É­Ô´NÅܶÀ¦â
¨Ã®M¥Î¨ì©Ò¦³¦C¡A¦C¼Æ¤£©T©w¡A·PÁ¡I

  1. Sub Ex()
  2. Dim A As Range
  3. If Application.CountA(Columns("A")) > 0 Then
  4. For Each A In Range("A:A").SpecialCells(xlCellTypeConstants)
  5. Select Case Left(A, 1)
  6. Case "A"
  7. s = 3
  8. Case "B"
  9. s = 6
  10. Case "C"
  11. s = 5
  12. End Select
  13. A.Offset(, 1).Interior.ColorIndex = s
  14. Next
  15. End If
  16. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

·PÁª©¥Dªº¦^µª¡I
¦ý§Ú¸Õ¤F¤£ºÞAÄ檺­È¦h¤Ö¡A
BÄæ¥u·|Åܦ¨"µL¶ñº¡"¡A
¥i¥H¦AÀ°¦£¬Ý¤@¤U¶Ü¡H

TOP

¦^´_ 3# deyan

§Ú´ú¸ÕOK¡A©Î³\§A°õ¦æ¦ì¸m¿ù»~
  ½Ð¤W¶Ç±zªºªþ¥ó¬Ý¬Ý¬°¦ó¤£¦æ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§ä¨ì°ÝÃD¤F¡A­ì¨Ó¬O¤j¤p¼gªº°ÝÃD¡]§Ú¥Î¤p¼g¡^
ÁÂÁ±z¡I
deyan

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD