VBA/Excel/Access/Word/Application/StatusBar

Материал из VB Эксперт
Версия от 12:46, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Show message at status bar

 
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



Update status bar

 
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