locked
Barra de Progresso - Excel RRS feed

  • Pergunta

  • 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

     

     

     

     

    segunda-feira, 9 de outubro de 2006 14:00

Todas as Respostas

  • 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

    segunda-feira, 9 de outubro de 2006 18:10
  • 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!

     

     

    terça-feira, 10 de outubro de 2006 11:40