如何在Excel中根據單元格顏色更改值？

本文討論的是基于Excel中其背景顏色自動更改單元格值。 例如，如果選擇的單元格填充為紅色背景色，則將這些單元格填充為數字1，而對于藍色背景色單元格，則填充數字0。

使用VBA代碼根據單元格顏色更改值

使用VBA代碼根據單元格顏色更改值驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

您可以運行下面的VBA代碼以根據Excel中的單元格顏色更改值。 請執行以下操作。

1.選擇需要根據背景色更改值的范圍，然后按 其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 模塊，然后將下面的VBA代碼復制并粘貼到“模塊”窗口中。

VBA代碼：根據Excel中的單元格顏色更改值

Sub ChangevaluebasedonCellColor()Dim rg As RangeDim xRg As RangeSet xRg = Selection.CellsApplication.Displayalerts = FalseFor Each rg In xRgWith rgSelect Case .Interior.ColorCase Is = 255 Red.Value = 1Case Is = 15773696 Blue.Value = 0End SelectEnd WithNextApplication.Displayalerts = FalseEnd SubCopy

3。 按 F5 鍵運行代碼，然后您可以看到選定范圍內的所有紅色單元格都用數字1填充，藍色單元格用數字0填充，如下圖所示。

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel