quarta-feira, 27 de janeiro de 2010

Usando a barra de status do Excel

Muitas vezes durante a execução de uma macro, queremos acompanhar o andamento do processo.
Para isso, basta usar o recurso da barra de status do próprio Excel.
Abaixo um exemplo bem simples com um looping preenchendo um conjunto de células.
Ao lado, o resultado.

;-)


Option Explicit
Dim i As Integer

Sub status_bar()
For i = 1 To 5000
DoEvents
Cells(i, 1).Value = "Teste"
Application.StatusBar = "Preenchendo célula " & i & " de 5.000"
Next
Application.StatusBar = False

End Sub


Nenhum comentário:

Pesquisar este blog

Arquivo do blog

Quem sou eu

Minha foto
Administrador de Empresas/Técnico em Processamento de Dados. Microsoft Office User Specialist - Excel Proficient. Pós-graduado em Business Intelligence.