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

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

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


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


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

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


出題

出題ツイートへのリンク

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


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


VBA作成タイム

この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。


他の人の回答および解説を見て、書いたVBAを見直してみましょう。


頂いた回答

解説

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の指定方法 ・Windowオブジェクトデータ型 ・Windowオブジェクトのプロパティとメソッド ・Windowオブジェクトの解説 ・Windowオブジェクトの使用例 ・アクティブシート以外のWindowの設定
第73回.ページ設定(PageSetup)|VBA入門
・PageSetupオブジェクト ・PrintCommunicationプロパティ ・ヘッダー・フッターのプロパテの設定方法 ・余白の設定方法 ・印刷範囲の設定/クリア:PrintArea ・総ページ数:Pages.Count ・改ページの位置を設定:PageBreak ・最後に
アクティブシート以外のWindowを設定できるWorksheetView
・Windowオブジェクトのメソッドとプロパティ ・アクティブシート以外の表示(Window)に関する設定 ・アクティブシート以外の表示(Window)を設定するVBA ・全ウィンドウの全シートのWorksheetViewを設定するVBA




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

44本目:全テーブル一覧作成

・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
45本目:テーブルに列追加
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
46本目:名前定義に使える文字
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
47本目:Window操作
48本目:配列と数値型
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
49本目:条件付き書式の判定
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
50本目:トリボナッチ数列
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
51本目:シート一覧と印刷ページ数
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
52本目:複数シートの一括印刷
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
53本目:テーブルの扱いと年齢計算
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
54本目:シートのChangeイベント
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ


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

エクセルが起動しない、Excelが立ち上がらない|エクセル雑感(2024-04-11)
ブール型(Boolean)のis変数・フラグについて|VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する|VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次|エクセルの神髄(2024-03-20)
VBA10大躓きポイント(初心者が躓きやすいポイント)|VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成|ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。|エクセル雑感(2024-02-17)
初級脱出10問パック|VBA練習問題(2024-01-24)
累計を求める数式あれこれ|エクセル関数応用(2024-01-22)
複数の文字列を検索して置換するSUBSTITUTE|エクセル入門(2024-01-03)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.RangeとCellsの使い方|VBA入門
6.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門
7.並べ替え(Sort)|VBA入門
8.メッセージボックス(MsgBox関数)|VBA入門
9.セルのクリア(Clear,ClearContents)|VBA入門
10.ひらがな⇔カタカナの変換|エクセル基本操作




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


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


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