excel-基于字体和背景颜色将单元格中的值放入

Question

我有一个电子表格 - 在其中一个选项卡上，我有一个填充名称的表格，并且它们与一组参数相关，这些参数是颜色编码的以及它们有不同的背景颜色。 我需要创建一个公式来将基于颜色的那些“X”更改为简单文本（例如，如果单元格具有绿色背景并且黑色“X”，比我想将它称为GB，如果单元格具有黄色背景并且蓝色“X” - YB等）

任何人都可以，请帮助我这个？

非常感谢。

---

更新：

我已经在这里发现了很多很好的参考，但我没有做正确的事情。我创建了2名ranges-如：

CellColor=GET.CELL(63,OFFSET(INDIRECT("RC",FALSE),0,-1)) 

FontColor=GET.CELL(24,OFFSET(INDIRECT("RC",FALSE),0,-1)) 

我想通了我们对号码的字体和背景颜色。但是当我把它式 - 不给我正确的价值观：

=IF(AND(FontColor=3,I18="X"),"EXR",(IF(AND(FontColor=23,I18="X"),"BU",(IF(AND(Fo‌ntColor=0,I18="X"),"EPL",0))))) 

如果我把在列的公式在它的工作原理，如果在另一个标签 - 它不细胞的左边 - ： （

Answer 1

在VBA：

Sub SetValueBasedOnColors() 
Dim c As Range 
For Each c In Range("A2:A10") 
    If c.Interior.Color = RGB(196, 215, 155) And c.Font.Color = RGB(0, 0, 0) Then 
     c.Value = "GB" 
    ElseIf c.Interior.Color = RGB(255, 255, 0) And c.Font.Color = RGB(31, 73, 125) Then 
     c.Value = "YB" 
    End If 
Next c 
End Sub 

结果：

你可以对细胞和选择室内色彩通过右键点击：

Format Cells...->More Colors...->Custom (Tab)

如果有很多的颜色一起工作，你可以设置一个“颜色表”保持简单的代码，并避免你不必查看每种颜色。

只需将颜色和X的单元格复制到一个范围内，然后输入您希望它们成为的样子。确保将ColorTable范围更改为表格的正确范围。

Sub SetValueBasedOnColors() 
Dim ColorTable As Range 
Set ColorTable = Range("D2:D3") 'Point this range to your color table 
Dim c As Range 
Dim z As Range 
For Each c In Range("A2:A10") 'Point this range to your data 
    For Each z In ColorTable 
     If c.Interior.Color = z.Interior.Color And c.Font.Color = z.Font.Color Then 
      c.Value = z.Value 
     End If 
    Next z 
Next c 
End Sub 

结果：