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.

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

Download da planilha

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.

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

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:

- 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

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 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

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…

Clique em rótulo…

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!!!