VBA でプログレス バーを作成する方法

プログレス バーは、コンピューター アプリケーションで操作の進行状況を示すために使用されます。通常、操作の進行に合わせてアニメーション化される四角形です。 Visual Basic for Applications (VBA) は、日常的なタスクを自動化し、ユーザー インターフェイスを作成するために Microsoft Office アプリケーションで使用されるコンピューター プログラミング言語です。 Microsoft Office Excel の VBA を使用して、プログレス バーを簡単に作成できます。 Excel は、Microsoft Office スイートに含まれるスプレッドシート アプリケーションです。

ステップ 1

Microsoft Office Excel を開き、[Alt] キーと [F11] キーを押して Visual Basic Editor を開きます。 「VBAProject」を右クリックし、「UserForm」をクリックして新しいフォームを挿入します。 「ツールボックス」メニューから「ラベル」をクリックします。マウス ボタンを押したままフォーム上をドラッグして、新しいラベル コントロールを作成します。

ステップ 2

ラベルを右クリックして [プロパティ] を選択し、[高さ] を 42 に、[幅] を 12 に変更します。[上] を 12 に変更します。同じプロセスを使用してさらに 9 つのラベルを作成します。

ステップ 3

[ツールボックス] ペインの [CommandButton] をクリックし、新しいボタンをフォームに追加します。 「CommandButton」を右クリックし、「コードの表示」をクリックして新しいプロシージャを作成します。

ステップ 4

次のように入力して、新しい変数を作成し、その値を定義します:

Dim cnt As Integer cnt =0

ステップ 5

フォームの開始時にすべてのラベルを非表示にするには、次のように入力します:

Me.Label1.Visible =False Me.Label2.Visible =False Me.Label3.Visible =False Me.Label4.Visible =False Me.Label5.Visible =False Me.Label6.Visible =False Me.Label7.Visible =False Me .Label8.Visible =False Me.Label9.Visible =False Me.Label10.Visible =False

ステップ 6

次のように入力して while ループを作成し、コードを 5 秒間一時停止して 10 回繰り返します。

Do While cnt <> 10

Select Case cnt
 Case Is = 1
 Me.Label1.Visible = True
 Me.Label1.BackColor = vbBlue
 Case Is = 2
 Me.Label2.Visible = True
 Me.Label2.BackColor = vbBlue

 Case Is = 3
 Me.Label3.Visible = True
 Me.Label3.BackColor = vbBlue

 Case Is = 4
 Me.Label4.Visible = True
 Me.Label4.BackColor = vbBlue

 Case Is = 5
 Me.Label5.Visible = True
 Me.Label5.BackColor = vbBlue

 Case Is = 6
 Me.Label6.Visible = True
 Me.Label6.BackColor = vbBlue

 Case Is = 7
 Me.Label7.Visible = True
 Me.Label7.BackColor = vbBlue

 Case Is = 8
 Me.Label8.Visible = True
 Me.Label8.BackColor = vbBlue

 Case Is = 9
 Me.Label9.Visible = True
 Me.Label9.BackColor = vbBlue

 Case Is = 10
 Me.Label10.Visible = True
 Me.Label10.BackColor = vbBlue


End Select
Me.Repaint

Application.Wait Now + TimeValue("00:00:05")

cnt =cnt + 1

ループ

ステップ 7

[挿入] メニューをクリックし、[モジュール] をクリックして新しいモジュールを追加します。以下のコードをコピーして貼り付けて、「UserForm1.」を開始します。

Sub showProgressBar() UserForm1.Show End Sub

「F5」を押してプログラムを実行してください。