使用 excel 中的 VBA 将所有工作表的填充颜色设置为 "No Fill"

Question

如何使用 excel（所有单元格）中的 VBA 将所有工作表的填充颜色设置为 No fill。与 select 所有工作表、Select 所有单元格 (Control+A) 相同，并将 fill color 更改为 No fill。

Answer 1

未经测试但应该可以：

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

我在使用 Excel 2016 的代码（见下文）中使用了“0”，它使我的列变黑了。

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

但是，使用下面的 "xlNone" 确实对我有用。

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

Answer 3

大家好，你们可以用这个来选择 "No Fill" 选项 "ThisWorkbook.Sheets(1).Interior.Color = xlNone" 否则如果你想设置任何背景颜色，你可以使用这种方式 "ThisWorkbook.Sheets(1).Interior.Color = vbgreen"

Answer 4

xlNone 不适用于 BackgroundPatternColor 但 wdColorAutomatic 可以

currentCell.Shading.BackgroundPatternColor = wdColorAutomatic

使用 excel 中的 VBA 将所有工作表的填充颜色设置为 "No Fill"

Set all sheets' fill color to "No Fill" using VBA in excel

excel

vba

colors

background-color