【VBA】エクセルの灰色罫線をすべて非表示にする

この記事は最新更新日から、5年以上経過しています。

概要
1. おまけ

概要

諸事情でエクセルに最初から入っている灰色の罫線を、全部のシートで一発で非表示にしたい衝動に駆られました。

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