选择范围,
开始---条件格式---- 新建规则,
使用公式确定。。。。。
输入:
=(ROW()=CELL("row"))+(COLUMN()=CELL("col"))
格式  填充,选择一种颜色
 
右键工作表标签,查看代码
如下复制进去:
| 
1 
2 
3 
4 | 
OptionExplicit 
PrivateSubWorksheet_SelectionChange(ByValTarget AsRange) 
    Calculate | 
 
Excel另存为 Xlsm
格式,启用宏,
							
		 
						
		加载中,请稍候......