document.write('
');
document.write('Sub 選択部分再計算()
');
document.write('
');
document.write(' Dim Total As Integer
');
document.write(' Dim Counter As Integer
');
document.write('
');
document.write(' Total = Selection.Cells.Count
');
document.write(' Counter = 1
');
document.write('
');
document.write(' For Each SelectedCell In Selection
');
document.write('
');
document.write(' SelectedCell.Calculate
');
document.write('
');
document.write(' Counter = Counter + 1
');
document.write('
');
document.write(' Application.StatusBar = "しばらくお待ちください。再計算しています。 " & ProgressView(Counter, Total)
');
document.write('
');
document.write(' Next
');
document.write('
');
document.write(' Application.StatusBar = False
');
document.write('
');
document.write(' MsgBox ("再計算が完了しました。")
');
document.write('
');
document.write('End Sub
');
document.write('
');
document.write('Function ProgressView(Now As Integer, Total As Integer)
');
document.write('
');
document.write(' Dim Per As Integer
');
document.write(' Dim Msg As String
');
document.write(' Dim Bar As String
');
document.write('
');
document.write(' Per = Int(Now / Total * 100)
');
document.write('
');
document.write(' Select Case Per
');
document.write(' Case Is >= 90
');
document.write(' Bar = "**********"
');
document.write(' Case Is >= 80
');
document.write(' Bar = "*********_"
');
document.write(' Case Is >= 70
');
document.write(' Bar = "********__"
');
document.write(' Case Is >= 60
');
document.write(' Bar = "*******___"
');
document.write(' Case Is >= 50
');
document.write(' Bar = "******____"
');
document.write(' Case Is >= 40
');
document.write(' Bar = "*****_____"
');
document.write(' Case Is >= 30
');
document.write(' Bar = "***_______"
');
document.write(' Case Is >= 20
');
document.write(' Bar = "**________"
');
document.write(' Case Is >= 10
');
document.write(' Bar = "*_________"
');
document.write(' Case Else
');
document.write(' Bar = "__________"
');
document.write(' End Select
');
document.write('
');
document.write(' Msg = " | " & Bar & " | " & Per & "% | " & Now & " in " & Total & " | "
');
document.write('
');
document.write(' ProgressView = Msg
');
document.write('
');
document.write('End Function
');
document.write('
');
document.write('
');