使用 excel 中的 VBA 将所有工作表的填充颜色设置为“无填充”

Question

How can I Set all sheets fill color to No fill using VBA in excel (all cells). Same as select all sheets, Select all cells (Control+A) and change fill color to No fill .

Answer 1

Untested but should do the job:

Sub No_Fill_Wb()

Dim ws as worksheet

For each ws in Thisworkbook.Worksheets
    ws.Cells.Interior.ColorIndex = 0
Next ws

End Sub

Answer 2

I used "0" in my code (see below) working with Excel 2016 and it turned my columns black.

Master.Columns(Col_Start).Interior.Color = 0

Using "xlNone" per below, however, did work for me.

Master.Columns(Col_Start).Interior.Color = xlNone 

Answer 3

xlNone doesn't work for BackgroundPatternColor but wdColorAutomatic does

currentCell.Shading.BackgroundPatternColor = wdColorAutomatic

Answer 4

嘿伙计们你可以用它来选择“No Fill”选项“ThisWorkbook.Sheets（1）.Interior.Color = xlNone”否则如果要设置任何背景颜色你可以用这种方式“ThisWorkbook.Sheets（1）.Interior .Color = vbgreen“