エクセルファイルを開いたら中途半端なサイズで表示されるようになってしまった事ありませんか?
作業するのにはフルサイズでの画面最大化の方が良いので、VBAを使って自動的にフルサイズ表示させる方法をご紹介します。
WindowStateプロパティで最大化へ
このような中途半端にエクセルが開くと、わざわざ最大化するのが面倒ですよね。
エクセルファイルを開いたら常に最大化するように下記VBAコードを記述すれば解決です。
画面最大自動化VBA
エクセルを開くと自動的に最大化して表示させるには、WindowsStateプロパティを使い、ThisWorkbookにVBAコードを書きのように記載します。
Private Sub Workbook_Open()
ActiveWindow.WindowState = xlMaximized
End Sub
- エクセルファイルを開いたら
- 表示画面サイズを最大化する
- マクロ記述終了
これで、エクセルファイルを開いてマクロ有効化されていれば、常に画面は最大化されて表示されるようになります。
最小化・標準サイズ化の設定
WindowStateプロパティには、最大化以外にも最小化や標準サイズ化することもできるようになっていますので、先ほどは最大化のVBAコード「 ActiveWindow.WindowState = xlMaximized 」の部分「
xlMaximized 」(定数)を変更することで対応できます。
定数 | 内容 |
xlMaximized | 最大化 |
xlMinimized | 最小化 |
xlNormal | 標準サイズ |
最大化してセルの選択
実用例として、エクセルファイルを開いたら画面最大化はもちろんですが、特定のシートの特定のセルを指定して、常に同じところ(例えばSheet1のセルA1)が表示するようにして使っています。
Private Sub Workbook_Open()
Worksheets(“MENU”).Range(“A1”).Select
ActiveWindow.WindowState = xlMaximized
End Sub
たった1行追加でMENUという名のシートのセルA1を選択状態にして、ちゃんとエクセル最大化できます。
関連記事
-
画面の操作
エクセルのメニューリボン(操作パネル)をVBAで非表示にする方法
苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか? 原因は簡単で、エクセル操作をオリジ… -
画面の操作
エクセルシートで指定した範囲を自動的に画面最大化させるVBA方法
エクセルで作成した表がいつも画面いっぱいに表示されるならばいいのですが、スクロールしないと見られない範囲外ってことありませんか? Excel-VBAを使えばいつも指定… -
画面の操作
エクセルVBAで改ページプレビューと標準モード切替ボタンを作る方法
エクセルで表を作成して印刷をする前に用紙の範囲に印刷できるか気になるので、改ページプレビューで確認することありませんか? ボタン一つで標準モードにも切り替えら… -
画面の操作
エクセルVBAでセルの枠線の表示を表示・非表示を切り替えるボタン
エクセルのワークシート上にはセルの仕切り「枠線」が表示されていますが、消したいこと(非表示化)ありませんか? ホームページやブログに画像として取り込む時に、枠… -
コマンドボタン
エクセルVBAコマンドボタンでON/OFF切替スイッチを作る方法
ワークシート上にある罫線やリボンなど7つの項目を表示したり非表示することができる切替ボタンがあったら便利だと思いませんか? 不要な項目をワンクリックで切り替え… -
画面の操作
VBAの画面のちらつきがたった1行で解決して処理高速化する方法
エクセルで繰り返し作業を効率よくするためにVBAを活用している時に、コマンドボタンを押したら画面が一瞬スクロールしたりシートが切り替わったりして目障りに思ったこ… -
画面の操作
ワークシートサイズは常に最大化してエクセル画面を表示するVBA
エクセルファイルを開いたら中途半端なサイズで表示されるようになってしまった事ありませんか? 作業するのにはフルサイズでの画面最大化の方が良いので、VBAを使って… -
画面の操作
指定したセルを画面左上にスクロールする
【画面左上は移動はscrollrowとscrollcolumnを組み合わせる】 ボウリング場のリーグ戦の成績表でも使っているエクセルで、リーグ戦参加者の成績表を入力する為の専用フ… -
画面の操作
エクセルワークシート下にあるシート名の部分を非表示化する方法
苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか? 原因は簡単で、エクセル操作をオリジ…
紅葉スポット
-
草津温泉スキー場の天狗山紅葉とライトアップされた西の河原散策へ
10月になると早々に紅葉を見ることができるので、今年の紅葉狩りのスタートはここ草津温泉からと言っても過言ではありません。 草津温泉の湯畑が有名ですが、すぐ近くに… -
黒山三滝では日本観光百選のパワースポットで滝行もできる紅葉名所
【紅葉見頃】 黒山三滝は、男滝(おだき)・女滝(めだき)・天狗滝(てんぐだき)の3つの滝からなり、滝に打たれる修行を行う滝開きまであります。 その為か、パワースポッ… -
日光東照宮へバスで日光駅から世界遺産の紅葉へ滞在時間5時間
【紅葉見頃】10月下旬~11月上旬 2017年に約半世紀ぶりの大修理を終え、1999年に世界遺産に登録されている、日光東照宮・日光山輪王寺・日光二荒山神社等の建造物群と… -
伊香保温泉365段の石段の先に紅葉ライトアップされた河鹿橋絶景へ
石段と温泉街で古くから観光客が多く訪れる伊香保温泉には、群馬県の紅葉スポット人気1位・全国でもトップクラスの紅葉スポットがあります。 石段をゆっくりと登ってい… -
復元された平家の里へ平清盛像や茅葺屋根と水の郷で温泉と紅葉コラボ
【紅葉見頃】10月中旬~11月中旬 日光市の北部で鬼怒川温泉のさらに奥地にある湯西川温泉には平家落人伝説があり、秘話・伝説などが現代に伝える役目を果たすために「… -
妙義山パノラマパーク紅葉へバスで上州富岡駅から滞在時間35分
山が多い群馬県の中でも、赤城山・榛名山とともに妙義山を合わせて上毛三山と呼ばれる群馬県代表の山で、日本三大奇勝でもあり、岩肌が切り立った景観が特徴でもありま…