Como criar uma barra de progresso no VBA

Escrito por jaime avelar | Traduzido por pedro antonio
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como criar uma barra de progresso no VBA
Use o Excel e o VBA para criar uma barra de progresso (didital map image by charles taylor from Fotolia.com)

Uma barra de progresso é usada em uma aplicação de informática para indicar o progresso de uma operação. É comumente um retângulo animado conforme uma operação progride. O "Visual Basic for Applications", ou VBA, é uma linguagem de programação de computador usada em aplicativos da Microsoft Office para automatizar tarefas rotineiras e criar interfaces de usuário. É possível criar facilmente uma barra de progresso com o VBA no Microsoft Office Excel. Este último programa é um aplicativo de planilha incluído no conjunto Microsoft Office.

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

Instruções

  1. 1

    Abra o Microsoft Office Excel e em seguida, pressione "Alt" e "F11" para abrir o Editor do Visual Basic. Clique com o botão direito do mouse em "VBAProject", clique em "UserForm" (Formulário de usuário) para inserir um novo formulário. A partir do menu "Toolbox" (Ferramentas), clique em "Label" (Etiqueta). Enquanto apertado botão do mouse, arraste o formulário para criar um novo controle de rótulo.

  2. 2

    Clique com o botão direito do mouse no rótulo e selecione "Properties" (Propriedades) e em seguida, altere "Height" (Altura) para 42 e "Width" (Largura) a 12. Mude o "Top" (Topo) para 12. Crie mais nove rótulos usando o mesmo processo.

  3. 3

    Clique em "CommandButton" (Botão de comando) no painel "Toolbox" (Caixa de ferramentas) e adicione um novo botão ao seu formulário. Clique com o botão direito do mouse em "CommandButton" e clique em "View Code" (Visualizar código) para criar um novo procedimento.

  4. 4

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

    Dim cnt As Integer cnt = 0

  5. 5

    Digite o seguinte para esconder todas as etiquetas quando o formulário for 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

  6. 6

    Digite o seguinte para criar um repetição e repita 10 vezes durante a pausa do código por 5 segundos:

    Do While 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

    Loop

  7. 7

    Clique no menu "Insert" (Inserir) e clique em "Module" (Módulo) para adicionar um novo módulo. Copie e cole o código abaixo para iniciar o seu "UserForm1.":

    Sub showProgressBar() UserForm1.Show End Sub

    Pressione "F5" para executar o programa.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível