Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone 'ååå æ å®ä½
Rows(Target.Row).Interior.Color = RGB(192, 192, 192) âè¡çè²
Columns(Target.Column).Interior.Color = RGB(192, 192, 192) 'åçè²
End Sub
å§è¿ä¸ªä»£ç æ¾å°ä½ çè¡¨æ ¼éRGB(192, 192, 192)ä¸çæ°å为0-255 ä¸åæ°åé¢è²ä¸åï¼è¯·èªè¡è°æ´
追é®æä¹æ¾å°è¡¨æ ¼éãã
追çæalt+F11ï¼ç¶ååæä¸é¢çå¾çé£æ ·éä¸sheet1,2,3å ¶ä¸ä¸ä¸ªåå»ï¼å¨å³è¾¹å¤å¶ä»£ç