ステータスバーに進捗表示

Sub ステータスバーに進捗表示()

    Dim i,r As Long

    r = 1000    ' 検索値

    For i = 0 To r
        Application.StatusBar = "進捗状況：" & i & "/" & r & "(" & (i / r) * 100 & "%)"

    Next

    Application.StatusBar = False

End Sub