VBA问题，当单元格为A值或B值或C值时如何更改颜色？ （无条件格式）。

1.（a） 绝对参考。

2.(b) =20，l2

3.(b) l2

4.(b) true

5.（a） 统计分析、财务管理分析、分析以及经济、行政方面。

6.(c) .xls

7.(c) 3

8.（d） 单元格在工作表中的位置。

9.(d) ctrl

10.（c） 右对齐。

11.(c) "文件"菜单"页面设置"

12.（b） 条件格式。

13.（c） 书名。

14.（b） 图表向导。

15.（a） 超文本标记语言。

16.（a） 统一资源定位器。

此外，集团IDC网络上还有很多产品**，价格便宜，口碑好。

材质工具：Excel2010

1. 打开Excel**，按[Alt+F11]组合快捷键打开VBA机器，或点击菜单栏上的【开发工具】和[Visual Basic]打开VBA机器。

2. 单击VBA设备菜单栏上的[插入]和[模块]，也可以使用[Alt+I+M]组合快捷键将“模块”插入到设备上。

<>4.在Excel**上方的[开始]、[填充颜色]、[其他颜色]中，您可以在“颜色”对话框的[自定义]中找到它，并且可以通过更改值来查看新颜色。

5.点击VBA机器工具栏中的“运行”图标运行程序，满足条件的线条将自动填充设定的颜色。

6.VBA自动填充符合条件的线条的颜色。

示例：option explicit

子宏 1（）。

range("a1").characters(4, 6). = vbred

end sub

关键内容是字符，类似于MID的使用，以及测试运行前的工作表

执行后的工作表：

程序：<>

如果需要，可以更改它、使用变量或从工作表中读取它。

没有人喜欢独处，只怕失望。

**想法：从第2点往下到最后，如果当前数据与之前的数据相同，则给出相同的颜色，例如卷起的禅果不同，那么旁边的颜色序列号+1就变成了不同的颜色。

**文本：Private Sub Workbook SheetSelectionChange（Byval sh 作为对象，Byval target 作为范围）。

n = 3for i = 2 to [b65536].end(3).row

if cells(i, 2) =cells(i - 1, 2) then

cells(i, 2). = n

elsen = n + 1

cells(i, 2). = n

end if

nextend sub

在Excel中，单击单元格A2后，使用VBA更改指定区域（B7：C1）中单元格的颜色。

这是可以实现的，但是如果下次点击A1后需要换色，那么需要先选择其他单元格，然后再点击A1单元格来实现，所以建议插入一个按钮来实现，操作步骤如下：

1. 在 VBE 中，按 Alt+F11 打开 VBE;

2. 依次点击“插入”菜单-“模块”;

3. 双击“模块”并写入**：

sub color()

range(“b2:c7”).

end sub

4. 返回Excel工作表，点击“开发工具”选项卡-“插入”-“按钮”;

5.在**上画一个按钮，会自动弹出一个提示框，你可以选择宏的颜色。

效果图如下：

第一反应是与其他功能合作。

我打开文件，发现它完全是这样的。

这与条件格式结合使用。

1. 选择您首先要查看的数据列。

2.在 开始 选项卡 - 样式 - 条件格式 - 新规则。

3.选择底行 - 使用公式确定要格式化的单元格，在公式的空白处填写 = a1<5000，然后单击 格式.

4. 在格式中设置字体颜色。

5. 最终结果是，这些符合条件的单元格的数字格式发生了重大变化。