Cambia il colore di sfondo per l'intero foglio - excel, vba, background-color

C'è un modo per cambiare il colore di sfondo in xlNone, per esempio per l'intero foglio. Vedo che puoi inserire un'immagine di sfondo ... Ma come puoi cambiare il colore per tutte le celle nel foglio?

risposte:

Puoi farlo abbastanza facilmente con questo codice:

Public Sub Demo()
"set color
WorksheetName.Cells.Interior.ColorIndex = 1 "black
"clear color
WorksheetName.Cells.Interior.ColorIndex = xlColorIndexNone
end sub

O se non hai bisogno di VBA, basta cliccare su questa piccola icona nell'angolo:

e selezionare un colore o non usare alcun colore, usando il menu del tasto destro o il menu della barra multifunzione.

Solo a causa delle altre risposte, lo voglioricorda - non è necessario usare selezioni! Questo è un cattivo stile del registratore di macro. Ci sono solo poche occazioni, dove è necessario utilizzare le selezioni o una buona idea. Puoi sempre usare solo un intervallo specifico.

Prova questo

Sheets("Sheet1").Select
Cells.Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Ecco come puoi cambiare il colore di sfondo per tutte le celle nel foglio corrente

 Cells.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.14996795556505   "grey color
.PatternTintAndShade = 0
End With