Hoe voeg je willekeurig een achtergrond/vulkleur toe aan cellen in Excel?

De volgende VBA-macrocode kan je helpen om een achtergrond- of vulkleur toe te voegen aan elke cel in een specifiek bereik met willekeurige kleuren. Je kunt als volgt te werk gaan:

Stap 1: Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

Stap 2: Klik op Invoegen > Module, en plak vervolgens de volgende VBA-code in het geopende Module-venster.

VBA: Voeg achtergrond- of vulkleur toe aan cellen met willekeurige kleur

Sub TrimExcessSpaces()
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)
Next
End Sub

Stap 3: Druk op de F5 -toets of klik op de Uitvoeren-knop om deze VBA-macro uit te voeren.

Stap 4: Nu verschijnt er een dialoogvenster, selecteer gewoon het bereik waar je willekeurige kleuren wilt toevoegen en klik op de OK-knop.

Nu zie je dat alle cellen in het opgegeven bereik willekeurig met verschillende kleuren zijn gevuld. Zie onderstaande schermafbeelding:

In sommige gevallen moet je mogelijk een achtergrondkleur toevoegen aan willekeurig geselecteerde cellen in een bepaald bereik. Om dit te doen, kun je de functie Sorteer Bereik Willekeurig van Kutools voor Excel gebruiken en vervolgens een achtergrondkleur toevoegen aan deze willekeurige cellen.

Stap 1: Selecteer het bereik waar je willekeurig cellen wilt vinden en een achtergrondkleur wilt toevoegen.

Stap 2: Klik op Kutools > Bereik > Sorteer Bereik Willekeurig.

Stap 3: Ga in het venster Sorteer Bereik Willekeurig naar het Selecteren tabblad, typ een getal in het Aantal cellen om te selecteren vak, vink de Willekeurige cellen selecteren optie aan en klik op de OK-knop. Zie onderstaande schermafbeelding:

Stap 4: Nu zijn een bepaald aantal cellen willekeurig geselecteerd in het opgegeven bereik. Klik vervolgens op de pijl naast de knop Vulkleur op het tabblad Start en selecteer een achtergrondkleur uit de vervolgkeuzelijst.

Nu zie je dat de achtergrondkleur is toegevoegd aan de willekeurig geselecteerde cellen zoals hieronder weergegeven:

Cellen in een kolom of bereik willekeurig sorteren

Cellen willekeurig selecteren

Genereer willekeurige teksten