Hoe voegt u willekeurig een achtergrond- of vulkleur toe aan cellen in Excel?

Met VBA (Visual Basic for Applications) kunt u automatisch een willekeurige vulkleur toewijzen aan elke cel in een geselecteerd bereik. Ideaal als u elke cel een unieke kleur wilt geven en deze actie regelmatig moet herhalen voor verschillende datasets.

1. Druk op Alt + F11 om de Microsoft Visual Basic for Applications-editor te openen.

2. Klik in de VBA-editor op Invoegen > Module om een nieuwe module aan te maken.

3.Kopieer en plak de volgende VBA-code in het modulevenster (bewerk de code niet):

VBA: Voeg achtergrond of Vulkleur toe voor 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

4. Druk op F5 of klik op de knop Uitvoeren om de macro uit te voeren.

5. Selecteer bij de prompt het celbereik dat u wilt vullen met willekeurige kleuren en klik op OK.

6. De geselecteerde cellen worden gevuld met willekeurig gegenereerde kleuren. Voer de macro opnieuw uit en selecteer een nieuw bereik om dit te herhalen voor een ander bereik.

In veel praktische situaties wilt u misschien slechts een subset van cellen willekeurig selecteren in plaats van het volledige bereik, om er vervolgens de achtergrondkleur van uw keuze op toe te passen. Kutools voor Excel biedt een gebruiksvriendelijke tool genaamd Willekeurig sorteren die deze taak vereenvoudigt — zonder VBA of formules te gebruiken. Dit is vooral handig voor gebruikers die slechts een beperkt aantal cellen in een lijst of dataset willen opfleuren met kleur, bijvoorbeeld om willekeurig geselecteerde winnaars te markeren, groepen toe te wijzen of testdata te bemonsteren.

1.Selecteer het volledige celbereik waarin u willekeurig enkele cellen met een achtergrondkleur wilt vullen. Zorg voor optimale resultaten dat uw gegevens geen samengevoegde cellen of andere opmaak bevatten die de selectie zou kunnen beïnvloeden.

2. Ga naar het tabblad Kutools op het lint, kies Bereik en klik vervolgens op Willekeurig sorteren.

3. Schakel in het dialoogvenster over naar het tabblad Selecteren. Voer het aantal cellen dat u willekeurig wilt selecteren in het vak Aantal cellen om te selecteren in en vink Cel aan. Klik op OK om te bevestigen.

4. Het opgegeven aantal cellen wordt gemarkeerd (geselecteerd). Om een vulkleur toe te passen, gaat u naar het tabblad Start, klikt u op de pijl naast Vulkleur en kiest u een kleur. De geselecteerde cellen worden direct gekleurd.

Deze methode is ideaal als u het aantal willekeurig gekleurde cellen wilt bepalen en uw eigen vulkleur wilt kiezen. Met de aanpak van Kutools hoeft u geen code te schrijven of formules te gebruiken, waardoor het proces ook toegankelijk is voor gebruikers die minder vertrouwd zijn met de geavanceerdere functies van Excel. De belangrijkste beperking is dat er telkens maar één gekozen kleur wordt toegepast; voor volledig gerandomiseerde kleuring van alle cellen is de eerder beschreven VBA-aanpak beter geschikt. Als u opnieuw willekeurige cellen wilt selecteren of wijzigen, herhaalt u eenvoudigweg het selectieproces via Willekeurig sorteren en past u daarna een nieuwe kleur toe.

Cellen willekeurig sorteren in een kolom of bereik

Cellen willekeurig selecteren

Willekeurige teksten genereren