第1个回答 推荐于2016-10-24
用一段代码试试:
点工作表标签——右键——查看代码,粘贴以下代码——关闭VBA窗口:
PrivateSub Worksheet_SelectionChange(ByVal Target As Range)
With Target
.Parent.Cells.Interior.ColorIndex =xlNone
.EntireRow.Interior.Color = vbGreen
.EntireColumn.Interior.Color = vbGreen
End With
EndSub本回答被提问者和网友采纳