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 

結果：