在 EXCEl 中，单元格颜色变化是通过 VBA 实现的

<>您可以在此处执行此操作，则无需 VBA

条件格式可以做到，但说起来容易做起来难。

材质工具：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的使用，以及测试运行前的工作表

执行后的工作表：

程序：<>

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

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

在使用excel的时候，有时候我们需要对一些特殊的数据做特殊的处理，比如把它做成红色，在excel中做一个单元格是红色的需要用到条件格式的，那么如何使用excel的公式条件进行条件格式化，有两种一般的用法，下面是一个文字记录，我来为你解答。

更改Excel单元格颜色的步骤1语言分数低于 60 分的单元格将自动以红色报告。

更改图 1 中 excel 单元格颜色的步骤1）选择B2：B6区域，单击“格式”，然后选择“条件格式”

2）进入条件格式对话框，选择[单元格值]，条件选择[小于]，输入60作为值

更改图 2 中 excel 单元格颜色的步骤3）点击 格式 在条件格式中，然后选择 图案为粉红色 在 单元格格式 对话框。

更改图 3 中 excel 单元格颜色的步骤4）点击确定，条件格式化完成，效果如下。

图 4 中更改 excel 单元格颜色的步骤2.中文和数学分数低于 70 分的名称单元格以红色报告。

1） 选择 A2：A6 区域，单击“格式”，然后选择“条件格式”

2）进入条件格式对话框，选择【公式】，输入公式=and（b2<70，c2<70）。

图 5 中更改 excel 单元格颜色的步骤3）点击 格式 在条件格式中，然后选择 图案为粉红色 在 单元格格式 对话框。

4）点击确定，条件格式化完成，效果如下。

更改图 6 中 excel 单元格颜色的步骤当然，还有很多其他的公式，在实践中，你可以根据自己的需要设置公式条件。

您可能还喜欢：1如何在Excel中设置背景颜色。

2.Excel 2013 使用下拉菜单来更改颜色。

3.Excel 方法设置单元格颜色。

4.Excel将背景颜色改为浅绿色操作技巧。

5.Excel** 设置显示单元格颜色的操作方法。

6.如何在Excel中设置单元格的背景颜色。

7.如何设置 excel 单元格的颜色。

8.Excel 是用公式为单元格着色的技巧。

房东：您好，您的问题有一个前提条件：

如果您的 Excel 版本是 2003，则只能使用系统预设的 56 种颜色。 使用 VBA** 实现的其他填充颜色将转换为最接近 56 种颜色的填充颜色。

如果你的Excel版本是2007及以上，那么单元格填充颜色几乎是无限的，你可以完全通过单元格填充命令实现自定义颜色填充，支持RGB、HSL两种模式，无需使用VBA。

如果您使用的是 VBA，则 ** 如下所示：

sub test()

用红色、RGB（红、绿、蓝）填充 A1 单元格，红、绿、蓝的值为 0 255，您可以设置不同的值以获得不同的颜色。

range("a1"). = rgb(255, 0, 0) '填充物为红色。

如果你想摆脱填充颜色，就用这句话。

range("a1"). = xlnoe

end sub

'写下这一段**，你应该能够理解。

sub color_by_zzllrr

for i=4 to 12

for j=1 to 10

if cells(i,12+j*2)=cells(i,j+1) then

cells(i,12+j*2).

end if

next j

next i

end sub

public c '定义全局变量 c

private sub worksheet_selectionchange(byval target as range)

on error resume next

dim one, c1%

if > 1 and < 12 then c = '如果首次选择的单元格位于列 B-K 之间，则记录此时的列号。

if c = 0 then exit sub

c1 =if c1 > 13 then

for one = 4 to 12 '因为您的数据位于第 4 行和第 12 行之间。

if cells(one, c1) = cells(one, c) then '比较两列的数据。

cells(one, c1). = 3 '着色。

end if

next '比较下一个。

c = 0 '清除 C

end if

end sub

用法：粘贴到表1的页面中。

1. 在数据 1 中选择要比较的列中的单个单元格。

2. 在数据 2 中选择要比较的列中的单个单元格。

我做了一个，不能发给你。

Excel条件格式可以使单元格在满足预设条件后更改为预设格式（如填充颜色、字体颜色等）。 下面以Excel 2010为例进行演示——当单元格值大于等于4且小于等于8时，单元格字体颜色为红色

1. 选择数据区域并创建条件格式。

2.设置具体规则和格式如下图所示（点击**查看动画演示） <>

它似乎是格式条件格式，只有当满足条件时，才会成为设置的颜色。

选择 cell-format-conditional-cell-value-between -5 和 10 磅格式按钮-将格式设置为黑色，然后单击添加-再次设置-完成后按 OK。

**想法：从第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

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

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

这与条件格式结合使用。