Exibindo uma barra de progresso – Parte 2

Oi pessoal.

No artigo anterior, escrevi uma macro para exibir na barra de status do Excel o andamento de um processo em execução em seu projeto VBA. Clique aqui para ler agora.

Hoje, vou continuar abordando este tema e adicionando algumas técnicas que darão um ar ainda mais profissional aos seus projetos. Que tal exibir uma barra de progresso gráfica, com contador, igual a esta da imagem abaixo?

Muito legal! E nós vamos construir uma dessas agora. Vamos começar?

Primeiramente, vou definir o que vamos precisar para a construção dessa macro.

1 Userform que vamos alterar seu nome para “frmBarraDeProgresso”;

1 Label que vamos nomeá-lo “progressBar”;

1 Frame que terá sua propriedade Name alterada para “framePb”;

1 Módulo global onde vamos escrever nossa macro.

Para iniciar a tela do VBA, use o atalho ALT+F11.

Configurando o formulário

Insira um formulário ao projeto (Inserir > UserForm) e altere sua propriedade Name para frmBarraDeProgresso.

Coloque o controle Frame e altere suas propriedades abaixo:

Name = framePb;

Caption = 0%;

SpecialEffect = 2;

Coloque o controle Label dentro do framePb e mude suas propriedades a seguir:

Name = progressBar;

Caption = (deixe em branco);

SpecialEffect = 1;

Height = 15;

Width = 5;

Ajuste o tamanho do formulário e do framePb conforme desejar, de maneira que se aproxime do modelo mostrado aqui na figura 1.

Configurando o código que será executado

Vamos usar o mesmo código de exemplo que utilizamos no artigo anterior, você pode definir o seu próprio código, caso já o tenha. Neste exemplo, a macro vai percorrer todos os registros do catálogo de telefones e exibir uma mensagem ao lado de cada registro. Isto é apenas um exemplo para estudo. Esse código deve ser escrito no Módulo1.

Private Sub MinhaMacro(ByVal rCell As Range)

    With rCell
        Select Case CInt(Left(.Offset(0, 1).Value, 1))
            Case 7, 8, 9
                .Offset(0, 2).Value = "Oi, " & .Value & ". Este número de telefone parece ser um celular!"
            Case Else
                .Offset(0, 2).Value = "Oi, " & .Value
        End Select
    End With

End Sub

Configurando o código da Barra de Progresso

Esse é o código que executa a chamada do formulário frmBarraDeProgresso e implementa toda a rotina de análise do andamento do processo. Esse código também deve ser escrito no Módulo1.

Sub BarraDeProgresso()
Dim i               As Long
Dim iUltimaLinha    As Long
Dim iPercentualConcluido As Double

    Application.ScreenUpdating = False

    iUltimaLinha = ActiveSheet.Range("A1").End(xlDown).Row

    frmBarraDeProgresso.Show False

    For i = 2 To iUltimaLinha
        iPercentualConcluido = i / iUltimaLinha
        With frmBarraDeProgresso
            .framePb.Caption = Format(iPercentualConcluido, "0%") & " Concluído"
            .progressBar.Width = iPercentualConcluido * (.framePb.Width - 10)
        End With

        DoEvents    'Permite que sejam visualizadas as mudanças nos controles do formulário

        ' O código da sua macro vai aqui
        Call MinhaMacro(ActiveSheet.Cells(i, 1))
    Next

    Unload frmBarraDeProgresso

    MsgBox "Processo concluído.", vbInformation, "Excel do Seu Jeito"

End Sub

Faça o download do arquivo de exemplo para testar esta macro vba. O link para baixar está no final do artigo.

Este código exibe tanto uma barrinha de progresso do processamento da sua macro como o percentual já executado. Muito útil em processos longos e demorados.

Espero que seja bem útil para vocês.

E para quem ainda não segue o @exceldoseujeito no twitter, fica aqui o convite para Follow @exceldoseujeito e ficar sempre atualizado das novidades aqui do site.

Até a próxima!