根据一组具有不同颜色的单元格更改单元格颜色答案

【问题标题】：Change a cell colour based on a group of cells with different colours根据一组具有不同颜色的单元格更改单元格颜色
【发布时间】：2017-01-19 21:33:06
【问题描述】：

我有一个电子表格，其中包含各种信息，并且有大量的条件格式。现在的问题是......我有 4 个单元格的范围，如果满足所有标准，所有单元格都可以恢复为绿色，或者其中一个单元格恢复为琥珀色，或者如果标准部分满足或不满足，则为红色一点也不。我想更改使用自动求和的单元格的颜色，但如果所有单元格为绿色，我也想将其更改为绿色，如果一个或多个单元格显示为琥珀色，则更改为琥珀色，或者如果一个或多个单元格显示为红色，则将其更改为红色。但也可能存在混合，因此一个单元格可能是绿色的、一个琥珀色的和一个红色的。所以对单元格的值不感兴趣，只对颜色感兴趣。然后，我还想将数据（值和颜色）完全转移到另一张纸上。有什么想法吗？？

【问题讨论】：

更改单元格颜色go here。使用 VBA 复制和粘贴go here。引用不同的工作表go here。要了解如何在 StackOverflow go here 上提出一个好问题。我用谷歌搜索了你的问题，这些是第一个弹出的链接。除了复制面食之外，还有其他方法。试试看，如果它不起作用，我们会帮助解决它。

标签： vba excel colors excel-formula

【解决方案1】：

要回答您问题的第一部分，下面是简单的代码，您需要根据自己的需要进行调整（更改范围，确保使用正确的颜色等）

此外，如果您想针对更大的范围执行此操作，则需要使用 For ... Next 或其他循环来循环此宏。 p>

Sub interiorcolor()


Dim Range1, Range2, Range3, Range4 As Range

Set Range1 = Sheets("Sheet1").Range("A1")
Set Range2 = Sheets("Sheet1").Range("A2")
Set Range3 = Sheets("Sheet1").Range("A3")
Set Range4 = Sheets("Sheet1").Range("A4")


If Range1.Interior.ColorIndex = 3 Or Range2.Interior.ColorIndex = 3 Or Range3.Interior.ColorIndex = 3 Or Range4.Interior.ColorIndex = 3 Then

Sheets("Sheet1").Range("A5").Interior.ColorIndex = 3

ElseIf Range1.Interior.ColorIndex = 53 Or Range2.Interior.ColorIndex = 53 Or Range3.Interior.ColorIndex = 53 Or Range4.Interior.ColorIndex = 53 Then

Sheets("Sheet1").Range("A5").Interior.ColorIndex = 53

ElseIf Range1.Interior.ColorIndex = 43 And Range2.Interior.ColorIndex = 43 And Range3.Interior.ColorIndex = 43 And Range4.Interior.ColorIndex = 43 Then

Sheets("Sheet1").Range("A5").Interior.ColorIndex = 43

Else

Sheets("Sheet1").Range("A5").Interior.ColorIndex = 2

End If


End Sub

【讨论】：