【资料图】

1、ALT+F11。

2、输入如下代码：12345PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Cells.Interior.ColorIndex=xlNoneRows(Target.Row).Interior.Color=RGB(200,150,30)Columns(Target.Column).Interior.Color=RGB(150,200,30)EndSub。

本文就为大家分享到这里，希望小伙伴们会喜欢。