Произволно вмъкване на стойности от посочения списък или колона (без повторения) в Excel

Kutools за Excel Вмъкване на произволни данни помощната програма позволява на потребителите на Excel произволно да вмъкват стойности от посочения списък или колона в Excel.

Следният макрокод на VBA може да ви помогне да добавите фон или цвят за запълване за всяка клетка в определен диапазон с произволни цветове. Можете да направите следното:

Стъпка 1: Натиснете Друг + F11 клавиши, за да отворите прозореца на Microsoft Visual Basic за приложения.

Стъпка 2: Щракнете върху Вмъкване > Модули и след това поставете следния VBA код в отварящия се прозорец на модула.

VBA: Добавете фон или цвят за запълване на клетки с произволен цвят

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

Стъпка 3: Натиснете бутона F5 клавиша или щракнете върху бягане бутон, за да стартирате този VBA макрос.

Стъпка 4: Сега се появява диалогов прозорец, просто изберете диапазона, който искате да добавите фон с произволни цветове, и след това щракнете върху OK бутон.

Сега ще видите, че всички клетки в посочения диапазон са запълнени с различни цветове на случаен принцип. Вижте екранна снимка по-долу:

В някои случаи може да се наложи да добавите фонов цвят към произволно избрани клетки в определен диапазон. За да го направите, можете да опитате Kutools за Excel Сортиране на обхват на случаен принцип помощна програма и след това добавете фонов цвят за тези произволни клетки.

Стъпка 1: Изберете диапазона, в който искате произволно да намерите клетки и добавете цвят на фона.

Стъпка 2: Кликнете върху Kutools > Обхват > Сортиране на обхват на случаен принцип.

Стъпка 3: В отварящия се диалогов прозорец Сортиране на диапазон произволно отидете на Изберете раздел, въведете число в Брой клетки за избор кутия, отметка Изберете произволни клетки и щракнете върху OK бутон. Вижте екранна снимка по-долу:

Стъпка 4: Сега определен брой клетки се избират произволно в определения диапазон. След това щракнете върху стрелка Освен Попълнете Color бутона на Начало и изберете цвят на фона от падащия списък.

Сега ще видите, че цветът на фона е добавен към произволно избраните клетки, както е показано на екрана по-долу:

Произволно сортиране на клетки в колона или диапазон

Изберете произволно клетки

Генериране на произволни низове