选择范围,
开始---条件格式---- 新建规则, 使用公式确定。。。。。
输入:
=(ROW()=CELL("row"))+(COLUMN()=CELL("col"))
格式 填充,选择一种颜色
右键工作表标签,查看代码
如下复制进去:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
Excel另存为 Xlsm 格式,启用宏,
附件是设好的
将鼠标一直该单元格所对应的行或列,此时,鼠标便会变成一个箭头,我们点击所对应的行或列,随后对其进行加颜色处理即可。
按alt+f11,选中sheet1,粘贴进去
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim colstr As String
With Target
colstr = Mid(.Address, 2, InStr(2, .Address, "$") - 2)
Range(ActiveCell.Address & "," & colstr & ":" & colstr & "," & .Row & ":" & .Row).Select
End With
End Sub
复制这个代码,在excel表中按alt+F11键,双击sheet1(也就是你表所在位置),然后粘贴进去
也可以在网上下载一个叫“EXCEL必备工具箱”的插件包,
安装后里面有很多,
其中就有“防止看错行(列)”的等等
在工作表名(例如:sheet1)上右键,”查看代码",复制粘贴以下代码就可以了:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
Rows(Target.Row).Interior.ColorIndex = 8
Columns(Target.Column).Interior.ColorIndex = 8
End Sub