調べたいExcel-VBAの使用例などキーワードを入力してください

エクセルを開くと自動的に指定範囲を画面サイズに合わせ拡大表示する方法

ウィンドウの操作画面の操作
ウィンドウの操作
スポンサーリンク

エクセルの表だけをどのパソコンで開いても画面いっぱいに拡大表示したいと思いませんか?

当然ながら、エクセルファイルを開いた時に自動的に拡大表示出来たらとても便利なのでブックイベントに登録すれば簡単にできますよ。

スポンサーリンク

拡大表示するZoomプロパティ

拡大表示するにはZoomプロパティを使いますが、通常は拡大率を%で指定しますが、画面いっぱいに表示するならばTureに設定することで出来るようになります。

コマンドボタンで拡大する

まずは基本のユーザーフォームに配置したコマンドボタンに、仮に表の範囲であるセルA1~L20までの範囲を画面いっぱいに拡大するVBAコードです。

指定範囲を拡大するVBAコード

Private Sub CommandButton1_Click()
Worksheets(“sheet1”).Activate
Range(“A1:L20”).Select
ActiveWindow.Zoom = True
End Sub

VBAコード
  1. コマンドボタン1が押されたら
  2. シート1を操作可能にする
  3. セルA1~L20の範囲を選択する
  4. 選択されているセルの範囲を画面いっぱいに拡大表示する
  5. マクロ記録終了

この方法は、コマンドボタンを押さないと拡大できないので、エクセルを開いたら自動的に指定範囲を画面いっぱいに表示するようにしましょう。

エクセルを開いたら自動拡大

エクセルファイルを開いた時に指定したシートの指定したセル範囲を拡大するには、Excel VBAのブックイベントに最大化したいセルの範囲を記述するだけです。

ブックイベントにVBAコードを記載する

Private Sub Workbook_open()
Worksheets(“sheet1”).Activate
Range(“A1:L20”).Select
ActiveWindow.Zoom = True
End Sub

見出し
  1. エクセルファイルが開いたら自動的に実行する
  2. シートはsheet1を選ぶ
  3. セルA1~L20の範囲を選び
  4. 画面いっぱいに表示する
  5. マクロ記録終了

VBAコードを書く場所を変えるだけで、1行程必要なくなり自動的に指定範囲を拡大表示できるようになります。

False設定で100%に戻す

当然ながら、拡大できたのですから元に戻す方法も用意されています。

自動的に拡大してもコマンドボタンで拡大しても、100%に戻すには「True」を「False」に設定するだけで完了です。

スポンサーリンク

クリックするたびに拡大と縮小を切り替える

拡大も縮小もTrueとFalseでできるので、2つのボタンにそれぞれ別々にVBAコードを書けばいいのですが、どうせならば1個のコマンドボタンに拡大/縮小の両方を書いてしまえば、シンプルになり便利ですよね。

この方法には、IFステートメントを組み合わせてVBAコードを書けば簡単に拡大・縮小ができるようになります。

拡大・縮小を繰り返すVBAコード

Private Sub CommandButton1_Click()
Worksheets(“sheet1”).Activate
Range(“A1:L20”).Select
If ActiveWindow.Zoom = 100 Then
ActiveWindow.Zoom = True
Else
ActiveWindow.Zoom = False
End If
End Sub

VBA解説
  1. コマンドボタン1が押されたら
  2. シート1を操作可能にする
  3. セルA1~L20の範囲を選択する
  4. もし選択されているセルの範囲が100%だったら
  5. 選択されているセルの範囲を画面いっぱいに拡大表示する
  6. そうでなかったら(拡大していたら)
  7. 選択されているセルの範囲を100%のサイズにする
  8. IFステートメント終了
  9. マクロ記録終了

これでクリックするたびに拡大と縮小を切り替えることができるようになります。

スポンサーリンク

IFステートメントは、もし~だったらというVBAコードで様々な条件を付けて処理を振り分けるのに必要なので絶対にマスターしておきたいVBAコードです。

また、表示/非表示を切り替える事で便利になる罫線や行・列番号など、意図しない操作を防ぐためには有効なので、画面サイズ以外の表示/非表示もマスターしてくださいね。

ボタン1つで作業完了へ
ちょっとの工夫でエクセル作業が飛躍的に早く終わったらいいなあ~と思いませんか? 面倒くさい作業よ!さようなら!

スポンサーリンク


画面の操作
参考になりましたらシェア宜しくお願い致します

山頂テラスデッキからの三段紅葉(2019年11月)

フリーパスって助成金つぎ込んでいいの?

コロナ禍のGo To トラベル以外にも助成金だらけでうらやましいね。

安くなったフリーパスで遊びに行きたいけど、給与も減って余裕ないよね。

Excel VBA