Como criar barra de progresso em VBA

Use o Excel e VBA para criar uma barra de progresso.

Uma barra de progresso é usado em uma aplicação informática para indicar o progresso de uma operação. É comumente um retângulo que está animado como uma operação progride. Visual Basic for Applications, ou VBA, é uma linguagem de programação de computador usado em aplicativos do Microsoft Office para automatizar tarefas de rotina e para criar interfaces de usuário. Você pode facilmente criar uma barra de progresso utilizando VBA no Microsoft Office Excel. Excel é um aplicativo de planilha incluído no pacote Microsoft Office.

Abra o Microsoft Office Excel, em seguida, pressione "Alt" e "F11" para abrir o Editor do Visual Basic. direita; clique "VBAProject," então clique "UserForm" para inserir um novo formulário. De "Caixa de ferramentas" menu, clique em "Rótulo." Enquanto mantém o botão do mouse, arraste no formulário para criar um novo controle de rótulo.
direita; clique no rótulo e selecione "propriedades," em seguida, altere "Altura" a 42 e "Largura" a 12. Alterar o "Topo" a 12. Criar mais nove rótulos usando o mesmo processo.
Clique "Botão de comando" no "Caixa de ferramentas" painel e adicionar um novo botão ao seu formulário. direita; clique "Botão de comando" e clique "view Code" para criar um novo processo.
Digite o seguinte para criar uma nova variável e definir o seu valor:
cnt Dim As Integer
cnt = 0
Digite o seguinte para ocultar todos os rótulos quando o formulário é iniciado:
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

Digite o seguinte para criar um loop while e repetir 10 vezes durante a pausa o código por 5 segundos:

Do While cnt lt; gt; 10

Select cnt casoCaso é = 1
Me.Label1.Visible = True
Me.Label1.BackColor = vbBlue
Caso é = 2
Me.Label2.Visible = True
Me.Label2.BackColor = vbBlue
Caso é = 3
Me.Label3.Visible = True
Me.Label3.BackColor = vbBlue
Caso é = 4


Me.Label4.Visible = True
Me.Label4.BackColor = vbBlue
Caso é = 5
Me.Label5.Visible = True
Me.Label5.BackColor = vbBlue
Caso é = 6
Me.Label6.Visible = True
Me.Label6.BackColor = vbBlue
Caso é = 7
Me.Label7.Visible = True
Me.Label7.BackColor = vbBlue
Caso é = 8
Me.Label8.Visible = True
Me.Label8.BackColor = vbBlue
Caso é = 9
Me.Label9.Visible = True
Me.Label9.BackColor = vbBlue
Caso é = 10
Me.Label10.Visible = True
Me.Label10.BackColor = vbBlue
End Select
Me.Repaint
Application.Wait Agora + TimeValue ("00:00:05")

cnt = cnt + 1

laço

Clique no "Inserir" Menu e clique em "Módulo" para adicionar um novo módulo. Copie e cole o código abaixo para iniciar a sua "UserForm1.":
Sub showProgressBar ()
```
UserForm1.Show
```
End Sub
pressione "F5" para executar o programa.

De esta maneira? Compartilhar em redes sociais: