24.08.2020 Views

Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

200 Parte III: Conceitos de Programação

Usando a função MsgBox

Um problema comum em muitos programas envolve uma ou mais

variáveis que não tomam os valores que você espera. Em tais casos,

monitorar a(s) variável(eis) enquanto o seu código roda é uma técnica

útil de depuração. Uma maneira de fazer isso é inserir temporariamente

funções MsgBox em sua rotina. Por exemplo, se você tiver uma variável

chamada CellCount, pode inserir a seguinte declaração:

MsgBox CellCount

Figura 13-2:

Usando uma

caixa de

mensagem

para exibir o

valor de

duas

variáveis.

Quando você executa a rotina, a função MsgBox exibe o valor de CellCount.

Em geral, é útil exibir os valores de duas ou mais variáveis na caixa de

mensagem. A seguinte declaração exibe o valor atual de duas variáveis:

LoopIndex(1) e CellCount(72), conforme mostrado na Figura 13-2:

MsgBox LoopIndex & " " & CellCount

Observe que eu combino as duas variáveis com o operador de concatenação

(&) e insiro um caractere de espaço entre elas. Caso contrário, a

caixa de mensagem conecta os dois valores, fazendo-os parecer como um

único valor. Também é possível usar a constante integrada vbNewLine,

no lugar do caractere de espaço. vbNewLine insere uma linha de alimentação

de pausa, a qual exibe o texto em uma nova linha. A seguinte

declaração exibe três variáveis, cada uma em uma linha separada:

MsgBox LoopIndex & vbNewLine & CellCount & _

vbNewLine & MyVal

Esta técnica não é limitada a monitorar variáveis. Você pode usar uma

caixa de mensagem para exibir todo o tipo de informações úteis

enquanto o seu código estiver rodando. Por exemplo, se o seu código

fizer loops através de uma série de planilhas, a seguinte declaração

exibe o nome e o tipo da planilha ativa:

MsgBox ActiveSheet.Name & “ “ & TypeName(ActiveSheet)

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!