ExcelとVBAを使用してプログレスバーを作成します。
進行状況バーは、操作の進行状況を示すためにコンピューターアプリケーションで使用されます。 これは通常、操作が進むにつれてアニメーション化される長方形です。 Visual Basic for Applications（VBA）は、Microsoft Officeアプリケーションで日常的なタスクを自動化し、ユーザーインターフェイスを作成するために使用されるコンピュータープログラミング言語です。 Microsoft OfficeExcelのVBAを使用してプログレスバーを簡単に作成できます。 Excelは、MicrosoftOfficeスイートに含まれているスプレッドシートアプリケーションです。
ステップ1
Microsoft Office Excelを開き、[Alt]と[F11]を押してVisual BasicEditorを開きます。 「VBAProject」を右クリックし、「UserForm」をクリックして新しいフォームを挿入します。 「ツールボックス」メニューから「ラベル」をクリックします。 マウスボタンを押したまま、フォームをドラッグして新しいラベルコントロールを作成します。
今日のビデオ
ステップ2
ラベルを右クリックして[プロパティ]を選択し、[高さ]を42に、[幅]を12に変更します。 「トップ」を12に変更します。 同じプロセスを使用して、さらに9つのラベルを作成します。
ステップ3
[ツールボックス]ペインの[コマンドボタン]をクリックして、フォームに新しいボタンを追加します。 「CommandButton」を右クリックし、「ViewCode」をクリックして新しいプロシージャを作成します。
ステップ4
次のように入力して、新しい変数を作成し、その値を定義します。
Dim cnt As Integer cnt = 0
ステップ5
フォームの開始時にすべてのラベルを非表示にするには、次のように入力します。
自分。 Label1.Visible = FalseMe。 Label2.Visible = FalseMe。 Label3.Visible = FalseMe。 Label4.Visible = FalseMe。 Label5.Visible = False 自分。 Label6.Visible = FalseMe。 Label7.Visible = FalseMe。 Label8.Visible = FalseMe。 Label9.Visible = FalseMe。 Label10.Visible = False
ステップ6
次のように入力してwhileループを作成し、コードを5秒間一時停止しながら10回繰り返します。
cnt <> 10の間に行う
Case cnt Case Is = 1Meを選択します。 Label1.Visible = TrueMe。 Label1.BackColor = vbBlue Case Is = 2Me。 Label2.Visible = TrueMe。 Label2.BackColor = vbBlue Case Is = 3Me。 Label3.Visible = TrueMe。 Label3.BackColor = vbBlue Case Is = 4Me。 Label4.Visible = TrueMe。 Label4.BackColor = vbBlueケースは= 5Meです。 Label5.Visible = TrueMe。 Label5.BackColor = vbBlueケースは= 6Meです。 Label6.Visible = TrueMe。 Label6.BackColor = vbBlueケースは= 7Meです。 Label7.Visible = TrueMe。 Label7.BackColor = vbBlueケースは= 8Meです。 Label8.Visible = TrueMe。 Label8.BackColor = vbBlueケースは= 9Meです。 Label9.Visible = TrueMe。 Label9.BackColor = vbBlueケースは= 10Meです。 Label10.Visible = TrueMe。 Label10.BackColor = vbBlue EndSelect。 自分。 アプリケーションを塗り直します。 今すぐ待つ+ TimeValue（ "00:00:05"）
cnt = cnt + 1
ループ
ステップ7
[挿入]メニューをクリックし、[モジュール]をクリックして新しいモジュールを追加します。 以下のコードをコピーして貼り付け、「UserForm1」を開始します。
Sub showProgressBar（）UserForm1.Show End Sub
「F5」を押してプログラムを実行します。
