Como adicionar aleatoriamente cor de fundo/preenchimento para células no Excel?

O seguinte código de macro VBA pode ajudá-lo a adicionar cor de fundo ou preenchimento para cada célula em um intervalo específico com cores aleatórias. Você pode fazer o seguinte:

Passo 1: Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

Passo 2: Clique em Inserir > Módulo e, em seguida, cole o seguinte código VBA na janela Módulo aberta.

VBA: Adicionar cor de fundo ou preenchimento para células com cor aleatória

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

Passo 3: Pressione a tecla F5 ou clique no botão Executar para executar esta macro VBA.

Passo 4: Agora uma caixa de diálogo aparece, basta selecionar o intervalo onde deseja adicionar cor de fundo com cores aleatórias e, em seguida, clique no botão OK.

Agora você verá que todas as células no intervalo especificado estão preenchidas com diferentes cores aleatoriamente. Veja a captura de tela abaixo:

Em alguns casos, você pode precisar adicionar cor de fundo para células selecionadas aleatoriamente em um intervalo especificado. Para fazer isso, você pode experimentar o utilitário Ordenar Aleatoriamente do Kutools para Excel e, em seguida, adicionar cor de fundo para essas células aleatórias.

Passo 1: Selecione o intervalo onde deseja encontrar células aleatoriamente e adicionar cor de fundo.

Passo 2: Clique em Kutools > Intervalo > Ordenar Aleatoriamente.

Passo 3: Na caixa de diálogo Ordenar Aleatoriamente que se abre, vá para a aba Selecionar, digite um número na caixa No. de células a selecionar, marque a opção Selecionar células aleatórias e clique no botão OK. Veja a captura de tela abaixo:

Passo 4: Agora, um número específico de células é selecionado aleatoriamente no intervalo especificado. Em seguida, clique na seta ao lado do botão Cor de Preenchimento na guia Página Inicial e selecione uma cor de fundo na lista suspensa.

Agora você verá que a cor de fundo foi adicionada às células selecionadas aleatoriamente, conforme mostrado na captura de tela abaixo:

Classificar células aleatoriamente em uma coluna ou intervalo

Selecionar células aleatoriamente

Gerar sequências aleatórias