Uma barra de progresso é usada em um aplicativo de computador para indicar o progresso de uma operação. Geralmente, é um retângulo animado à medida que uma operação avança. Visual Basic for Applications, ou VBA, é uma linguagem de programação de computador usada em aplicativos do Microsoft Office para automatizar tarefas de rotina e criar interfaces de usuário. Você pode criar facilmente uma barra de progresso usando o VBA no Microsoft Office Excel. O Excel é um aplicativo de planilha incluído no pacote Microsoft Office.
Etapa 1
Abra o Microsoft Office Excel e pressione “Alt” e “F11″ para abrir o Editor do Visual Basic. Clique com o botão direito do mouse em “VBAProject” e clique em “UserForm” para inserir um novo formulário. No menu "Caixa de ferramentas", clique em "Etiqueta". Enquanto segura o botão do mouse, arraste o formulário para criar um novo controle de rótulo.
Etapa 2
Clique com o botão direito do mouse no rótulo e selecione "Propriedades" e altere "Altura" para 42 e "Largura" para 12. Altere o "Top" para 12. Crie mais nove rótulos usando o mesmo processo.
Etapa 3
Clique em "CommandButton" no painel "Toolbox" e adicione um novo botão ao seu formulário. Clique com o botão direito do mouse em "CommandButton" e clique em "Exibir código" para criar um novo procedimento.
Etapa 4
Digite o seguinte para criar uma nova variável e definir seu valor:
Dim cnt As Integer cnt =0
Etapa 5
Digite o seguinte para ocultar todos os rótulos quando o formulário for iniciado:
Me.Label1.Visible =Me falso.Label2.Visible =Eu falso.Label3.Visible =Eu falso.Label4.Visible =Eu falso.Label5.Visible =Eu falso.Label6.Visible =Eu falso.Label7.Visible =Eu falso .Label8.Visible =False Me.Label9.Visible =False Me.Label10.Visible =False
Etapa 6
Digite o seguinte para criar um loop while e iterar 10 vezes enquanto pausa o código por 5 segundos:
Faça Enquanto cnt <> 10
Select Case cnt
Case Is = 1
Me.Label1.Visible = True
Me.Label1.BackColor = vbBlue
Case Is = 2
Me.Label2.Visible = True
Me.Label2.BackColor = vbBlue
Case Is = 3
Me.Label3.Visible = True
Me.Label3.BackColor = vbBlue
Case Is = 4
Me.Label4.Visible = True
Me.Label4.BackColor = vbBlue
Case Is = 5
Me.Label5.Visible = True
Me.Label5.BackColor = vbBlue
Case Is = 6
Me.Label6.Visible = True
Me.Label6.BackColor = vbBlue
Case Is = 7
Me.Label7.Visible = True
Me.Label7.BackColor = vbBlue
Case Is = 8
Me.Label8.Visible = True
Me.Label8.BackColor = vbBlue
Case Is = 9
Me.Label9.Visible = True
Me.Label9.BackColor = vbBlue
Case Is = 10
Me.Label10.Visible = True
Me.Label10.BackColor = vbBlue
End Select
Me.Repaint
Application.Wait Now + TimeValue("00:00:05") cnt =cnt + 1
Ciclo
Etapa 7
Clique no menu "Inserir" e clique em "Módulo" para adicionar um novo módulo. Copie e cole o código abaixo para iniciar seu "UserForm1.":
Sub showProgressBar() UserForm1.Show End Sub
Pressione “F5″ para executar o programa.
