概要
諸事情でエクセルに最初から入っている灰色の罫線を、全部のシートで一発で非表示にしたい衝動に駆られました。
Dim i As Long For i = 1 To Worksheets.Count Worksheets(Worksheets(i).Name).Activate ActiveWindow.DisplayGridlines = False Next
おまけ
枠線を消すだけではなくて倍率を変更したりビューを標準に戻したりすべてのページの左上を選択肢したいときのサンプルです。
Dim i As Long For i = 1 To Worksheets.Count Worksheets(Worksheets(i).Name).Activate '灰色線を消す ActiveWindow.DisplayGridlines = False '標準 100% ActiveWindow.View = xlNormalView ActiveWindow.Zoom = 100 '改ページプレビュー ActiveWindow.View = xlPageBreakPreview ActiveWindow.Zoom = 100 'ActiveWindow.Zoom = 80 'A1に移動して選択 Worksheets(Worksheets(i).Name).Range("A1").Select ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 Next 'シート1の左上を選択 Worksheets(1).Activate Worksheets(1).Range("A1").Select