/ / Zmień kolor tła dla całego arkusza - excel, vba, background-color

Zmień kolor tła dla całego arkusza - excel, vba, background-color

Czy istnieje sposób, aby zmienić kolor tła na xlNone, na przykład do całego arkusza. Widzę, że możesz umieścić obraz tła ... Ale jak możesz zmienić kolor wszystkich komórek w arkuszu?

Odpowiedzi:

14 dla odpowiedzi № 1

Możesz to zrobić całkiem łatwo dzięki temu kodowi:

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

Lub jeśli nie potrzebujesz VBA, po prostu kliknij na tę małą ikonę w rogu:

wprowadź opis obrazu tutaj

i wybierz kolor lub nie używaj koloru - za pomocą menu prawego przycisku myszy lub menu wstążki.

Właśnie z powodu innych odpowiedzi, chcęprzypomnij - nie ma potrzeby używania selekcji! To jest zły styl nagrywarki makro. Istnieje tylko kilka przypadków, w których konieczne jest dokonanie selekcji lub dobry pomysł. Zawsze możesz po prostu użyć określonego zakresu.


2 dla odpowiedzi nr 2

Spróbuj tego

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

2 dla odpowiedzi nr 3

Oto, jak zmienić kolor tła dla wszystkich komórek w bieżącym arkuszu

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