Como Criar Barra de Progresso no VBA (Excel)

Uma barra de progresso indica o andamento de uma operação em aplicativo. Comumente é um retângulo animado conforme a operação avança. Visual Basic for Applications (VBA) é linguagem de programação usada em aplicativos Microsoft Office para automatizar tarefas e criar interfaces. Você pode criar facilmente uma barra de progresso usando VBA no Microsoft Office Excel.

Passo 1

Abra o Microsoft Office Excel, pressione "Alt" e "F11" para abrir o Editor Visual Basic. Clique com botão direito em "VBAProject", depois "UserForm" para inserir novo Formulário. No menu "Caixa de Ferramentas" (Toolbox), clique em "Label" (Rótulo). Segurando o botão do mouse, arraste no Formulário para criar novo controle Label.

Passo 2

Clique com botão direito no Label e selecione "Propriedades". Altere "Height" (Altura) para 42 e "Width" (Largura) para 12. Altere "Top" para 12. Crie mais nove Labels usando mesmo processo.

Passo 3

Clique em "CommandButton" (Botão de Comando) no painel "Caixa de Ferramentas" e adicione novo botão ao Formulário. Clique com botão direito no "CommandButton" e clique em "Ver Código" (View Code) para criar novo procedimento.

Passo 4

Digite o seguinte para criar nova variável e definir seu valor:

Dim cnt As Integer
cnt = 0

Passo 5

Digite o seguinte para ocultar todos os Labels quando o Formulário iniciar:

Me.Label1.Visible = False
Me.Label2.Visible = False
Me.Label3.Visible = False
Me.Label4.Visible = False
Me.Label5.Visible = False
Me.Label6.Visible = False
Me.Label7.Visible = False
Me.Label8.Visible = False
Me.Label9.Visible = False
Me.Label10.Visible = False

Passo 6

Digite o seguinte para criar loop while iterando 10 vezes com pausa de 5 segundos:

Do While cnt <> 10
    Select Case cnt
        Case 1: Me.Label1.Visible = True: Me.Label1.BackColor = vbBlue
        Case 2: Me.Label2.Visible = True: Me.Label2.BackColor = vbBlue
        Case 3: Me.Label3.Visible = True: Me.Label3.BackColor = vbBlue
        Case 4: Me.Label4.Visible = True: Me.Label4.BackColor = vbBlue
        Case 5: Me.Label5.Visible = True: Me.Label5.BackColor = vbBlue
        Case 6: Me.Label6.Visible = True: Me.Label6.BackColor = vbBlue
        Case 7: Me.Label7.Visible = True: Me.Label7.BackColor = vbBlue
        Case 8: Me.Label8.Visible = True: Me.Label8.BackColor = vbBlue
        Case 9: Me.Label9.Visible = True: Me.Label9.BackColor = vbBlue
        Case 10: Me.Label10.Visible = True: Me.Label10.BackColor = vbBlue
    End Select
    Me.Repaint
    Application.Wait Now + TimeValue("00:00:05")
    cnt = cnt + 1
Loop

Passo 7

Clique no menu "Inserir" e depois "Módulo" para adicionar novo módulo. Copie e cole o código abaixo para iniciar seu "UserForm1":

Sub showProgressBar()
    UserForm1.Show
End Sub

Pressione "F5" para executar seu programa.

• Como Ocultar Seu Número Ligando *67 (Chamada Privada)
• Como Usar Motorola Razr V3 Sem Chip (SIM)