右键你的工作表标签-查看代码, 然后在跳出来的VBE的代码窗口(右边)粘贴以下代码Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Cells.Interior.ColorIndex = xlNone
Union(Rows(Target.Row), Columns(Target.Column)).Select
With Selection.Interior
.ColorIndex = 23
End With
Target.Activate
Application.EnableEvents = True
End Sub注:代码里的23是选择当前表的单元格时当前行和列填充的颜色,你可以自行修改这个数值(1-56)显示你的个性颜色这个操作会使当前工作表的复制粘贴功能不可用
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode Then Exit Sub '如果处于选取状态则退出程序
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
End Sub
按Alt+F11打开VBE编辑器,在工程管理器中双击模块“ThisWorkbook”,将上面的代码粘贴到光标处
40与36是可以改变的。
只要不大于56就可以了。
WPS 视图----阅读模式--选择颜色OK