A função DataDif é usada para calcular a diferença entre duas datas.
No exemplo a seguir é calculada a diferença entre a data da célula “B1″ e “B2″
selecione a célula “B3″ e digite:
=DATADIF(B1;B2;”Y”)& ” Anos “&DATADIF(B1;B2;”YM”)&” Meses e “&DATADIF(B1;B2;”MD”)&” Dias”
“&” são operadores de concatenação.
Option Explicit
Dim FLAG As Boolean
Public Sub Worksheet_Change(ByVal Target As Range)
‘Função para entrar converter letras minusculas em maiusculas
Dim MaiscStr As String, C1, C2
Select Case Target.Cells.Count
Case Is > 1
For Each C1 In Range(Target.Address)
For Each C2 In Range(“A1:A10″) ‘Intervalo pode ser alterado
If C1.Address = C2.Address Then
If FLAG Then
MsgBox FLAG
Selection.Delete
FLAG = Not FLAG
Exit Sub
End If
MsgBox “Não é permitido arrastar e/ou ” & _
“selecionar” & vbCr & “várias células ” & _
“Neste intervalo.”, vbInformation, “Aviso”
Desfaz
Exit Sub
End If
Next C2
Next C1
Exit Sub
Case Else
If Application.Intersect(Range(Target.Address), _
Range(“A1:A10″)) Is Nothing Or _
Target.Value = “” Then Exit Sub ‘ o intervalo pode ser alterado
End Select
With Target
If .HasFormula = False Then
MaiscStr = UCase(.Value)
Application.EnableEvents = False
.Value = (MaiscStr)
End If
End With
Application.EnableEvents = True
End Sub
Sub Desfaz()
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub
Os operadores de concatenação são usados para estabelecer uma conexão entre duas expressões.
Operador &
Usado para forçar a concatenação de seqüências de caracteres de duas expressões.
Sintaxe
result = expression1 & expression2
Também é possivel usar o operador + para concatenar duas expressões, porém não é recomendado, pois o resultado pode ser uma soma e não uma concatenação.
Os operadores de comparação são usados para comparar expressões.
Sintaxe:
result = expression1 <operador de comparação> expression2
result = object1 Is object2
result = string Like pattern
< (Menor que) expression1 < expression2 expression1 >= expression2 expression1 ou expression2 = Null
<= (Menor que ou igual a) expression1 <= expression2 expression1 > expression2 expression1 ou expression2 = Null
> (Maior que) expression1 > expression2 expression1 <= expression2 expression1 ou expression2 = Null
>= (Maior que ou igual a) expression1 >= expression2 expression1 < expression2 expression1 ou expression2 = Null
= (Igual a) expression1 = expression2 expression1 <> expression2 expression1 ou expression2 = Null
<> (Não igual a) expression1 <> expression2 expression1 = expression2 expression1 ou expression2 = Null
Operador Is
Usado para comparar duas variáveis de referência a objeto.Sintaxe
result = object1 Is object2
Operador Like
Usado para comparar duas seqüências de caracteres.Sintaxe
result = string Like pattern
Os operadores lógicos são usados em cálculos matemáticos.
Operador ^
Usado para elevar um número à potência de um expoente.
Sintaxe
result = number^exponent
Operador *
Usado para multiplicar dois números.
Sintaxe
result = number1*number2
Operador /
Usado para dividir dois números e retornar um resultado de ponto flutuante.
Sintaxe
result = number1/number2
Operador \
Usado para dividir dois números e retornar um resultado inteiro.
Sintaxe
result = number1\number2
Operador Mod
Usado para dividir dois números e retornar somente o resto.
Sintaxe
result = number1 Mod number2
Operador +
Usado para adicionar dois números.
Sintaxe
result = expression1+expression2
Operador -
Usado para encontrar a diferença entre dois números ou para indicar o valor negativo em uma expressão numérica.
Sintaxe 1
result = number1–number2
Os operadores lógicos são usados para efetuar opereções lógicas.
Os operadores lógicos são:
- Operador And - Usado para efetuar uma conjunção lógica em duas expressões.
- Operador Eqv – Usado para efetuar uma equivalência lógica em duas expressões.
- Operador Imp – Usado para efetuar uma implicação lógica em duas expressões.
- Operador Not - Usado para efetuar uma negação lógica em uma expressão.
- Operador Or – Usado para efetuar uma disjunção lógica em duas expressões.
- Operador Xor – Usado para efetuar uma exclusão lógica em duas expressões.
cuja sintese é:
result = expression1 <operador> expression2
As constantes podem ser usadas em qualquer lugar da aplicação no lugar dos valores reais, elas servem para simplificar a programação.
Utilize a instrução Const para declarar uma constante e definir o seu valor. Depois que uma constante tiver sido declarada, não será possível modificá-la ou atribuir-lhe um novo valor.
As constantes podem ser declaradas como um destes tipos de dados: Boolean, Byte, Integer, Long, Currency, Single, Double, Date, String ou Variant.
O Excel vem com inúmeras constantes pré-definidas que são:
Constantes Calendar
Constantes CallType
Constantes Color
Constantes Comparison
Constantes Compiler
Constantes Date
Constantes Date Format
Constantes Dir, GetAttr e SetAttr
Constantes DriveType
Constantes File Attribute
Constantes File Input/Output
Constantes Form
Constantes IMEStatus
Constantes Keycode
Constantes Miscellaneous
Constantes MsgBox
Constantes QueryClose
Constantes Shell
Constantes SpecialFolder
Constantes StrConv
Constantes System Color
Constantes Tristate
Constantes VarType
Exemplo de constantes de msgbox:
Constante Valor Descrição
VbOK 1 Botão OK pressionado
Vá no ambiente VBA, insira um userform e um commandbutton
Acesse o ambiente de código e declare a constante “exemplo”:
Const Exemplo= “55″
Repare que o valor atribuido à constante é 55
agora vá no evento click do commandbutton e digite:
Dim soma As Integer
soma = exemplo + 5
MsgBox soma, vbCritical, teste
Dentro da fução msgbox temos duas constantes: Exemplo e vbcritical.
A constante Exemplo foi definida por você e a constante vbcritical é pré-definida.
Const exemplo = “55″
Private Sub CommandButton1_Click()
Dim soma As Integer
soma = exemplo + 5
MsgBox soma, vbCritical, teste
End Sub
Compile a aplicação e clique no botão, ele executará a soma da constante com + 5, que foi o valor que escolhemos.
As sub-rotinas são espaços reservados para escrever e executar blocos de códigos.
As sub-rotinas tem a seguinte estrutura:
Sub exemplo ( )
linhas de códigos….
End Sub
As sub-rotinas sempre começam com o demarcador Sub e terminam com o demarcador End sub.
Para escrever comentários usa-se o símbolo apóstrofo :
‘comentarios....
Para criar uma nova sub rotina, sem macro, devemos dentro do ambiente VBA ir em:
inserir > procedimento > Sub
Escolha o nome da sua sub-rotina e clique em OK.
Public Sub exemplo( )
End Sub
O user form é muito útil para quem trabalha com excel. A maioria dos usúarios do excel desconhecem esse recurso, ou acham muito complicado. O VBA ( visual basic for applications ) é uma tecnologia que possibilita tornar o excel muito mais que um gerador de planilhas.
Para acessar o visual basic vá na aba desenvolvedor e clique em “visual basic”…
ou aperte Alt+ F11…
Vai aparecer essa tela:
Clique em inserir > userform:
Essa é a caixa de ferramentas:
Passe o mouse em cima de cada um e aparecerá o nome de cada controle.
Vamos fazer um simples aplicativo:
vá na caixa de ferramentas…
Depois clique no userform..
Vá em exibir > janela ‘propriedades’….
Vá em caption e renomeio o rótulo (label) para Nome
Agora vá na caixa de ferramentas e insira uma caixa de texto e um commandbutton…
Vá na janela propriedades- caption – e renomeie o botão para “OK”
de dois cliques no botão…
Aparecerá o console para você digitar as linhas de código…
Repare que todo código é ligado a um controle e um evento…
Nesse caso o controle é o commandbutton e o envento é click, ou seja, ao clicar no botão determinado evento irá acontecer. Esse evento será o código que você vai escrever…
Vamos escrever nosso código…
Na sub rotina “CommandButton1_Click()” digite:
If TextBox1.Text = “teste” Then
MsgBox (“Teste realizado com sucesso!!!”)
Else
MsgBox (“texto diferente de teste”)
End If
agora compile o form ….
Pronto!!!
Tema: Rubric. Blog no WordPress.com.
