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

Capítulo 5: Procedimentos Function e Sub no VBA
73
4. Selecione Inserir➩Módulo para inserir um novo módulo.
5. Insira o seguinte no módulo:
Sub Raiz Cúbica()
Num = InputBox("Entre com um número positivo")
MsgBox Num ^ (1/3) & " é a raiz cúbica."
End Sub
Este procedimento pede ao usuário por um número e depois exibe a
raiz cúbica daquele número em uma caixa de mensagem. As Figuras 5-1
e 5-2 mostram o que acontece quando você executa este procedimento.
Figura 5-1:
Usando a
função
interna do
VBA
InputBox
para obter
um número.
Figura 5-2:
Exibindo a
raiz cúbica
de um
número
através da
função
MsgBox
A propósito, RaizCúbica não é um exemplo de uma boa macro. Ela não
verifica erros, então falha facilmente. Para ver o que quero dizer, tente
clicar no botão Cancel (Cancelar) na caixa de entrada ou insira um
número negativo.
Executando diretamente o procedimento Sub
A maneira mais rápida de executar esse procedimento é ir diretamente
ao módulo VBA no qual você o definiu. Siga esses passos:
1. Ative o VBE e selecione o módulo VBA que contém o procedimento.