返回目录:excel表格制作
行标和列表位置本来就是高亮的,
不过下面代码可以e799bee5baa6e79fa5e98193e59b9ee7ad94366是行列都变为指定颜色,
一、行列都变色,可填充,不能复制,可多行多列变色、可不断变化各种色彩(推荐使用)
按ALT F11 进入 VB
在工程窗口 双击要高亮的工作表,
弹出窗口将下面代码复制进去,关闭就可以了
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
iColor = Int(50 * Rnd() + 2)
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
一、如果你用的wps 表格,可以直接用“阅读模式”。
二、如果用 excel,则方法如下:来
1、右击工作表标签,选择“查看代码”,打开VBA编辑器,在代码窗口中粘贴下列代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
2、选择好数据区域,在“开自始”选项卡的“样式”组中单击“条件格式→新建规则→知使用公式确定要设置格式的单元格”,在文本框中输入公式:
道 =ROW()=CELL("row")
然后,设置好一个醒目的颜色。
3、同上操作,不同处在于,将公式修改为:
=COLUMN()=CELL("col")
1、首先打开电脑里的excel软件选中所选区域。
2、在开始菜单栏单击条件格式-选择copy新建规百则。
3、确定后会弹出一个新建格式规度则,选问择最下面的公式使用格式,并在文本框中输入公式为=ROW()=CELL("row"),选择颜色并确定。
4、选择上述区域再次新建一个条件格式规则,并在文本框中输入公式为=COLUMN()=CELL("col"),选择同种颜色并确定。
5、右击工作表标签sheet1,选择“查看代码”。
6、打开VBA编辑器,在代码窗口中粘贴下列代码。
7、任意点击单元格,即可快速高亮显示答Excel中活动单元格所在的行和列。
Alt+F11进入VBA编辑器,双击需要行列突出显示的工作表名zd,在右边框内粘贴如下代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="nRow", RefersToR1C1:=Target.Row
ActiveWorkbook.Names.Add Name:="nColumn", RefersToR1C1:=Target.Column
End Sub
关闭VBA编辑器。
选择需要突出显示的单元格区域(不要全选,否专则会影响运行速度),格式-条件格式,条件选择公式,并输入公式:
=(ROW()=nRow)+(COLUMN()=nColumn)
格式按钮属,图案,选择一个自己满意的颜色,确定,再确定。