Notifications
Clear all

Contador na barra de status do Excel  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
14/07/2009 8:16 am  

Fala pessoal,

Segue um trecho de codigo pra quem precisar mostrar a evolucao de uma rotina por tempo na barra de status do Excel.
Pode ser util pra informar o usuario sobre o tempo restante/decorrido quando a criacao de uma barra personalizada nao for necessaria.

Sub CountDownStatusBar()
'Neste exemplo, um contador de 10 ate 0 sera mostrado na barra de status do Excel.
Dim intCounter As Integer
Dim bln As Boolean
bln = Application.DisplayStatusBar
Application.DisplayStatusBar = True
For intCounter = 10 To 1 Step -1
Application.StatusBar = intCounter & " Seconds..."
Application.Wait Now + TimeSerial(0, 0, 1)
Next intCounter
Application.StatusBar = False
Application.DisplayStatusBar = bln
End Sub

Abracos,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


Citar (Quote)
ralf jones
(@ralf-jones)
New Member
Entrou: 7 anos atrás
Posts: 2
16/06/2013 7:18 am  

Ótima dica
Valeuuu


ResponderCitar (Quote)
Compartilhar: