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

Question

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

Answer 1

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

另外，如果要对更大范围的范围执行该操作，则需要使用以下命令循环此宏： For ... Next或其他循环。

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