【ExcelVBA入門】ステータスバーの概要・使い方を徹底解説!

皆さんは、VBAでステータスバーを使ったことがありますか?

処理の進捗状況を表示したいとき、データの件数を表示したいときなど、ステータスバーの使い方を覚えておくおと便利です。

そこで今回は、

・ステータスバーとは?

といった基礎的なことから、

・ステータスバーの使い方

・ステータスバーで進捗状況を表示する方法

・ステータスバー以外の進捗状況確認方法とは

といった応用的な方法まで、徹底的に解説します!

ステータスバーとは?

はじめに、ステータスバーについて簡単に解説します。

ステータスバーとは、Excelの左下にあるメッセージの表示エリアのことです。

たとえば、選択したセル範囲の平均値・データの個数・合計値などを表示することができます。

Excelをよく使う方は、よく見ている方も多いのではないでしょうか。

このステータスバーに表示する値を、VBAで制御することができます!

ステータスバーの使い方

次に、VBAでステータスバーを操作する方法を解説します。

メッセージの表示方法

まず、メッセージを表示する方法について解説します。

ステータスバーは次のように書くことで、簡単にメッセージが表示できます。

使い方:

Application.StatusBar = "表示する文字"

サンプルコード:

Sub Test()
    Application.StatusBar = "こんにちは!"
End Sub

実行結果:

このように、簡単にメッセージを表示することができます。

表示したメッセージをクリアする方法

次に、表示したメッセージをクリアする方法を解説します。

次のように書くことで、簡単にメッセージをクリアすることができます。

使い方:

Application.StatusBar = False

実行前:

サンプルコード:

Sub Test2()
    Application.StatusBar = False
End Sub

実行後:

このように、簡単にメッセージをクリアすることができます。

【サンプル】ステータスバーで進捗状況を表示する方法

次に、サンプルコードをもとに、具体的な使い方を解説します。

今回は、処理の進捗状況を表示するサンプルコードを用意しました。

サンプルコード:

'ループ処理の用のサブシージャ
Sub roopSample()
    Dim i As Integer
    For i = 1 To 1000
        Cells(i, 1).Select
    Next i
End Sub

'メイン処理
Sub Main()
    
    '処理1
    Application.StatusBar = "進捗状況:■□□□□"
    Call roopSample
    
    '処理2
    Application.StatusBar = "進捗状況:■■□□□"
    Call roopSample

    '処理3
    Application.StatusBar = "進捗状況:■■■□□"
    Call roopSample

    '処理4
    Application.StatusBar = "進捗状況:■■■■□"
    Call roopSample

    '処理5
    Application.StatusBar = "進捗状況:■■■■■"
    Call roopSample

End Sub

実行途中の結果:

「Main」で5回「roopSample」を実行し、実行前に「Application.StatusBar = "進捗状況:■■□□□"」のように進捗状況を表示するサンプルです。

このように、簡単に処理の進捗状況を確認することができます。

ステータスバー以外の進捗状況確認方法とは

ここまでステータスバーの使い方について解説してきましたが、進捗状況を表示する方法はステータスバー以外にもおすすめの方法があります。

それが、「プログレスバー」です。

プログレスバーを使えば、次のように視覚的にわかりやすく進捗状況を確認することができます。

プログレスバーの使い方については以下で詳しく解説しているので、気になる方は見てみてくださいね!

【ExcelVBA入門】進捗状況をプログレスバーで確認する方法を徹底解説
更新日 : 2019年5月4日

まとめ

今回は、ステータスバーの概要・使い方について解説しました。

ちょっとしたメッセージ表示、進捗状況の表示など覚えてくととても便利です。

使い方も簡単なので、ぜひ使ってみてくださいね!

LINEで送る
Pocket

ITエンジニアへ転職したい方におすすめ

自分を評価してくれる企業に転職して年収を上げたい! 自分のスキルにあった独自案件を知りたい!
エンジニアは今もっとも注目されている職業の1つ。エンジニアになって年収を増やしたい方や、あなたのスキルに見合った企業へ転職したいエンジニアの方も多いですよね。

しかし、大手の転職媒体は扱う求人数が多くても、誰もが登録しているので競争率もかなり高くなっています。そのため、あなたの条件に見合った企業を見つけても転職するためには、相応の努力とスキルが必要となります。

こういった媒体では、未経験からエンジニアを目指す方やエンジニア歴2〜3年で転職を考えている方にとって、最適な転職環境とはいえません。

そこでオススメしたいのが、未経験者や若手エンジニア向けの独自案件を多く掲載している「侍ワークス」です。

侍ワークスは、独自案件を多く掲載しているだけでなく、

・応募から就業まで一貫したサポート

・就業後もアフターフォロー

といった経験の浅い方や初めてエンジニアを目指す方にも安心のフォロー体制が整っています。もちろん登録は完全無料!しかも案件を見るだけなら登録も不要です。

まずは、お気軽にどんな求人があるか見てみてください。あなたにピッタリの企業がきっと見つかりますよ! 侍ワークスの求人情報を見る

書いた人

Sanshiro Wakizaka

Sanshiro Wakizaka

新卒入社したメーカー系のIT企業で、システムエンジニアとして約5年勤務。
Webアプリ、業務アプリ開発において、要件定義、設計、インフラ、製造、テスト、運用保守など、様々な経験あり。
また、侍ブログ編集部として、これまでに200記事以上の記事を執筆。
現在はフリーランスエンジニア兼テックライターとして活動中。