Excel VBA: Aula 8

EXCEL VBA (aula 8) Visual Basic prof. Gustavo Zimmermann

prof. Gustavo Zimmermann | [email protected]

PUBLIC Podem ser chamadas dentro de qualquer rotina e de qualquer

parte do projeto, como módulos, formulários, objetos. Também ficam disponíveis em

outro projeto aberto, desde que você adicione a referência a esse projeto.

PRIVATE Só podem ser executadas no módulo onde foram escritas.

Elas só podem ser chamadas dentro das rotinas que pertençam ao mesmo módulo ou

objeto. Quando chamadas a partir de outro módulo, ocorrerá o erro: “Sub ou Function

não definida”.

Excel VBA – Visual Basic

Rotinas (pág. 6)


PUBLIC Sub-rotinas e funções são públicas por padrão. Caso não queira que sejam públicas, é

necessário que declare usando a palavra-chave Private Sub ou Private Function.

PRIVATE Procedimentos de evento são privados por padrão, a palavra-chave Private é

automaticamente inserida antes da declaração do procedimento (Private Sub evento).


Rotinas (pág. 6)


Sintaxe Sub-rotinas


Rotinas (pág. 6)

1. Public Sub

2. <nome_da_macro> ( )

3. <corpo_da_macro>

4. End Sub

1. Private Sub

2. <nome_da_macro> ( )

3. <corpo_da_macro>

4. End Sub

Sintaxe Funções

1. Public Function <Nome Função> (argumentos)

2. <Nome da Função> = <Valor / Expressão>

3. End Function

1. Private Function <Nome Função> (argumentos)

2. <Nome da Função> = <Valor / Expressão>

3. End Function



Passagem de Parâmetros (pág. 7-9)

1. Sub Dobro (Num As Integer)

2. <corpo_da_macro>

3. End Sub

ByVal Quando declarar os argumentos de uma função/procedimento, não é necessário usar

a palavra ByVal já que os argumentos assumem automaticamente a opção ByVal, pois

este é o método padrão. As duas declarações a seguir são equivalentes:

1. Sub Dobro (ByVal Num As Integer)

2. <corpo_da_macro>

3. End Sub

OU

*Na passagem de parâmetro por valor, ao iniciar a execução, a função faz uma cópia

dos valores passados para serem utilizados nas operações.




1. Sub Passagem_valor ()

2. Dim x As Integer

3. x = 3

4. MsgBox "Valor dado a variável X é: " & x

5. 'Aqui estou chamando a procedure que vai dobrar o valor de x (sub Dobro)

6.

7. Dobro (x)

8. MsgBox "Valor de X Após a Execução: " & x

9. End Sub

10. Sub Dobro (ByVal Num As Integer)

11. MsgBox "Valor passado como parâmetro: " & Num

12. Num = Num * 2

13. MsgBox "Dobro do valor: " & Num

14. End Sub

ByVal Exemplo:




ByRef Para poder alterar o valor original de uma variável, a função/procedimento, tem que

receber o parâmetro por referência – ByRef, ou seja, a função/procedimento tem que

receber uma referência ao endereço de memória da variável passada como parâmetro

e não uma simples cópia do valor da variável . Ao receber um parâmetro por referência

(ByRef), as alterações que a função/procedimento fizer, serão feitas diretamente na

variável original, pois agora, a função/procedimento tem acesso ao endereço da

variável na memória e não mais apenas uma cópia do seu valor

1. Public Sub DobraValor (ByRef Num As Integer)

2. <corpo_da_macro>

3. End Sub




1. Sub Passagem_Ref()

2. Dim y As Integer

3. y = 3

4. MsgBox "Valor dado a variável Y é: " & y

5. 'Aqui estou chamando a procedure que vai dobrar o valor de y (sub Dobro_ref)

6.

7. Call Dobro_ref (y)

8. MsgBox "Valor de Y Após a Execução: " & y

9. End Sub

10. Sub Dobro_ref (ByRef Num As Integer)

11. MsgBox "Valor passado como parâmetro: " & Num

12. Num = Num * 2

13. MsgBox "Dobro do valor: " & Num

14. End Sub

ByRefl Exemplo:



Tipos de Variáveis

Tipo Tamanho Valor/Descrição

Boolean 2 bytes True ou False.

Byte 1 byte De 0 a 255

Date 8 bytes Tipo para datas

Decimal 12 bytes O maior valor possível é +/- 79.228.162.514.264.337.593.950.335.

Double 8 bytes Tipo para números Reais

Integer 2 bytes -32.768 a 32.767.

Long 4 bytes De -2.147.483.648 a 2.147.483.648

Single 4 bytes Maior variedade de números Reais

String 10 bytes De 1 a 2 bilhões de caracteres.

Variant (numérica) 16 bytes Maior quantidade de variações de números

Variant (texto) 22 bytes Maior quantidade de caracteres


1. Dim Nome_da_variável As Tipo_da_variavel

Declaração


Tipos de Variáveis

1. Dim Taxa As Double

1. Dim Taxa, Valor, Total As Double



Operadores Aritméticos

Operador Descrição

+ Adição

- Subtração

* Multiplicação

/ Divisão

\ Divisão inteira

^ Expponenciação

Mod Retorna o resto da divisão



Operadores de Comparação


= Igual a

> Maior que

< Menor que

<> Diferente de

>= Maior ou Igual

<= Menor ou Igual

Is É. Compara duas variáveis de referência a objetos.

Like Como. Compara sequência de caracteres.



Operadores Lógicos


And E. Acrescenta condições a um teste lógico. Retorna True se todas as condições forem verdadeiras e, no caso contrário, retorna False.

Or Ou. Acrescenta condições a um teste lógico. Retorna True se pelo menos uma das condições for verdadeira e False caso todas forem falsas.

Not Gera uma negação lógica.

Eqv Realiza uma equivalência lógica. Retorna True se as duas expressões forem verdadeiras ou falsas, caso contrário, retorna False.

Xor Realiza uma exclusão lógica. Retorna True se apenas uma expressão for verdadeira, caso contrário, retorna False.



Operadores de Concatenação


& Concatena textos.

+ Concatena textos.



Estruturas Condicionais

A estrutura If é utilizada para executar uma instrução dependendo do resultado de uma expressão.

If ... Then ... Else

1.If Condição Then

2. Grupo_de_instruções_If

3.Else

4. Grupo_de_instruções_Else

5.Enf If




If ... Then ... ElseIf ... Then ... Else

1. If Condição 1 Then


3. ElseIf Condição 2 Then


5. Else


7. End If




A estrutura Select Case executa um dos diversos grupos de instruções dependendo do valor de uma expressão.

Select Case

1. Select Case Expressão

2. Case Is Valor 1

3. Grupo_de_instruções_1

4. Case Is Valor 2

5. Grupo_de_instruções_2

6. Case Else


8. End Select



Caixas de Diálogo

A função InputBox é utilizada quando o programa necessita de uma informação do usuário. Neste caso, a caixa de diálogo é exibida com um campo de texto onde o usuário irá digitar a informação que será processada.

Função InputBox

1. InputBox (Prompt, Title, Default, Xpos, Ypos, Helpfile, Context)

Prompt: É o texto da mensagem.

Title: É o título da caixa de mensagem.

Default: É o texto exibido quando a caixa for carregada.

Xpos: é o número referente à posição horizontal da caixa de mensagem.

Ypos: É o número referente à posição vertical da caixa de mensagem.

Helpfile: Identifica o arquivo de ajuda.

Context: É o número de contexto da ajuda e é fornecido quando o Helpfile for especificado.



Caixas de Diálogo

A função MsgBox é utilizada para enviar mensagens ao usuário. Essas mensagens ao usuário. Essas mensagens podem conter

Função MsgBox

1. MsgBox (Prompt, Buttons, Title, Helpfile, Context)

Prompt: É o texto do corpo da mensagem.

Buttons: Botões que são exibidos.

Title: É texto da barra de título.

Helpfile: Identifica o arquivo de ajuda, se houver.

Context: É o numero de contexto da ajuda quando houver HelpFile.




Função MsgBox Buttons: veja a seguir os valores possíveis para este argumento.

Constante Valor Descrição

vbOKOnly 1 Exibe apenas o botão OK.

vbOKCancel 2 Exibe os botões OK.

vbAbortRetryIgnore 3 Exibe os botões Anular, Repetir e Ignorar.

vbYesNoCancel 4 Exibe os botões Sim, Não e Cancelar.

vbCritical 16 Exibe o ícone Mensagem Crítica.

vbQuestion 32 Exibe o ícone Consulta de Aviso.

vbExclamation 48 Exibe o ícone Mensagem de Aviso.

vbInformation 64 Exibe o ícone Mensagem de Informação.






vbDesaultButton1 0 O primeiro botão é padrão.

vbDesaultButton2 256 O segundo botão é padrão.

vbDesaultButton3 512 O terceiro botão é padrão.

vbDesaultButton4 768 O quarto botão é padrão.

vbApplicationModal 0 Janela do aplicativo. O usuário deve responder a mensagem antes de continuar o trabalho no aplicativo atual.

vbSystemModal 4096 Janela do sistema. Todos os aplicativos ficam suspensos até o usuário responder a mensagem.






vbMsgBoxHelpButon 16384 Insere o botão Help na caixa de mensagem.

vbMsgBoxSetForeground 65536 Especifica que a caixa de mensagem ficará em primeiro plano.

vbMsgBoxRight 524288 Alinha o texto à direita.

vbMsgBoxRtlReading 1048576 Especifica que o texto deve aparecer como leitura da direita para a esquerda em sistemas hebraico e árabe,




Função MsgBox Buttons: suas opções de argumento podem ser divididas em quadro grupos:

1. O primeiro grupo determina os botões que serão exibidos na caixa de diálogo.

2. O segundo grupo descreve o estilo do ícone que será exibido na caixa de diálogo.

3. O terceiro grupo determina qual o botão é o padrão.

4. O quarto grupo determina a modalidade da caixa de diálogo.

*Insira apenas uma opção de cada grupo no argumento Buttons.




Função MsgBox Exemplo: Mensagem de Informação

1. MsgBox (“Erro ao cafastrar o produto.”, vbCritical, “Falha”)

Exemplo: Mensagem de Decisão

1. MsgBox (“Erro ao cadastrar o produto.”, vbYesNo + vbDefaultButton2, “Confirmar”)

Constante Valor

vbOK 1

vbCancel 2

vbAbort 3

vbRetry 4

vbIgnore 5

vbYes 6

vbNo 7

Observe que no argumento Buttons foi utilizada duas

opções. Neste caso é utilizado o sinal de adição entre

elas.

Para que uma ação seja executada de acordo com a

escolha feita na caixa de diálogo é preciso saber o valor

de retorno de cada botão.




Função MsgBox Formatação: Quebrando Linhas

1. MsgBox (“O arquivo ainda não foi salvo” & vbCrLf & “Deseja salvá-lo?”, vbYesNo)

Excel VBA: Aula 8

Text of Excel VBA: Aula 8

Excel Macros VBA

VBA em Excel

Microsoft Excel VBA Complete

VBA Excel - Introdução ao VBA no Excel

VBA - Acessando o Access 2007 Com Excel

Curso Excel VBA - Apostila

VBA e Excel I

Excel Avançado VBA

Apostila Microsoft Excel Avançado Com Vba

Macro Excel VBA

Excel VBA: Aula 2

VBA No Excel[1]

Excel Utilizando VBA

Criando macros vba excel 2003

Apostila Programacao VBA e Macros Do Excel

VBA Para Excel

Excel avancado-com-vba(01)

Excel VBA: Aula 3

Apostila vba excel

3867 criando macros vba excel

Apostila Excel VBA Completa PORTUGUES(1)

Tuto Vba Em Excel

VBA Com EXCEL Para Implementação de Algoritmos

Apostila de excel avançado com vba

Apostila Criando Macros Vba Excel

3867_Criando Macros VBA Excel

Trabalhando programação VBA no EXCEL

Excel 2016 com VBA - … · Os objetos mais usados do Excel na programação VBA são Workbook, Worksheet, Sheet, ... Excel Aula 3 –Parte 03 Variáveis e seus tipos. - String -

Excel 2016 com VBA - … · recursos do Excel e do VBA, a fim de otimizar o processamento, ... Macros e VBA - Excel Aula 4 –Parte 03 - ENVIRON –Variáveis de ambiente do S.O

Criar Um Cadastro No Excel Com VBA

Software

Excel VBA: Aula 8

Text of Excel VBA: Aula 8