VBA練習問題
VBA100本ノック 47本目:Window操作

VBAを100本の練習問題で鍛えます
最終更新日:2021-01-13

VBA100本ノック 47本目:Window操作


WorkbookのWindowオブジェクトを操作する問題です。
リボンの「表示」タブにある設定項目になります。


ツイッター連動企画です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。

VBAテスト用のサンプルデータはご自身でご用意ください。


出題

出題ツイートへのリンク

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


「枠線」と書いてしまったのが良くなかったです。
罫線ではなく、表示の「目盛り線」のつもりで書いてしまいました。
これは、シートごとではなくウィンドウごとに存在します。


頂いた回答

解説

Windowオブジェクトを操作する機会は少ないと思いますが、VBAで必要になる場合もあります。
リボンの「表示」タブの設定です。
Windowは階層が複雑で理解しづらいと思います。
ApplicationにもWorkbookにもWindowsがありますが、今回はWorkbookの扱いです。
順にオブジェクトを辿ってみます。

Sub VBA100_47_01()
  Dim wb As Workbook: Set wb = ThisWorkbook
  Dim ws As Worksheet
  Dim win As Window
  Dim sv As Object
  
  Application.ScreenUpdating = False
  
  Application.PrintCommunication = False
  For Each ws In wb.Worksheets
    ws.PageSetup.Orientation = xlLandscape
  Next
  Application.PrintCommunication = True
  
  For Each win In wb.Windows
    win.Activate
    For Each sv In win.SheetViews
      If TypeName(sv) = "WorksheetView" Then
        sv.Sheet.Activate
        Application.Goto sv.Sheet.Range("A1"), True
        sv.DisplayGridlines = False
        win.View = xlNormalView
        win.Zoom = 85
      End If
    Next
  Next
  
  Application.ScreenUpdating = True
End Sub


ページ設定はWindowに関係ないので先に処理しています。
あまり使う事のない、SheetViews、WorksheetView、これらに行き当たります。
使い慣れないオブジェクトは階層を辿る時にも迷ってしまいますね。
使い慣れたWorksheetをActivateしたほうが扱いやすいかもしれません。

Sub VBA100_47_02()
  Dim wb As Workbook: Set wb = ThisWorkbook
  Dim ws As Worksheet
  Dim win As Window
  
  Application.ScreenUpdating = False
  
  Application.PrintCommunication = False
  For Each ws In wb.Worksheets
    ws.PageSetup.Orientation = xlLandscape
  Next
  Application.PrintCommunication = True
  
  For Each win In wb.Windows
    win.Activate
    For Each ws In wb.Worksheets
      ws.Activate
      Application.Goto ws.Range("A1"), True
      With win
        .DisplayGridlines = False
        .View = xlNormalView
        .Zoom = 85
      End With
    Next
  Next
  
  Application.ScreenUpdating = True
End Sub

A1選択にはApplication.Gotoを使いました。
スクロールはされますが非表示はそのままになります。
Windowは使用頻度が低い分はまりやすい気がします。
1度はVBAを書いて経験しておくと良いと思います。
補足はありません、VBAと参考ページを掲載しました。


補足

補足はありません。


サイト内関連ページ

第54回.Windowオブジェクト|VBA入門
Windowオブジェクトは、ブックやシートの見方を変えることのできるもので、エクセルで「ウインドウ」と表現されているものをマクロVBAで扱う時のオブジェクトになります。エクセルのリボンでは「新しいウインドウ」や「ウインドウ枠」といった言葉で表現されているものです。
第73回.ページ設定(PageSetup)|VBA入門
VBAで印刷のページ設定をするには、PageSetupオブジェクトのプロパィを設定することで行います。基本的には、事前に印刷するシートのページ設定をしておくことが望ましいのですが、VBAで作成したシート等、事前にページ設定することができない場合はマクロVBAで印刷のページ設定をします。
アクティブシート以外のWindowを設定できるWorksheetView
VBAの中でも非常に分かりづらいオブジェクトにWindowオブジェクトがあります。Windowオブジェクトは、ブックやシートの見方を変えることのできるものです。Windowオブジェクトの集まりがWindowsコレクションです。




同じテーマ「VBA100本ノック」の記事

44本目:全テーブル一覧作成
45本目:テーブルに列追加
46本目:名前定義に使える文字
47本目:Window操作
48本目:配列と数値型
49本目:条件付き書式の判定
50本目:トリボナッチ数列
51本目:シート一覧と印刷ページ数
52本目:複数シートの一括印刷
53本目:テーブルの扱いと年齢計算
54本目:シートのChangeイベント


新着記事NEW ・・・新着記事一覧を見る

PropertyのSetはLetでも良い|VBA技術解説(2021-03-31)
エクセル麻雀ミニゲーム|VBAサンプル集(2021-03-09)
VBA100本ノック 100本目:WEBから100本ノックのリストを取得|VBA練習問題(2021-03-03)
VBA100本ノック 魔球編:2桁の最小公倍数|VBA練習問題(2021-02-02)
Select Caseでの短絡評価(ショートサーキット)の使い方|VBA技術解説(2021-01-03)
VBA100本ノック 迷宮編:巡回セル問題|VBA練習問題(2020-12-31)
VBA100本ノック 魔球編:閉領域の塗り潰し|VBA練習問題(2020-12-16)
VBA100本ノック 魔球編:組み合わせ問題|VBA練習問題(2020-12-02)
将棋とプログラミングについて~そこには型がある~|エクセル雑感(2020-11-22)
VBA100本ノック 1本目:セルのコピー|VBA練習問題(2020-10-19)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.Excelショートカットキー一覧|Excelリファレンス
6.繰り返し処理(For Next)|VBA入門
7.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
8.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
9.セルに文字を入れるとは(Range,Value)|VBA入門
10.とにかく書いてみよう(Sub,End Sub)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ