Skip to main content

Come aggiungere casualmente un colore di sfondo/riempimento alle celle in Excel?

Author: Kelly Last Modified: 2025-05-29

Supponiamo che tu debba aggiungere casualmente un colore di sfondo o riempimento alle celle nell'intervallo specificato, come risolvere il problema? In questo articolo vengono forniti due metodi per farlo facilmente.

Aggiungi casualmente un colore di sfondo/riempimento alle celle con VBA

Aggiungi casualmente un colore di sfondo/riempimento alle celle con Kutools per Excel


Aggiungi casualmente un colore di sfondo/riempimento alle celle con VBA

Il seguente codice macro VBA può aiutarti ad aggiungere un colore di sfondo o riempimento a ogni cella in un intervallo specifico con colori casuali. Puoi procedere come segue:

Passo 1: Premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

Passo 2: Clicca su Inserisci > Modulo, e poi incolla il seguente codice VBA nella finestra Modulo aperta.

VBA: Aggiungi colore di sfondo o riempimento alle celle con un colore casuale

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: Premi il tasto F5 o clicca sul pulsante Esegui per eseguire questa macro VBA.

Passo 4: Ora appare una finestra di dialogo, seleziona semplicemente l'intervallo in cui desideri aggiungere un colore di sfondo con colori casuali, e poi clicca sul pulsante OK.

vba code to select the data range

Ora vedrai che tutte le celle nell'intervallo specificato sono riempite con colori diversi in modo casuale. Vedi sotto lo screenshot:

vba code to fill cells with different colors randomly



Aggiungi casualmente un colore di sfondo/riempimento alle celle con Kutools per Excel

In alcuni casi, potresti aver bisogno di aggiungere un colore di sfondo alle celle selezionate casualmente in un intervallo specificato. Per farlo, puoi provare l'utilità Riordina casualmente di Kutools per Excel, e poi aggiungere un colore di sfondo a queste celle casuali.

Kutools per Excel - Ricco di oltre 300 strumenti essenziali per Excel. Goditi funzionalità AI permanentemente gratuite! Scarica ora!

Passo 1: Seleziona l'intervallo in cui vuoi trovare le celle casualmente e aggiungere un colore di sfondo.

Passo 2: Clicca su Kutools > Intervallo > Riordina casualmente.

click Sort Range Randomly of kutools

Passo 3: Nella finestra di dialogo Riordina casualmente che si apre, vai alla scheda Seleziona, inserisci un numero nella casella Numero di celle da selezionare, spunta l'opzione Seleziona celle casuali, e clicca sul pulsante OK. Vedi sotto lo screenshot:

set options in the Sort Range Randomly dialog box

Passo 4: Ora un numero specificato di celle è selezionato casualmente nell'intervallo specificato. Poi clicca sulla freccia accanto al pulsante Colore di riempimento nella scheda Home, e seleziona un colore di sfondo dall'elenco a discesa.

Ora vedrai che il colore di sfondo è stato aggiunto alle celle selezionate casualmente come mostrato nello screenshot qui sotto:

fill random selected cells with color

Kutools per Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi funzionalità AI gratuite per sempre! Ottienilo ora


Demo: Aggiungi casualmente un colore di sfondo/riempimento alle celle con Kutools per Excel

 

Articoli correlati:

I migliori strumenti per la produttività in Office

🤖 Kutools AI Aide: Rivoluziona l'analisi dei dati grazie a: Esecuzione Intelligente | Genera Codice | Crea Formule Personalizzate | Analizza Dati e Genera Grafici | Richiama Funzioni avanzate di Kutools
Funzionalità popolari: Trova, evidenzia o contrassegna duplicati | Elimina righe vuote | Unisci colonne o celle senza perdere dati | Arrotonda...
Super RICERCA.VERT: Ricerca VERT con criteri multipli | Ricerca VERT con valori multipli | Ricerca su più fogli | Corrispondenza approssimativa...
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa | Elenco a discesa dipendente | Elenco a discesa multi-selezione...
Gestione Colonne: Aggiungi un numero specifico di colonne | Sposta colonne | Attiva/disattiva la visibilità delle colonne nascoste | Confronta intervalli e colonne...
Funzionalità in evidenza: Attenzione della griglia | Visualizzazione di progettazione | Barra delle formule avanzata | Gestione Cartella di lavoro e Foglio di lavoro | Libreria AutoText | Selettore di data | Unisci dati | Crittografa/Decrittografa celle | Invia Email tramite elenco | Super Filtri | Filtro speciale (filtra grassetto/corsivo/barrato...) ...
Top15 set di strumenti:12 strumenti di testo (Aggiungi testo, Elimina Caratteri Specifici, ...) | Oltre50 tipi di grafici (Diagramma di Gantt, ...) | Oltre40 formule pratiche (Calcola l'età in base alla data di nascita, ...) |19 strumenti di inserimento (Inserisci codice QR, Inserisci Immagine da percorso, ...) |12 strumenti di conversione (Converti in parole, Conversione valuta, ...) |7 strumenti di unione e divisione (Unione avanzata righe, Dividi celle, ...) | ... e molto altro

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...


Office Tab porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, invece che in nuove finestre.
  • Aumenta la tua produttività del50% e riduce centinaia di clic del mouse ogni giorno!