前言:本人借用别人的经验,汇集成此帖,有新经验还会不断回帖以补充。
我是大同纯净世界的使者,我是互联网里的搬运工。
一、高亮显示单元格行和列篇
经验1:
当审核输入OK的时候,自动高亮显示(不一定非要是OK,根据实际自己定)
如下图
实现步骤如下:
1)选择区域A2:F7,单击条件格式→新建规则
如下图
2)单击使用公式确定要设置格式的单元格,输入公式,设置背景色,确定。
=$F2='OK'
如下图
经过这2步设置以后,只要在单元格输入OK,就自动显示背景色
经验2:
通过选择城市和月份,高亮显示交叉的区域
如下图
实现步骤如下:
1)月份跟城市设置下拉菜单
2)在单元格B11使用公式进行查找对应值。
=VLOOKUP(A11,A1:E7,MATCH(B10,A1:E1,0),0)
3) 选择区域A1:E7,注意选择的区域别选错,单击条件格式→新建规则。单击使用公式确定要设置格式的单元格,输入公式,设置背景色,确定。
=($A1=$A$11) (A$1=$B$10)
经过这3步设置以后,只要选择月份跟城市,就自动显示背景色。
经验3:
鼠标点击单元格,高亮显示单元格行列区域,在检查核对数据的时候,使用非常方便,防止看串行啥的,如下图
实现步骤如下:
1)将你要修改的宏文件另存为一份启用宏的工作簿,下列步骤均在带宏的excel里操作
2)打开你要高亮显示的启用宏的文件,Alt+F11打开宏代码窗口.
#1 如果仅是针对某个sheet, 双击这个sheet,打开代码窗口,复制粘贴如下代码,保存
如下图红圈部分双击打开代码窗口
代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1") '选中目标单元格A1,此句可删除
Cells.Interior.ColorIndex = 0 '清除所有背景色,此句可删除
Rng.EntireColumn.Interior.ColorIndex = 36 '设置当前列颜色,此句可删除
Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色,此句可删除
End Sub
如下图
#2 如果要针对所有的sheet,那就双击thisworkbook,打开代码窗口,复制粘贴如下代码,保存
如下图
代码如下:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Cells.FormatConditions.Delete
iColor = 40
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = iColor
End With
With Target.EntireColumn.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = iColor
End With
End Sub
先总结这些,其他的有好的经验,欢迎大家跟帖