web-dev-qa-db-ja.com

ExcelのVBAを使用して、すべてのシートの塗りつぶし色を「塗りつぶしなし」に設定します

ExcelのVBAを使用して、すべてのシートの塗りつぶし色をNo fillに設定する方法（すべてのセル）。 [すべてのシートを選択]、[すべてのセルを選択（Control + A）]、[fill color]を[No fill]に変更します。

excelvbacolorsbackground-color
7
user2991243

テストされていないが、仕事をする必要があります：

Sub No_Fill_Wb()

Dim ws as worksheet

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

End Sub
16
Jordan

Excel 2016で動作するコード（下記参照）で「0」を使用すると、列が黒になりました。

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

ただし、以下の「xlNone」を使用するとうまくいきました。

Master.Columns(Col_Start).Interior.Color = xlNone
11
Corrie Steele