機能追加（起動時処理・進捗率表示）

概要

EXCEL照会ツールに下記の機能を付加したい。
　・ブック起動時の自動処理
　・処理中の進捗率を表示する機能

起動時処理

              
' 起動時処理
Private Sub auto_open()

　　ProgressForm.Show vbModeless
    
　　Sheets("Sheet1").Select
　　Range("AA2").Select
    
　　ProgressUpdate 3, "マスタ読込中"
　　Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
　　Range("A1").Select
    
　　ProgressUpdate 10, "マスタ読込中"
　　Unload ProgressForm
　　Range("A4").Select
    
End Sub

進捗率表示

              
' ProgressFormのインポートが必要

' 進捗率ポップアップの表示
ProgressForm.Show vbModeless

' 進捗率ポップアップの更新（進捗数／表示名）
ProgressUpdate 1, "データ取得中"
ProgressUpdate 4, "データ更新中"
ProgressUpdate 10, "画面復帰処理中"

' 進捗率ポップアップの削除
Unload ProgressForm



' ルーチンの追加
Sub ProgressUpdate(i As Long, str As String)
    ProgressForm.ProgressBar.Value = i
    ProgressForm.Label_progress.Caption = str
    DoEvents
End Sub