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 computadores usados ​​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 usando o VBA no Microsoft Office Excel. Excel é um aplicativo de planilha incluído na suíte Microsoft Office. Instruções
1

Abra o Microsoft Office Excel , em seguida, pressione "Alt" e " F11 " para abrir o Editor do Visual Basic. Botão direito do mouse " VBAProject ", clique em " UserForm " para inserir um novo formulário. A partir do menu " Ferramentas " , clique em " Rótulo ". Embora mantendo o mouse botão , arraste no formulário para criar um novo controle de rótulo .
2

botão direito do mouse no rótulo e selecione "Propriedades ", em seguida, altere "altura " de 42 e "largura " para 12 . Altere o "Top " para 12. Criar mais nove rótulos usando o mesmo processo.
3

Clique em " CommandButton " no painel " Toolbox" e adicionar um novo botão ao seu formulário. . Botão direito do mouse " CommandButton " e clique em "View Code " para criar um novo procedimento
4

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

Dim cnt Como integer

cnt = 0
5

Digite o seguinte para ocultar todos os rótulos quando o Form começa :

Me.Label1.Visible = False

Me.Label2.Visible = False

Me.Label3.Visible = False

Me.Label4.Visible = False

Me.Label5.Visible = False < br >

Me.Label6.Visible = False

Me.Label7.Visible = False

Me.Label8.Visible = False

Me.Label9.Visible = False

Me.Label10.Visible = False
6

Digite o seguinte para criar um loop while e iterar 10 vezes ao pausar o código por 5 segundos :

fazer enquanto cnt < > 10

Select Case cnt
caso

Is = 1

Me.Label1.Visible = True

Me.Label1.BackColor = vbBlue
caso

é = 2

Me.Label2.Visible = True

Me.Label2.BackColor = vbBlue

Case Is = 3 < br >

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

mim . 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

Aplicação . Espere agora + TimeValue ( " 00:00:05 " )

cnt = cnt + 1

loop
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 a sua " UserForm1 . " :

Sub showProgressBar ()

UserForm1.Show

End Sub

Pressione " F5 "para executar o programa.