文章摘要
这篇文章详细介绍了如何使用VBA在Excel中为选择的单元格设置名称，并利用这些名称在条件格式中应用自动着色。具体方法包括： 1. **定义名称**：在选择单元格时为单元格（或区域）设置名称“XM”，并在条件格式中引用该名称。 2. **条件格式应用**：通过在“格式—条件格式”中设置公式，可以动态地对符合条件的单元格应用背景色。 3. **自动着色的编写**：提供了代码示例，展示了如何在选择变化事件中设置目标单元格的整个行和列的颜色。 4. **工作簿级宏的应用**：说明了如何在每个工作表中应用自动着色功能，需要修改 Workbook_SheetSelectionChange 事件的代码。 5. **防止CutCopyMode**：在代码中加入了判断语句，以防止 CutCopyMode 情况下的异常操作。 文章还建议用户参考相关资源以深入学习VBA和颜色索引的使用。总体而言，文章内容涵盖了从基础操作到扩展应用的各个方面，适合有一定VBA基础的用户进一步学习和实践。
代码:
复制代码 代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Names.Add “XM”, Target
End Sub
这几行代码的作用是，当选择新的单元格时，将这个单元格(或者区域)定义为名称“XM”，在条件格式设置中可以引用这个名称。
如下面的附件，将代码粘贴完成后，返回工作表中，选择A4:I15，点击菜单“格式—条件格式”，设置：
公式1：=(A4<>””)*(A4=XM)
(如果A4不为空，并且A4等于XM)
公式2：=ROW()=ROW(XM)
(如果当前的行号等于XM的行号)
用代码定义名称，我们需要它的即时更新，鼠标点到什么，这个名称“XM”就更新什么。
例如，当鼠标点击F7单元格，XM便等于F7，ROW(XM)=7，设置条件格式的区域中，凡是Row()等于7(说白了就是第7行)的单元格便显示背景色。
用手工定义也可得到相同的效果，可以试试。然后比较一下，用代码的好处是什么。
当选中B6单元格时有不一样的情况出现，是因为区域中设置了两个条件格式，它符合第一个条件便显示第一种格式，符合第二个条件便显示第二个格式。
点击菜单“格式—条件格式”可看清楚。
初学有一个问题？能否把 高亮显示单元格 做成 自动起动的宏，让用户的鼠标单击工作表的某一个单元格后，相应的行和列都显示一种 或者 两种背景色！
直接用VBA设置背景色，做法如下：
鼠标右键点击工作表标签，选择“查看代码”，将下面代码粘贴到光标处：
代码:
复制代码 代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng=Target.Range(“a1”)
Cells.Interior.ColorIndex=0 ‘清除所有背景色
Rng.EntireColumn.Interior.ColorIndex=40 ‘设置当前列颜色
Rng.EntireRow.Interior.ColorIndex=36 ‘设置当前行颜色
End Sub
其中40、36为颜色索引号，不同的数值代表不同的颜色，对应索引如下：
如果工作簿中的每张工作表都有相同效果，应该怎么做？
按Alt+F11打开VBE编辑器，在工程管理器中双击模块“ThisWorkbook”，将下面的代码粘贴到光标处：
代码:
复制代码 代码如下:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Rng As Range
Set Rng=Target.Range(“a1”)
Cells.Interior.ColorIndex=0 ‘清除所有背景色
Rng.EntireColumn.Interior.ColorIndex=40 ‘设置当前列颜色
Rng.EntireRow.Interior.ColorIndex=36 ‘设置当前行颜色
End Sub
使用了这个代码后，表中的“复制”和“拷贝”功能就被禁止了，不知有无办法可以解决？
可在代码第二行(清除颜色之前就行)插入一行代码：
If Application.CutCopyMode Then Exit Sub ‘如果处于选取状态则退出程序
代码:
复制代码 代码如下:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode Then Exit Sub ‘如果处于选取状态则退出程序
Dim Rng As Range
Set Rng=Target.Range(“a1”)
Cells.Interior.ColorIndex=0 ‘清除所有背景色
Rng.EntireColumn.Interior.ColorIndex=40 ‘设置当前列颜色
Rng.EntireRow.Interior.ColorIndex=36 ‘设置当前行颜色
End Sub
您可能感兴趣的文章:VBA中操作Excel常用方法总结Excel VBA连接并操作Oracleexcel vba 限制工作表的滚动区域代码合并Excel工作薄中成绩表的VBA代码，非常适合教育一线的朋友用vba实现将记录集输出到Excel模板Python + selenium + requests实现12306全自动抢票及验证码破解加自动点击功能python requests包的request()函数中的参数-params和data的区别介绍python:解析requests返回的response(json格式)说明基于python requests selenium爬取excel vba过程解析
© 版权声明
文章版权归作者所有，未经允许请勿转载。
相关文章
