Excel自动为该单元格或者该单元格所在行或列加上颜色.docxVIP

excel自动为该单元格或者该单元格所在的行或列加上颜色2007-05-13 16:21当光标定位在工作表中某单元格中时，Excel自动为该单元格或者该单元格所在的行或列加上颜色，这个技巧可用于在工作表中突出显示当前单元格及其所在的行和列，以强调数据，并方便阅读。下面介绍了实现此功能的几种方法。使用条件格式下面将使用条件格式实现当前单元格和当前单元所在行或列突出显示的效果。在公式中使用了Cell函数，并将ScreenUpdation属性的值设置为True以实现屏幕更新。在ThisWorkbook模块中输入如下代码：Private Sub Workbook_SheetSelectionChange(ByValSh As Object, ByVal Target As Range)???? Application.ScreenUpdating = TrueEnd Sub当然，如果只想在工作表中实现突出显示的效果，将Application.ScreenUpdating = True代码输入到Worksheet_SelectionChange事件中。接下来，在Excel中选择菜单“格式——条件格式”命令，弹出“条件格式”对话框。在“条件”下拉框中选择“公式”并在右侧中输入下面相应的公式，然后点击“格式”按钮，设置相应的格式，完成后，按“确定”按钮。下面是相应的公式及其作用：(1)公式“=CELL(address)=ADDRESS(ROW(),COLUMN())”，突出活动单元格，如下图1所示。?? 图1(2)公式“=CELL(row)=ROW()”，突出单元格所在行，如下图2所示。?? 图2(3)下面的公式突出到当前单元格为止的相应行和列，呈反L形，如下图3所示。“=OR(AND(CELL(row)=ROW(),CELL(col)+1COLUMN()),AND(CELL(col)=COLUMN(),CELL(row)+1ROW()))”?? 图3(4)在“条件格式”对话框中对所选单元格区域设置两个如下所列的公式条件，将呈反L形突出显示到当前单元格为止的相应行和列，且当前单元格背景色改变、字体加粗显示，如下图4所示。“=CELL(address)=ADDRESS(ROW(),COLUMN())”“=OR(AND(CELL(row)=ROW(),CELL(col)+1COLUMN()),AND(CELL(col)=COLUMN(),CELL(row)+1ROW()))”?? 图4?? 示例文档见 使用条件格式自动突出显示.xls。UploadFiles/2006-10/1027458205.rar使用VBA代码(1) 突出显示至当前单元格所在的行和列，呈反L形。在需要设置此功能的工作表模块中输入下面的代码：Private Sub Worksheet_SelectionChange(ByVal Target As Range)?? Dim iColor As Integer注:如果工作表中有想要保留的条件格式,则不要使用本程序?? 忽略用户选择单元格区域时可能产生的错误?? On Error Resume Next?? iColor = Target.Interior.ColorIndex?? If iColor 0 Then???? iColor = 36?? Else????? iColor = iColor + 1?? End If?? 避免字体颜色与突出色相同?? If iColor = Target.Font.ColorIndex Then iColor = iColor + 1?? Cells.FormatConditions.Delete水平突出色?? With Range(A Target.Row, Target.Address)???? .FormatConditions.Add Type:=2, Formula1:=TRUE???? .FormatConditions(1).Interior.ColorIndex = iColor?? End With?? 垂直突出色?? With Range(Target.Offset(1 - Target.Row, 0).Address : _????? Target.Offset(-1, 0).Address)????? .FormatConditions.Add Type:=2, Formula1:=TRUE????? .FormatConditions(1).Interior.ColorIndex = iColor?? End WithEnd Sub注意，此代码运行后，将清除所在工作表中含有的条件格式。示例文档见 用颜色自动突出显示当前单元格行列1.xls。Upload