AULA VII
(Em construção - Aguardando informações)
____________________________________
(Em construção - Aguardando informações)
____________________________________
AULA VIII
Programando em VBA.
Programar além de ser tecnicamente complexo requer muito estudo para se obter bons resultados . Podemos considerar também, uma arte, pois necessita de criatividade.
Existem componentes fundamentais em VBA que devemos nos familiarizar para codificar uma determinada ação em uma planilha, são os objetos que executam ações através de procedimentos.
Por exemplo, queremos uma ação na planilha que, ao selecionar uma determina célula, retorne uma mensagem.
Selecionando a célula A1, vem a mensagem que selecionou a célula A1.
Selecionando a célula A3, vem a mensagem que selecionou a célula A3.
Podemos implementar nosso código, que ao selecionar a célula A5 além de mensagem envie o valor de A5 na célula B1.
Por exemplo, queremos uma ação na planilha que, ao selecionar uma determina célula, retorne uma mensagem.
Selecionando a célula A1, vem a mensagem que selecionou a célula A1.
Selecionando a célula A3, vem a mensagem que selecionou a célula A3.
Podemos implementar nosso código, que ao selecionar a célula A5 além de mensagem envie o valor de A5 na célula B1.
segue o código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if Selection.Cells.Address = “$A$1” then
MsgBox”Você está na Célula ativa “ & Selection.Cells.Address, _ VbInformation,”Exercício Prático”
End If
if Selection.Cells.Address = “$A$3” then
MsgBox”Você está na Célula ativa “ & _ Selection.Cells.Address,VbInformation,”Exercício Prático”
End If
if Selection.Cells.Address = “$A$5” then
MsgBox”Você está na Célula ativa “ & _ Selection.Cells.Address,VbInformation,”Exercício Prático”
[b1]=[a5] 'Aqui a célula B1 recebe o valor de A5
End If
End Sub
Veja onde inserir o código na imagem abaixo:
Neste Link abaixo você acessa aos exercícios referentes aos objetos explicados na Aula VIII.
http://www.4shared.com/file/jwIVFpkX/ModuloVIII.html
_______________________________________________________
AULA IX
Nesta aula veremos algumas outras funções que podem ser utilizadas em nossos códigos. A seguir veja a relação dessas funções e alguns exemplos utilizando as mesmas.
1. Format
2. InStr
3. InStrRev
4. LCase / Ucase
5. Left / Right
6. Len
7. Mid
8. Replace
9. Space
10. String
11. StrConv
12. StrReverse
13. Trim / LTrim / RTrim
1. Format
Tabela de símbolos
Tabela de Constantes de Formatação
_______________________________________________________
AULA IX
Nesta aula veremos algumas outras funções que podem ser utilizadas em nossos códigos. A seguir veja a relação dessas funções e alguns exemplos utilizando as mesmas.
1. Format
2. InStr
3. InStrRev
4. LCase / Ucase
5. Left / Right
6. Len
7. Mid
8. Replace
9. Space
10. String
11. StrConv
12. StrReverse
13. Trim / LTrim / RTrim
1. Format
Tabela de símbolos
Símbolo | Descrição |
0 | Exibe 0 (zero) ou um número. |
# | Exibe um número ou espaço em branco. |
. | Ponto decimal. No uso dá função a formatação de decimal é com ponto fugindo a nossa regra que separador decimal é com vírgula, mas após aplicada a função vemos com vírgula. |
, | Vírgula. Separador de milhares. (Devido a herança do formato americano US$ 1,250.30 por Exemplo. Apesar que após aplicada a função vemos US$ 1.250,30). |
% | Exibe o número como uma porcentagem. |
: | Separador de horas “hh:mm:ss” ou “hh:mm” ou “hh:ss” ou “mm:ss”. |
/ | Separador de datas. |
@ | Exibe caracteres alfanuméricos ou um espaço em branco. |
< | Converte todas as letras para minúsculo. |
> | Converte todas as letras para maiúsculo. |
Tabela de Constantes de Formatação
Formato | Descrição |
General Number | Número de exibição genérica. |
Currency | Formato moeda. |
Fixed | Mínimo de número à esquerda de um ponto e duas casas decimais. |
Standard | Formato padrão. |
Percent | Exibe um número como porcentagem. |
Scientific | Notação científica. |
Yes/No | Formato para dados booleanos. |
Alguns exemplos que podem ser testados numa planilha, coloque em um evento Worksheet_SelectionChange
'Evitando erro por divisão
if [b2]<> 0 then
[c2] = [a2]/[b2]
'formata o retorno em C2 com duas casas decimais
[c2] = format([c2],"0.00")
'Usando constante
'Veja que é o mesmo retorno
'Veja que é o mesmo retorno
[c3] = Format([c2], "Fixed")
end if