Contador na barra de status do Excel

Tem alguma dica para o uso do Excel? Algum atalho especial? Algum macete? Aqui é o lugar para você compartilhar!

Contador na barra de status do Excel

Mensagempor ricardofmoreno » Ter Jul 14, 2009 11: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,

ricardofmoreno
 

{ SO_SELECT }

Re: Contador na barra de status do Excel

Mensagempor ralf jones » Dom Jun 16, 2013 10:18 am

Ótima dica
Valeuuu
ralf jones
Membro
Membro
 
Mensagens: 3
Registrado em: Qui Mai 23, 2013 7:52 pm
Localização: Limeira-SP
Has thanked: 5 times
Have thanks: 0 time


Voltar para Dicas & Macetes

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante