Randomly add background/fill color for cells with VBA
The following VBA macro code can help you to add background or fill color for each cell in a specific range with random colors. You can do as follows:
Step 1: Press Alt + F11 keys to open the Microsoft Visual Basic for Applications window.
Step 2: Click Insert > Module, and then paste following VBA code into the opening Module window.
VBA: Add background or fill color for cells with random color
Dim rng As Range
Dim WorkRng As Range
Dim xRed As Byte
Dim xGreen As Byte
Dim xBule As Byte
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
xRed = Application.WorksheetFunction.RandBetween(0, 255)
xGreen = Application.WorksheetFunction.RandBetween(0, 255)
xBule = Application.WorksheetFunction.RandBetween(0, 255)
rng.Pattern = xlSolid
rng.PatternColorIndex = xlAutomatic
rng.Interior.Color = VBA.RGB(xRed, xGreen, xBule)
Step 3: Press the F5 key or click the Run button to run this VBA macro.
Step 4: Now a dialog box comes out, just select the range you want to add background with random colors, and then click the OK button.
Now you will see all cells in the specified range are filled with different colors randomly. See below screen shot:
Randomly add background/fill color for cells with Kutools for Excel
In some cases, you may need to add background color to randomly selected cells in a specified range. To get it done, you can try Kutools for Excel’s Sort Range Randomly utility, and then add background color for these random cells.
Step 1: Select the range where you want to find cells randomly and add background color.
Step 2: Click the Kutools > Range > Sort Range Randomly.
Step 3: In the opening Sort Range Randomly dialog box, go to Select tab, type a number in the No. of cell(s) to select box, check Select random cells option, and click the OK button. See below screen shot:
Step 4: Now specified number of cells are randomly selected in the specified range. Then click the arrow besides the Fill Color button on the Home tab, and select a background color from the drop down list.
Now you will see the background color is added to the randomly selected cells as below screen shot shown:
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.
I am trying to do this same highlight macro with one small adjustment:is there a way to take the range selected an highlight it one random color so each time you run the macro the range of active cells is highlighted a different color