Barra de Progresso - Excel

Question

Bom dia Senhores,

Tenho uma macro que sempre executo para determinada rotina, porém esta macro sempre demora muito e o usuário acaba pensando que o excel travou.

Alguém sabe como faço para colocar uma barra de progresso (progressbar) para executar esta macro. Se possivel gostaria que esta barra deprogresso se localizasse no centro do arquivo.

 

Desde já agradeço a todos

Abs.

Carlos

 

 

 

 

Answer 1

Oi Carlos,

Sim, é possível colocar uma barra de progresso.

Estou te passando um exemplo, vc estuda e depois aplica como preferir:

- crie um form

- coloque um componente progressbar dentro do form e um botão.

- utilize o seguinte codigo para vc testar o progressbar:

Private Sub CommandButton1_Click()
    ProgressBar1.Min = 0
    ProgressBar1.Max = 3
    ProgressBar1.Value = 0
    ProgressBar1.Visible = True
    ActiveSheet.Range("A1:A3").ClearContents
    For k = 1 To 3
        Application.Wait Now() + 1 / 60 / 60 / 24
        ActiveSheet.Cells(k, 1) = k
        ProgressBar1.Value = k
    Next k
    Application.Wait Now() + 1 / 60 / 60 / 24
    ProgressBar1.Visible = False
End Sub

Bom estudo!

Espero ter ajudado!´

[]'s

Answer 2

Tem um tutorial que ensina a manipular a barra de progresso existente na barra de status no link:

http://www.tudosobrexcel.com/curso_excel_vba/

O assunto é inédito em se tratanto de Excel!