è¿ä¸ªè¦ç¨å°VBA
ALT+F11ï¼å¨å³è¾¹çªå£è¾å
¥å¦ä¸ä»£ç ï¼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.Color = RGB(255, 0, 0)
Columns(Target.Column).Interior.Color = RGB(0, 255, 0)
End Sub
P.S.:å¦æä¸å欢代ç ä¸çé¢è²ï¼å¯ä»¥èªå·±ä¿®æ¹RGB()å½æ°ä¸çé¢è²å¼ï¼èå´å¨0~255
温馨提示:答案为网友推荐,仅供参考