パソコンの画面表示できるエクセルのワークシートの範囲は限られていますが、出来る限り多くの行や列を表示したいと思っても限界を感じたことありませんか？
もちろん、表示を縮小して文字も小さくして表示範囲を広くできますが、文字が見えな～いなんて、事をやっても仕方がないですよね。
ユーザーフォームを使うならば、ステータスバーなんて必要でないならば、消してしまいましょう。
方法は簡単で、数式バーを非表示にする（DisplayStatusBarプロパティ）を使うだけで、簡単なのでぜひ取り入れてみませんか？
DisplayStatusBarプロパティ
DisplayStatusBarプロパティとApplicationを組み合わせると、現在表示しているエクセルシートのステータスバーを表示したり非表示にしたりすることができるようになります。
- ステータスバーを非表示・・・False
- ステータスバーを表示・・・・True
では実際にここでは、ユーザーフォームに配置したコマンドボタンにステータスバーを表示・非表示にするVBAコードを書いていきましょう。
ステータスバーを非表示
ステータスバーを非表示にするには、DisplayStatusBarをFalseに指定することでできるようになります。
Private Sub CommandButton1_Click()
With Application
.DisplayStatusBar = False
End With
End Sub
- コマンドボタン1が押されたら
- 現在マクロ実行中のエクセルを操作する
- ステータスバーの表示を非表示にする
- withステートメント終了
- マクロ終了
これで、コマンドボタン1が押されたらステータスバーが非表示になります。
ステータスバーを再表示
ステータスバーを非表示にできたら、再表示できないと不都合なので、DisplayStatusBarをTrueに指定することでできるようになります。
Private Sub CommandButton1_Click()
With Application
.DisplayStatusBar = True
End With
End Sub
- コマンドボタン1が押されたら
- 現在マクロ実行中のエクセルを操作する
- ステータスバーの表示を表示する
- withステートメント終了
- マクロ終了
非表示のFalseを表示のTrueに変更するだけで完成するのとても簡単です。
この方法でも問題ないのですが、コマンドボタンを2つ用意しなくてはいけないのですが、ちょっと工夫すると1つのコマンドボタンで非表示も再表示もできるんですよ！
クリックするたびにステータスバーの表示／非表示を切り替え
なんでもかんでもできるわけではないのですが、この種の表示・非表示の切り替えには、FalseやTrueの代わりにNot演算子を使用するとできるようになります。
Private Sub CommandButton1_Click()
With Application
.DisplayStatusBar = Not .DisplayStatusBar
End With
End Sub
- コマンドボタン1が押されたら
- 現在マクロ実行中のエクセルを操作する
- ステータスバーの表示・非表示を切り替える
- withステートメント終了
- マクロ終了
意外と簡単ですよね。
作成したエクセルは様々なスタッフが使う為に、想定外の操作をされてしまいエラーを引き起こすことがあるので、ユーザーフォーム以外の操作をできないように工夫しています。
- 画面上部の緑色のメニューバー（リボンツールバー）
- 数式表示窓（数式バー）
- 行番号・列番号
- 画面下のシート名表示
- 左右移動バー（水平スクロールバー）
- 上下移動バー（垂直スクロールバー）
- マス目の線（グリッド線）
- 画面下のステータスバー
画面表示の便利機能
ボタン1つで表示を切り替えたり元に戻したりできると便利なので、ほかの表示方法も知っていて損はないと思いますよ！
