Sub 選択部分再計算()

    Dim Total As Integer
    Dim Counter As Integer
   
    Total = Selection.Cells.Count
    Counter = 1

    For Each SelectedCell In Selection
   
        SelectedCell.Calculate
       
        Counter = Counter + 1
       
        Application.StatusBar = "しばらくお待ちください。再計算しています。 " & ProgressView(Counter, Total)
   
    Next

    Application.StatusBar = False
   
    MsgBox ("再計算が完了しました。")

End Sub

Function ProgressView(Now As Integer, Total As Integer)

    Dim Per As Integer
    Dim Msg As String
    Dim Bar As String

    Per = Int(Now / Total * 100)

    Select Case Per
        Case Is >= 90
            Bar = "**********"
        Case Is >= 80
            Bar = "*********_"
        Case Is >= 70
            Bar = "********__"
        Case Is >= 60
            Bar = "*******___"
        Case Is >= 50
            Bar = "******____"
        Case Is >= 40
            Bar = "*****_____"
        Case Is >= 30
            Bar = "***_______"
        Case Is >= 20
            Bar = "**________"
        Case Is >= 10
            Bar = "*_________"
        Case Else
            Bar = "__________"
    End Select

    Msg = " | " & Bar & " | " & Per & "% | " & Now & " in " & Total & " | "

    ProgressView = Msg
   
End Function