VBA/Excel/Access/Word/Application/StatusBar

Материал из VB Эксперт
Перейти к: навигация, поиск

Show message at status bar

   <source lang="vb">

Sub ShowMessage()

  Dim i As Long
  For i = 0 To 100
     If i Mod 100 = 0 Then
        Application.StatusBar = "Processing Record " & i
     End If
  Next i
  Application.StatusBar = False

End Sub

</source>
   
  


Update status bar

   <source lang="vb">

Public Sub ShowStatus()

 Application.ScreenUpdating = False
 
 Dim I As Long
 For I = 0 To 10000000
   If I Mod 1000000 = 0 Then
     Application.StatusBar = "Processing Record " & I
   End If
 Next I
 Application.StatusBar = False
 Application.ScreenUpdating = True
 

End Sub

</source>