Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
Register  \/ 


How to change value based on cell color in Excel?

This article is talking about changing cell value automatically based on its background color in Excel. For example, if cells filling with red background color in selection, then populate these cells with number 1, and for the blue background color cells, fill in number 0.

Change value based on cell color with VBA code

Change value based on cell color with VBA code

You can run the below VBA code to change value based on cell color in Excel. Please do as follows.

1. Select the range that you need to change values based on background color, then press Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.

2. In the Microsoft Visual Basic for Applications window, click Insert > Module, then copy and paste the below VBA code into the Module window.

VBA code: Change value based on cell color in Excel

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Application.DisplayAlerts = False
End Sub

3. Press the F5 key to run the code, then you can see all red cells in selected range are filled with number 1, and the blue cells are filled with number 0 as below screenshot shown.


The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    sphilton · 11 months ago
    Is there a way to do this, but have it automatically go through multiple files?

    For context, questionnaires were sent to a couple hundred facilities, their MC answer selected corresponds to a color indicating score (e.g. green is good, red is bad), and change the content of the cell (with a process like in this thread) to something that R or another software could read, and then use that to generate automatic reports. I could go through each of these files with this macro (or a completely different idea), but that would take a long time.
  • To post as a guest, your comment is unpublished.
    Sef · 1 years ago
    The code works fine for me, but I would need to rewrite the code to fit colours specific for my document. But I don´t know what code "my colours" have, anyone who know where on can find codes for other colours?
    • To post as a guest, your comment is unpublished.
      JJ · 26 days ago
      I came across this lucky strike which was helpful but don't know where to find a full directory! 
    • To post as a guest, your comment is unpublished.
      Zedd · 1 years ago
      How do you run it, i run but nothing seems to happen

      • To post as a guest, your comment is unpublished.
        Pooja · 1 years ago
        You can replace colors to values by simply using Find and Replace function. Go to the format function on the right side of the Find and Replace dialog box and then under "Fill" you can select the color that you have. Then on the "replace with" just write the value you want.
  • To post as a guest, your comment is unpublished.
    Pjotr · 1 years ago
    is it possible to adjust this code based on the cells conditional formatting rule?
  • To post as a guest, your comment is unpublished.
    JBrinx · 2 years ago
    Excel seems to crash whenever I try to run the VBA code. Seems like a bust.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good day,
      The code works well in my case. Can you tell me your Excel version? Thank you for your comment.
      • To post as a guest, your comment is unpublished.
        Brandy · 2 years ago
        I'm in the same boat, trying to run this but the code seems to get hung. Excel 2016.
  • To post as a guest, your comment is unpublished.
    Dan · 4 years ago
    I'm looking to give a cell a name based on the colour within one worksheet. i.e. if a cell is red then it gets named "name", if it is orange then it gets names "surname" etc.

    What code would need to change to have the range as the whole sheet/tab and a name instead of a value?
  • To post as a guest, your comment is unpublished.
    Tim · 4 years ago
    What changes to the code would be needed if you wanted this to apply to the text color of a cell, rather than the cell color?