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

[µo°Ý] ½Ð±ÐWorksheet_SelectionChange ?

À³¸Ó¬O,
¸Õ¸Õ¬Ý:
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     [A1:P65536].Interior.ColorIndex = xlNone
  3.     Range("A" & Target.Row, "P" & Target.Row).Interior.ColorIndex = 35
  4. End Sub
½Æ»s¥N½X
test.gif

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD