ªð¦^¦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 : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD