Cuir isteach luachanna ón liosta nó ón gcolún sonraithe go randamach (gan athrá) in Excel

Kutools le haghaidh Excel's Cuir isteach Sonraí randamacha cuireann fóntais ar chumas úsáideoirí Excel luachanna a chur isteach go randamach ón liosta nó ón gcolún sonraithe in Excel.

Is féidir leis an macra-chód VBA seo a leanas cabhrú leat cúlra a chur leis nó dath a líonadh do gach cill i raon ar leith le dathanna randamacha. Is féidir leat a dhéanamh mar a leanas:

Céim 1: Brúigh Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

Céim 2: Cliceáil Ionsáigh> Modúl, agus ansin greamaigh an cód VBA seo a leanas i bhfuinneog an Mhodúil tosaigh.

VBA: Cuir cúlra nó cuir dath ar fáil do chealla a bhfuil dath randamach orthu

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

Céim 3: Brúigh an F5 eochair nó cliceáil ar an Rith cnaipe chun an macra VBA seo a rith.

Céim 4: Anois go dtagann bosca dialóige amach, ní gá ach an raon a theastaíonn uait cúlra a chur le dathanna randamacha a roghnú, agus ansin cliceáil ar an OK cnaipe.

Anois feicfidh tú go bhfuil na cealla uile sa raon sonraithe líonta le dathanna éagsúla go randamach. Féach thíos an scáileán scáileáin:

I roinnt cásanna, b’fhéidir go mbeidh ort dath cúlra a chur le cealla a roghnófar go randamach i raon sonraithe. Chun é a chur i gcrích, is féidir leat triail a bhaint as Kutools for Excel's Raon Sórtáil go randamach fóntais, agus ansin cuir dath cúlra ar na cealla randamacha seo.

Céim 1: Roghnaigh an raon inar mian leat cealla a aimsiú go randamach agus cuir dath cúlra leis.

Céim 2: Cliceáil ar an Kutools > Raon > Raon Sórtáil go randamach.

Céim 3: Sa bhosca dialóige Sórt Range go randamach, téigh chuig Roghnaigh cluaisín, clóscríobh uimhir sa Líon na gcill (í) le roghnú bosca, seiceáil Roghnaigh cealla randamacha rogha, agus cliceáil ar an OK cnaipe. Féach thíos an scáileán scáileáin:

Céim 4: Anois roghnaítear líon sonraithe cealla go randamach sa raon sonraithe. Ansin cliceáil ar an arrow sa bhreis ar an Dath an Líonta cnaipe ar an Baile cluaisín, agus roghnaigh dath cúlra ón liosta anuas.

Anois feicfidh tú go gcuirtear an dath cúlra leis na cealla a roghnaíodh go randamach mar a thaispeántar thíos an scáileán:

Cealla a shórtáil go randamach i gcolún nó i raon

Roghnaigh cealla go randamach

Gin teaghráin randamacha