『壹』 excel选项卡颜色变化
Excel中有时候为了更好地显示所选择的单元格，会将单元格所在行与列用颜色标识出来以达到效果，如何才能实现自动将所选单元格对应的行与列的颜色自动改变呢？今天就介绍一种利用条件格式与VBA代码实现选择单元格后所在行列自动变色的方法。
开启分步阅读模式
工具材料：
Office2013
操作方法
01
Ctrl+A将Excel单元格全选（如果只需要设置部分区域实现选择单元格行列变色的效果，那么这里就选择这个“部分区域”），点击“开始”选项卡中的“条件格式”，选择“新建规则”，如下图所示：
02
“选择规则类型”中选择“使用公式确定要设置格式的单元格”,并在下面的文本框中输入公式：=(CELL("row")=ROW())+(CELL("col")=COLUMN())
公式解释：公式分两部分，第一部分：(CELL("row")=ROW())——利用cell(“row”)函数获得条件格式区域单元格的行号与利用row行数获得的当前单元格行号进行比较，如果相等则返回TRUE，否则返回FALSE；第二部分(CELL("col")=COLUMN())——利用cell(“col”)函数获得条件格式区域单元格的列数与利用column行数获得的当前单元格列进行比较，如果相等则返回TRUE，否则返回FALSE；两部分相加，即满足其中任意一个条件就返回TRUE，触发条件格式，都不满足时才返回FALSE无法出发条件格式。
03
然后点击右下角的“格式”，进入格式设置对话框，这里设置填充底色为黄色，如下图所示：
04
点击确定后，返回Excel，可以看到第一行和第一列已经填充了黄色，但是这个颜色并不会随着选择的单元格而变化，如下图所示：
05
按下Alt+F11，打开VBE界面，选择左侧的当前工作表，并在右侧空白处复制粘贴如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
Application.ScreenUpdating = False
Application.ScreenUpdating = True
End Sub
代码解释：当选择单元格时触发代码，代码内容为重新计算。也就是每次选择单元格，会执行重新计算的VBA代码，因此条件格式中的公式会重新计算，使得当前选择的单元格对应的行列变色。另外，添加强制屏幕刷新是要消除可能存在的显示Bug。
06
返回Excel，这样就实现了选择单元格，这个单元格对应的行列变色，如下图所示：
特别提示
如果单元格设置的格式与条件格式冲突（例如都设置了填充底色），则会变条件格式临时覆盖，选择其他单元格后，原来的格式又会出现，也就是说不会影响原来的设置。
『贰』 Access数据库编程案例-颜色码数制转换（人教版《信息技术》必修第一册P17例题，基于VBA）
案例来源介绍
本案例源于人民教育出版社《信息技术》教材的第17页，题目为“颜色码的数制转换”。例题展示了在计算机中RGB（红、绿、蓝）颜色值通过十六进制颜色码表示，如RGB（64，224，208）在十六进制下表示为#40E0D0。例题要求将#9400D3和#D2B48C表示成RGB颜色值，并验证结果。
案例设计及编程
本次分享旨在通过VBA代码实现颜色码数制转换与颜色展示的自动化，设计了一个基于Access数据库的软件案例。该案例旨在直观演示不同RGB值下的颜色变化，并将10进制RGB数字转化为16进制数字。
需求分解
案例需求包括：创建一个Access窗体，设置3个文本框控制RGB值，更改文本框值时窗体颜色自动更新。页眉、图片背景及正方形的颜色亦应根据文本框值变化。
代码层次
案例代码分为核心代码与调用代码两部分。核心代码负责文本框值更新与颜色变化，调用代码在文本框更改时调用核心代码。
核心代码颜色变换
核心代码包含两段，分别用于更改文本框中的RGB值，以及将10进制RGB值转化为16进制。这段代码通过设置变量读取文本框值，确保值在0到255之间，并自动更新窗体、页眉和图片背景颜色。
调用代码
调用代码在文本框更新时触发核心代码执行，实现自动化颜色变化。
代码讲解
核心代码逻辑清晰，通过读取文本框值并验证范围，自动更新颜色，代码简洁。调用代码则负责在文本框更新时调用核心代码，实现自动化。
总结
案例包含三个关键知识点：Access控件颜色更改技术、10进制到16进制转换、窗体自动化技术。通过控制文本框值实现颜色变化，VBA编程技术并不复杂，但需要关注细节处理与代码结构优化。