Mewnosodwch werthoedd o'r rhestr neu'r golofn benodol (heb ailadroddiadau) yn Excel

Kutools ar gyfer Excel's Mewnosod Data ar Hap mae cyfleustodau yn galluogi defnyddwyr Excel i fewnosod gwerthoedd o'r rhestr neu'r golofn benodol yn Excel.

Gall y cod macro VBA canlynol eich helpu i ychwanegu cefndir neu lenwi lliw ar gyfer pob cell mewn ystod benodol gyda lliwiau ar hap. Gallwch wneud fel a ganlyn:

Cam 1: Gwasgwch Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.

Cam 2: Cliciwch Mewnosod> Modiwl, ac yna pastiwch ddilyn y cod VBA i mewn i ffenestr y Modiwl agoriadol.

VBA: Ychwanegu cefndir neu lenwi lliw ar gyfer celloedd â lliw ar hap

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

Cam 3: Pwyswch y F5 allwedd neu cliciwch y Run botwm i redeg y macro VBA hwn.

Cam 4: Nawr bod blwch deialog yn dod allan, dewiswch yr ystod rydych chi am ychwanegu cefndir gyda lliwiau ar hap, ac yna cliciwch ar y OK botwm.

Nawr fe welwch fod yr holl gelloedd yn yr ystod benodol yn cael eu llenwi â gwahanol liwiau ar hap. Gweler isod y sgrinlun:

Mewn rhai achosion, efallai y bydd angen i chi ychwanegu lliw cefndir i gelloedd a ddewiswyd ar hap mewn ystod benodol. I wneud hynny, gallwch chi roi cynnig ar Kutools ar gyfer Excel's Trefnu Ystod ar Hap cyfleustodau, ac yna ychwanegu lliw cefndir ar gyfer y celloedd ar hap hyn.

Cam 1: Dewiswch yr ystod lle rydych chi am ddod o hyd i gelloedd ar hap ac ychwanegu lliw cefndir.

Cam 2: Cliciwch y Kutools > Ystod > Trefnu Ystod ar Hap.

Cam 3: Yn y blwch deialog agoriadol Sort Range Randomly, ewch i dewiswch tab, teipiwch rif yn y Nifer y gell (iau) i'w dewis blwch, gwirio Dewiswch gelloedd ar hap opsiwn, a chliciwch ar y OK botwm. Gweler isod y sgrinlun:

Cam 4: Nawr mae nifer penodedig o gelloedd yn cael eu dewis ar hap yn yr ystod benodol. Yna cliciwch y arrow ar wahân i'r Llenwch Lliw botwm ar y Hafan tab, a dewis lliw cefndir o'r gwymplen.

Nawr fe welwch fod y lliw cefndir yn cael ei ychwanegu at y celloedd a ddewiswyd ar hap fel y dangosir isod y sgrinlun:

Didoli celloedd ar hap mewn colofn neu amrediad

Dewiswch gelloedd ar hap

Cynhyrchu tannau ar hap