web-dev-qa-db-ja.com

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

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

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