作者：乔山办公网日期：
返回目录：excel表格制作
选择范围，
开始---条件格式抄---- 新建规则， 使用公式确定。。百。。。
输入：
=(ROW()=CELL("row"))+(COLUMN()=CELL("col"))
格式 填充，选择一种颜色
右键工作度表标签，查看代码知
如下复制进去：
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
Excel另存为 Xlsm 格式，道启用宏,
附件是设好的
1、新建EXCEL文件，并输入演来示数据，要求达到如图效果，选中的单元格，所在的行列，高亮显示
2、将EXCEL文件保存为启用宏的工作薄
3、开启工自作薄的宏控制
4、按ALT+F11，进入VBA编辑页面，双击sheet1，,就是要添加代码的工作表将百代发复制进去代码 Target.Cells(1).Name = "light"然后确定
5、点击开始，条件格式---管理规则，开始新建度两个条件格式
6、添加选取要应用高亮显示的数据区域，注意，不要全部选定工作表，需要多少选问多少，不然会影响运行速度
7、点击应用，而后确定关闭对话框，进行效果演答示
事件代码，放在sheet里
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveWorkbook.Names.Add Name:="sRow", RefersToR1C1:=Target.Row
ActiveWorkbook.Names.Add Name:="eRow", RefersToR1C1:=Selection.Cells(Selection.Cells.Count).Row
ActiveWorkbook.Names.Add Name:="sColumn", RefersToR1C1:=Target.Column
ActiveWorkbook.Names.Add Name:="eColumn", RefersToR1C1:=Selection.Cells(Selection.Cells.Count).Column
End Sub
然后选中要设置的区域，设置条件格式，公式
=OR(AND(ROW()>=sRow,ROW()<=eRow),AND(COLUMN()>=sColumn,COLUMN()<=eColumn))
不要全选工作表设置条件格式，会e799bee5baa6e79fa5e98193e4b893e5b19e332出错