47本目 Window操作

VBA100本ノック 47本目を動画で解説しています。Excelの神髄さんの模範解答はコチラ

---

問題

#VBA100本ノック47本目
ブックの全ウィンドウの全シートに対して以下の処理を行ってください。
・A1セルを選択しA1セルが見える状態にする
・ズームを85%
・枠線を非表示
・表示を標準
・印刷の向き「横」
※全ウィンドウという点を忘れずに
※ブックは任意
「枠線」と書いてしまったのが良くなかったです。
罫線ではなく、表示の「目盛り線」のつもりで書いてしまいました。
これは、シートごとではなくウィンドウごとに存在します。

解答

Sub test()

    Dim win As Window
    Dim ws As Worksheet
    
    For Each win In ThisWorkbook.Windows
        win.Activate
        For Each ws In Worksheets
            ws.Activate
            ws.Range("A1").Activate
            ws.PageSetup.Orientation = xlLandscape
            win.Zoom = 85
            win.DisplayGridlines = False
            win.View = xlNormalView
        Next
    Next
        
End Sub