自動將使用條件格式的單元格的背景顏色復制到另一個單元格

Question

我剛剛發現 VBA 試圖為以下場景尋找解決方案：

我有一個帶有下表的 Excel 工作簿：

我正在嘗試創建一個圖表，比較顯示每個團隊的得分。 我希望圖表也復制單元格的 colors，但這是不可能的，因為 A 列中包含團隊名稱的單元格沒有填充。

我想要做的是有一個 VBA 代碼，它會自動將顏色從 B1 復制到 A1，從 B2 到 A2，從 B3 到 A3 等。我找到了幾篇帶有代碼的文章，但沒有一個有效，因為 B 列中的單元格根據條件格式填充了某種顏色。

另外，由於我對此很陌生，因此我需要您解釋如何執行與 VBA 相關的特定操作。

Answer 1

取決於條件格式的顏色可以通過Range.DisplayFormat 屬性獲得。

因此，您可以使用以下代碼滿足您的要求：

Sub copyConditionalColors()
 Dim r As Range
 Dim c As Range
 Set r = ActiveSheet.Range("B1:B5")
 For Each c In r
  c.Offset(0, -1).Interior.Color = c.DisplayFormat.Interior.Color
 Next

End Sub