Naključno vstavite vrednosti z določenega seznama ali stolpca (brez ponovitev) v Excelu

Kutools za Excel Vstavite naključne podatke pripomoček omogoča Excelovim uporabnikom naključno vstavljanje vrednosti z določenega seznama ali stolpca v Excelu.

Naslednja koda makra VBA vam lahko pomaga dodati barvo ozadja ali polnila za vsako celico v določenem obsegu z naključnimi barvami. Naredite lahko naslednje:

Korak 1: Pritisnite druga + F11 za odpiranje okna Microsoft Visual Basic for Applications.

2. korak: Kliknite Vstavi> Modul in nato prilepite naslednjo kodo VBA v okno Modul, ki se odpre.

VBA: dodajte barvo ozadja ali polnila za celice z naključno barvo

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

Korak 3: Pritisnite tipko F5 ali kliknite Run za zagon tega makra VBA.

4. korak: Zdaj se odpre pogovorno okno, samo izberite obseg, ki mu želite dodati ozadje z naključnimi barvami, in nato kliknite OK gumb.

Zdaj boste videli, da so vse celice v določenem obsegu naključno napolnjene z različnimi barvami. Oglejte si spodnji posnetek zaslona:

V nekaterih primerih boste morda morali naključno izbranim celicam v določenem obsegu dodati barvo ozadja. Če želite to narediti, lahko preizkusite Kutools za Excel Razvrsti obseg naključno in nato dodajte barvo ozadja za te naključne celice.

1. korak: Izberite obseg, v katerem želite naključno najti celice, in dodajte barvo ozadja.

Korak 2: Kliknite na Kutools > Območje > Razvrsti obseg naključno.

3. korak: V začetnem pogovornem oknu Razvrsti naključno obseg pojdite na Izberite zavihek, vnesite številko v Število celic, ki jih želite izbrati potrdite polje Izberite naključne celice in kliknite na OK . Oglejte si spodnji posnetek zaslona:

4. korak: Zdaj določeno število celic je naključno izbranih v določenem obsegu. Nato kliknite arrow poleg Barva polnila gumb na Domov in na spustnem seznamu izberite barvo ozadja.

Zdaj boste videli, da je barva ozadja dodana naključno izbranim celicam, kot je prikazano spodaj:

Naključno razvrstite celice v stolpcu ali obsegu

Naključno izberite celice

Ustvari naključne nize