Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode = xlCopy And n = 1 Then n = 0: End
Cells.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 34
Target.EntireColumn.Interior.ColorIndex = 34
End Sub
Excel2007版本没有十字光标怎么破?
按住alt+F11,在worksheet中写下以上代码,保存,妥妥的
要改颜色移步https://wenku.baidu.com/view/e17fcecb900ef12d2af90242a8956bec0875a562.html