Voeg willekeurig waarden in uit de opgegeven lijst of kolom (zonder herhalingen) in Excel

Kutools voor Excel's Voeg willekeurige gegevens in hulpprogramma stelt Excel-gebruikers in staat om willekeurig waarden in te voegen uit de opgegeven lijst of kolom in Excel.

De volgende VBA-macrocode kan u helpen om een ​​achtergrond- of vulkleur toe te voegen voor elke cel in een specifiek bereik met willekeurige kleuren. U kunt het volgende doen:

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

Stap 2: klik op bijvoegsel> module, en plak de volgende VBA-code in het geopende modulevenster.

VBA: achtergrond- of vulkleur toevoegen voor cellen met een 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 lopen knop om deze VBA-macro uit te voeren.

Stap 4: Nu verschijnt er een dialoogvenster, selecteer gewoon het bereik waarvoor u een achtergrond met willekeurige kleuren wilt toevoegen en klik vervolgens op 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 u mogelijk een achtergrondkleur toevoegen aan willekeurig geselecteerde cellen in een opgegeven bereik. Om het voor elkaar te krijgen, kunt u Kutools voor Excel's proberen Sorteer bereik willekeurig utility en voeg vervolgens een achtergrondkleur toe voor deze willekeurige cellen.

Stap 1: Selecteer het bereik waar u willekeurig cellen wilt vinden en voeg een achtergrondkleur toe.

Stap 2: klik op de Kutools > RANGE > Sorteer bereik willekeurig.

Stap 3: Ga in het dialoogvenster Sorteerbereik willekeurig openen naar kies tab, typ een nummer in het Aantal te selecteren cel (len) vakje, vink aan Selecteer willekeurige cellen optie en klik op de OK knop. Zie onderstaande schermafbeelding:

Stap 4: Het nu opgegeven aantal cellen wordt willekeurig geselecteerd in het opgegeven bereik. Klik vervolgens op het pijl naast de opvulkleur knop op de Home tabblad en selecteer een achtergrondkleur in de vervolgkeuzelijst.

Nu zul je zien dat de achtergrondkleur wordt toegevoegd aan de willekeurig geselecteerde cellen, zoals hieronder wordt getoond:

Sorteer cellen willekeurig in een kolom of bereik

Selecteer cellen willekeurig

Genereer willekeurige strings