barra de progressão vba

EXCEL 2007 com VBA

BARRA DE PROGRESSO EM VBA
Quando elaboramos uma programação em VBA e não sabemos o tempo de execução podemos utilizar uma alternativa para a visualização do progresso da tarefa, uma barra de progressão com porcentagem (%).
O Código VBA apresentado aqui é simples, com o objetivo de visualizarmos a barra de progressão. E você pode aplicar este mesmo conhecimento para outros casos.
Vamos lá!

1 – Crie uma pasta padrão no Excel, e salve-a com o nome (sugestivo)
“VBA_com_barra.xls”

2 – Abra o editor de VBA
Para Excel 2003 ou anteriores:
a. Menu EXIBIR > Barra de Ferramentas > Visual Basic.
b. Clique no botão Editor Visual Basic:

Para Excel 2007:
a. Clique no Botão Microsoft Office e, em seguida, clique em Opções do
Excel .
b. Clique em Personalizar .
c. Clique para selecionar a caixa de seleção guia Mostrar desenvolvedor na faixa de opções .
d. Clique em OK para fechar a caixa de diálogo Opções do Excel .
3 – Criando o módulo que irá armazenar o código em VBA.
Clique no Menu INSERIR > Módulo

1

EXCEL 2007 com VBA

Surgirá então uma área (direita) em branco para a inserção do código VBA.
Objetivo do Exemplo: Código VBA para criar um valor progressivo na Coluna A do Excel, utilizando o incremento 1. Em outras palavras, vai escrever um número em ordem crescente em 3000 linhas da Coluna A, no Excel.
Vamos digitar o seguinte código (o que possui apostrofe („) é um comentário):

Sub contar()
Dim limite As Integer 'apresentando uma variável para armazenar o valor máximo limite = 3000 'atribui a quantidade máxima de células a serem preenchidas Range("A1").Select 'seleciona coluna A para iniciar a contagem
For x = 1 To limite 'laço repete ação até variável limite. X é variável início e incrementada
ActiveCell = x 'atribui o valor atual de X na cálula ativa/selecionada
ActiveCell.Offset(1, 0).Select 'percorre uma linha abaixo e não muda de coluna Next x 'repete o laço se não chegou ainda no limite
End Sub