高亮显示当前行

1、高亮显示当前行高亮显示当前行 - Excel VBA 程序开发 - Excel Home 论坛 用条件格式设置高亮显示当前行，难的是如何确定当 前行。用 VBA 就很简单，鼠标右击工作表标签，选择“查看 代码”，将下面的代码粘贴到 VBE 窗口中：代码 :Private Sub Worksheet_SelectionChange(ByValTarget As Range)End Sub 这几行代码的作用是，当选择新的单元格时，将这 个单元格(或者区域)定义为名称“ XM，在条件格式设置中可 以引用这个名称。如下面的附件，将代码粘贴完成后，返回 工作表中， 选择 A4:I15 ，点击菜单“格式条

2、件格式”，设置： 公式 1： =(A4<>"")*(A4=XM)(如果 A4 不为空，并且 A4 等于 XM) 公式 2： =ROW()=ROW(XM)(如果当前的行号等于 XM 的行号 )用代码定义名称，我们需 要它的即时更新，鼠标点到什么，这个名称“ XM就更新什么 例如，当鼠标点击 F7 单元格， XM 便等于 F7， ROW(XM)=7 ， 设置条件格式的区域中，凡是 Row() 等于 7(说白了就是第 7 行）的单元格便显示背景色。 用手工定义也可得到相同的效果， 可以试试。 然后比较一下， 用代码的好处是什么。当选中 B6 单元格时有

3、不一样的情况 出现，是因为区域中设置了两个条件格式，它符合第一个条 件便显示第一种格式，符合第二个条件便显示第二个格式。 点击菜单“格式条件格式”可看清楚。 初学有一个问题？能 否把 高亮显示单元格 做成 自动起动的宏，让用户的鼠标 单击工作表的某一个单元格后，相应的行和列都显示一种 或者 两种背景色！直接用 VBA 设置背景色，做法如下： 鼠标右键点击工作表标签，选择“查看代码”，将下面代码粘 贴到光标处： 代码 :Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim Rng As RangeSet Rng = Tar

4、get.Range("a1")= 0'清除所有背景色= 40'设置当前列颜色= 36'设置当前行颜色End Sub 其中 40 、36 为颜色索引号，不同的数值代表不同 的颜色，对应索引如下：如果工作簿中的每张工作表都有相同效果，应该怎么做？按 Alt+F11 打开 VBE 编辑器，在工 程管理器中双击模块“ ThisWorkbook ”，将下面的代码粘贴到 光标处： 代码 :Private Sub Workbook_SheetSelectionChange(ByValSh As Object, ByVal Target As Range)Dim R

5、ng As RangeSet Rng = Target.Range("a1")= 0'清除所有背景色= 40'设置当前列颜色= 36'设置当前行颜色End Sub 使用了这个代码后， 表中的“复制”和“拷贝”功能就被 禁止了，不知有无办法可以解决？可在代码第二行(清除颜色之前就行 ) 插入一行代码：If Application.CutCopyMode Then Exit Sub'如果处于选取状态则退出程序 代码 :Private Sub Workbook_SheetSelectionChange(ByValSh As Object, ByVal Target As Range)If Application.CutCopyMode Then Exit Sub '如果处于选取状态则退出程序Dim Rng As RangeSet Rng