vba11-4.txt

来自「ao的一些代码集合」· 文本 代码 · 共 17 行

Public Sub ShowProgressBar()
  ' Show the progress bar
  Dim pStatusBar As IStatusBar
  Set pStatusBar = Application.StatusBar
  pStatusBar.ShowProgressBar "Computing", 0, _
  10000, 1, True
  ' Step through the progress bar
  Dim lngIndex As Long
  For lngIndex = 0 To 10000
    ' Do your computation here
    pStatusBar.StepProgressBar
  Next lngIndex
  MsgBox "Progress bar reached 100%"
  ' Remove progress bar from the status bar
  pStatusBar.HideProgressBar
End Sub