Como adicionar aleatoriamente uma cor de fundo ou de preenchimento a células no Excel?

Com o VBA (Visual Basic for Applications), pode atribuir automaticamente uma cor de preenchimento aleatória a cada célula num intervalo selecionado. Esta funcionalidade é ideal quando pretende que cada célula tenha uma cor diferente e precisa de repetir esta ação frequentemente com conjuntos de dados distintos.

1. Prima Alt + F11 para abrir o Editor do Microsoft Visual Basic for Applications.

2. No editor do VBA, clique em Inserir > Módulo para criar um novo módulo.

3.Copie e cole o seguinte código VBA na janela do módulo (não edite o código):

VBA: Adicionar fundo ou Cor de preenchimento a 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

4. Prima F5 ou clique no botão Executar para executar a macro.

5. Quando solicitado, selecione o intervalo de células que pretende preencher com cores aleatórias e clique em OK.

6. As células selecionadas serão preenchidas com cores geradas aleatoriamente. Para aplicar a outra gama de células, execute novamente a macro e selecione um novo intervalo.

Em muitos cenários práticos, poderá preferir selecionar aleatoriamente apenas um subconjunto de células em vez do intervalo completo e, em seguida, aplicar a cor de fundo da sua escolha. O Kutools para Excel oferece uma funcionalidade intuitiva denominada Ordenar Aleatoriamente que simplifica esta tarefa sem necessitar de VBA ou fórmulas. É especialmente útil para quem pretende adicionar um toque de cor a apenas um determinado número de células numa lista ou conjunto de dados — por exemplo, para destacar vencedores escolhidos aleatoriamente, atribuir grupos ou realizar amostragem de dados de teste.

1. Selecione todo o intervalo de células onde pretende preencher aleatoriamente algumas com cor de fundo. Para melhores resultados, certifique-se de que os seus dados não contêm células mescladas nem outra formatação que possa afetar a seleção.

2. Aceda ao separador Kutools na Faixa de Opções, escolha Intervalo e, em seguida, clique em Ordenar Aleatoriamente.

3. Na caixa de diálogo, mude para o separador Selecionar. Introduza o número de células que pretende selecionar aleatoriamente na caixa Número de Células a Selecionar e marque Célula. Clique em OK para confirmar.

4. O número especificado de células será realçado (selecionado). Para aplicar uma Cor de preenchimento, aceda ao separador Base, clique na seta junto a Cor de preenchimento e escolha uma cor. As células selecionadas serão coloridas imediatamente.

Este método é ideal se pretender controlar a quantidade de células coloridas aleatoriamente e preferir escolher a sua Cor de preenchimento. A abordagem do Kutools evita a necessidade de escrever qualquer código ou utilizar fórmulas, tornando o processo acessível até aos utilizadores menos familiarizados com funcionalidades mais avançadas do Excel. A principal limitação é que apenas atribui uma única cor escolhida de cada vez; para coloração totalmente aleatória de todas as células, a abordagem VBA descrita anteriormente poderá ser mais adequada. Se precisar de voltar a selecionar ou alterar células aleatórias, basta repetir o processo de seleção utilizando Ordenar Aleatoriamente e, em seguida, aplicar uma nova cor conforme necessário.

Ordenar aleatoriamente células numa coluna ou intervalo

Selecionar células aleatoriamente

Gerar cadeias aleatórias