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

[µo°Ý] ¼Ð¥Ü¿ï¾ÜªºÀx¦s®æ

[µo°Ý] ¼Ð¥Ü¿ï¾ÜªºÀx¦s®æ

¤j®a¦n¡A¥i¥HÅý­ì¥»¦³©³¦âªºÃC¦â¤£­n®ø¥¢¶Ü¡H¥u¦³¿ï¨úªº¦C·|¼Ð¥ÜÃC¦â ¼Ð¥ÜÃC¦â.zip (20.83 KB)
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  2. Application.ScreenUpdating = False

  3. Cells.Interior.ColorIndex = -4142

  4. '¨ú®ø³æ¤¸®æ­ì¦³¶ñ¥R¦â¡A¦ý¤£¥]§t±ø¥ó®æ¦¡²£¥ÍªºÃC¦â¡C

  5. Rows(Target.Row).Interior.ColorIndex = 36

  6. '¬¡°Ê³æ¤¸®æ¾ã¦æ¶ñ¥RÃC¦â

  7. 'Columns(Target.Column).Interior.ColorIndex = 36

  8. '¬¡°Ê³æ¤¸®æ¾ã¦C¶ñ¥RÃC¦â(¦p¤£»Ý­n¾ã¦C°ª«G¡A¥i§R°£¸Ó¦æ©R¥O)

  9. Application.ScreenUpdating = False

  10. End Sub
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD