Как случайным образом добавить фон или цвет заливки ячейкам в Excel?

С помощью VBA (Visual Basic for Applications) можно автоматически назначить каждой ячейке в выбранном диапазоне случайный цвет заливки. Это особенно полезно, когда каждая ячейка должна иметь уникальный цвет, а операцию приходится часто повторять для разных наборов данных.

1. Нажмите Alt+F11, чтобы открыть редактор Microsoft Visual Basic for Applications.

2. В редакторе VBA выберите Вставка > Модуль, чтобы создать новый модуль.

3.Скопируйте и вставьте приведённый ниже код 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

4. Нажмите F5 или щёлкните кнопку Выполнить, чтобы запустить макрос.

5.Когда появится запрос, выделите диапазон ячеек, которые нужно заполнить случайными цветами, и нажмите OK.

6.Выделенные ячейки заполнятся случайными цветами. Чтобы применить операцию к другому диапазону, просто запустите макрос снова и выберите новый диапазон.

Во многих практических случаях гораздо удобнее случайным образом выделять не весь диапазон, а лишь подмножество ячеек — и затем применять к ним цвет фона по вашему выбору. Kutools для Excel предлагает удобный инструмент под названием Случайно переставить, который упрощает эту задачу без необходимости использовать VBA или формулы. Это особенно полезно, если вы хотите добавить яркие акценты только к определённому количеству ячеек в списке или наборе данных — например, чтобы выделить случайно выбранных победителей, распределить участников по группам или отобрать тестовые данные.

1.Выделите весь диапазон ячеек, в котором нужно случайным образом заполнить некоторые из них цветом фона. Для наилучшего результата убедитесь, что ваши данные не содержат объединённых ячеек или другого форматирования, которое может повлиять на выделение.

2. Перейдите на вкладку Kutools на ленте, выберите Диапазон, затем щёлкните Случайно переставить.

3. В диалоговом окне перейдите на вкладку Выделить. Введите количество ячеек, которые нужно выбрать случайным образом, в поле Количество выбираемых ячеек: и установите флажок Ячейка. Нажмите OK, чтобы подтвердить.

4. Будет выделено указанное количество ячеек. Чтобы применить Цвет заполнения, перейдите на вкладку Главная, щёлкните стрелку рядом с Цвет заполнения и выберите нужный цвет. Выделенные ячейки окрасятся немедленно.

Этот метод идеально подходит, если вы хотите контролировать количество случайно окрашенных ячеек и самостоятельно выбирать Цвет заполнения. Подход Kutools исключает необходимость писать код или использовать формулы, делая процесс доступным даже для пользователей, мало знакомых с продвинутыми возможностями Excel. Основное ограничение заключается в том, что за один раз можно назначить только один выбранный цвет; для полной случайной окраски всех ячеек лучше подойдёт описанный ранее метод с использованием VBA. Если потребуется повторно выбрать или изменить случайные ячейки, просто повторите процесс выделения с помощью Случайно переставить, а затем примените новый цвет по необходимости.

Случайная сортировка ячеек в столбце или диапазоне

Случайное выделение ячеек

Генерация случайных строк