Saberexcel - o site das macros
Macros do Aplicativo Microsoft Excel VBA, referenciando a células de vários modos, e didáticamente vamos fazer umas operações matemáticas com os alguns valores. No exemplo de planilha usei formatação condicional também com o sentido didático, para ajudar a quem precisa,
que foi objeto de busca em nosso site. Baixe o exemplo de planilha no final desta página.
Espero que o exemplo possa ajudá-los. Fique com Deus, Boa sorte.

Sub Exercicio_I()
exercicio_1 'usamos para ocultar o shapes na folha de planilha
x = Workbooks.Item(1).Worksheets.Item("Plan1").Range("D6")
Z = Workbooks.Item(1).Worksheets.Item("Plan1").Range("H6")
y = x * Z
Workbooks.Item(1).Worksheets.Item("Plan1").Range("F1") = y / 2
Workbooks.Item(1).Worksheets.Item("Plan1").Range("D9") = "Multiplicando celula(D6) pela Celula(H6) dividindo por 2, retornando resultado na célula(F1)"
End Sub

Sub Exercicio_II()
exercicio_2 'usamos para ocultar o shapes na folha de planilha
x = Range("D6")
Z = Range("H6")
y = x * Z
Range("F1") = y
Range("D9").Value = "Multiplicando celula(D6) pela Celula(H6) retornando resultado na célula(F1)"
End Sub

Sub Exercicio_III()
exercicio_3 'usamos para ocultar o shapes na folha de planilha
x = [D6]
Z = [H6]
A = [A1]
y = x * Z + A
[F1] = y
[D9].Value = "Multiplica a célula(D6) pela Celula(H6) e soma com o valor da célula(A1)"
End Sub

'nomeando as células e calculando valores a partir de váriaveis
Sub Exercicio_IV()
exercicio_4 ''usamos para ocultar o shapes na folha de planilha
x = [dado1] ' célula D6 nomeada como dados1
Z = [dado2] ' célula H6 nomeada como dados2
y = (x * Z) / 4 'multiplicando e dividindo por 4
[dado3] = y ' célula F1 nomeada como dados3
[D9].Value = "Multiplicando range nomeadas dados1 pela dados2 e dividindo por quatro"
End Sub

Sub Exercicio_V()
exercicio_5 'usamos para ocultar o shapes na folha de planilha
Cells(1, 1).Select 'referencia a célula(A1)

x = ActiveCell.Offset(5, 3).Value ' range.propriedade offset(desloc) para item D6
Z = ActiveCell.Offset(5, 7).Value ' range.propriedade offset(desloc) para item H6

ActiveCell.Offset(0, 5).Value = (x * Z) / 4 'range.propriedade offset(desloc) para item f1 resultado da multiplicação e divisao
[D9].Value = "Usando a range.propriedade OffSet(Desloc) para referenciar as celulas D6,H6,F1"
End Sub

Sub Oculta_Shapes()
For i = 1 To 60
On Error Resume Next
With ActiveSheet
.Shapes("txt" & i).Visible = False
End With
Next
[A1].Select
End Sub

Sub exercicio_1()
Oculta_Shapes
Saber1.Shapes("txt1").Visible = True
End Sub

Sub exercicio_2()
Oculta_Shapes
Saber1.Shapes("txt2").Visible = True
End Sub

Sub exercicio_3()
Oculta_Shapes
Saber1.Shapes("txt3").Visible = True
End Sub

Sub exercicio_4()
Oculta_Shapes
Saber1.Shapes("txt4").Visible = True
End Sub
Sub exercicio_5()
Oculta_Shapes
Saber1.Shapes("txt5").Visible = True
End Sub

Sub ver_macros_modulo_vbe()
Dim resposta As String
resposta = MsgBox("Deseja visualizar macros no módulo VBE?", vbYesNo, "Saberexcel - site das macros")
If resposta = 6 Then '6 é igual a vbyes
Application.Goto reference:="Exercicio_I"
End If
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel




Publicidade:
Compre com garantia, segurança e ótimos preços nas lojas SubMarino

SaberExcel - o site das Macros

Esta macro do Aplicativo Microsoft Excel VBA, localiza a linha da última célula usada, e retrona uma msgbox,
na coluna A a partir da celula A1.

Excel VBA Estudos® >> www.saberexcel.com >> Escola de Informática



Sub Ultima_linha_celula()
Dim vlCelBusca As Long
On Error Resume Next
'Essas linhas comentadas abaixo você poderá usar como um ["Verfica Inconsistência"] se tal célula estiver vazia msgbox e sai da macro.
'If Sheets("Plan2").Cells(1, 1) = "" Then
' MsgBox ("É so digitar algo na Coluna A, Blz!"), vbInformation, "Saberexcel.com"
' Encontrar a última linha, que forneceu um texto ou valor.
' faz a busca aqui...
' Exit Sub
'Else
vlCelBusca = Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
MsgBox "A Linha ULTIMA CELULA usada esta na linha é : " & vlCelBusca, vbInformation, "Saberexcel.com"
Sheets("Plan2").Cells(2, 3) = "A Linha ULTIMA CELULA usada esta na linha : - " & vlCelBusca
'End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel

Saberexcel_site_das_macros
Essas macros e procedimentos do Aplicativo Microsoft Excel VBA, auxliada por um procedimento inserido na folha de código da folha de planilha usando Evento Worksheet_Change(ao digitar), ao digitar determinado número na Célula(B5) a Instrução Select Case chama uma determinada macro correspondente ao número digitado. Observe que voce poderá usar para outras aplicações, podendo chamar outro tipo de macro.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B5]) Is Nothing And Target.Count = 1 Then
Select Case Target.Value
Case 1
ir_AA1
Case 2
ir_BX2005
Case 3
ir_CJ45000
Case 4
ir_DK32265
Case 5
ir_FY60000
Case 6
ir_GB12100
Case 7
ir_HR2100
Case 8
ir_GP16790
Case 9
ir_IV65436
Case Else
Exit Sub
End Select
End If
End Sub

ir_AA1
Application.Goto Reference:=Worksheets("Plan1").Range("A154"), Scroll:=True
se desejar ir para outra planilha
Sub voltar()
Application.Goto Reference:=Worksheets("Plan1").Range("A1"), Scroll:=True
' se desejar ir para outra planilha
End Sub

Sub ir_AA1() '1
Application.Goto Reference:=Worksheets("Plan2").Range("AA1000"), Scroll:=True
MsgBox "Aqui insira o código referente area " & Worksheets("Plan1").Range("b5").Value
End Sub

Sub ir_BX2005() '2
Application.Goto Reference:=[BX2005], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_CJ45000() '3
Application.Goto Reference:=[CJ45000], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_DK32265() '4
Application.Goto Reference:=[DK32265], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_FY60000() '5
Application.Goto Reference:=[FY60000], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_GB12100() '6
Application.Goto Reference:=[GB12100], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_HR2100() '7
Application.Goto Reference:=[HR2100], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_GP16790() '8
Application.Goto Reference:=[GP16790], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Sub ir_IV65436() '9
Application.Goto Reference:=[IV65436], Scroll:=True
MsgBox "Aqui insira o código referente area " & Range("B5").Value
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Saberexcel - o site das macros
Essse exemplo do Aplicativo Microsoft Excel VBA, contém macro que utilizando da Instrução Select Case, seleciona determinada células na folha de planilha e em seguida abre uma caixa de diálogo, (existem centenas de caixas de diálogo), e insere nas Células[C3] e [C4], o número do botão que foi executado como também a célula que foi selecionada pela instrução Select Case . Detalhe, observe que todos os shapes(Autoformas) que representam os botões , botão1, botão2, foram antecipadamente renomeados observem na caixa de nome.


Option Explicit

Sub Seleciona_celula_mostra_FC()
Select Case Application.Caller
Case "botao1"
Range("A2").Select
[C3].Value = "Voce Acionou o Botão 1"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao2"
Range("D2").Select
[C3].Value = "Voce Acionou o Botão [2]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao3"
Range("F2").Select
[C3].Value = "Voce Acionou o Botão [3]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao4"
Range("A2").Select
[C3].Value = "Voce Acionou o Botão [4] "
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao5"
Range("D2").Select
[C3].Value = "Voce Acionou o Botão [5]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao6"
Range("E2").Select
[C3].Value = "Voce Acionou o Botão [6]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao7"
Range("F2").Select
[C3].Value = "Voce Acionou o Botão [7]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao8"
Range("G2").Select
End Select
Application.Dialogs(xlDialogConditionalFormatting).Show
End Sub

Aprenda tudo sobre o Aplicativo Microsoft VBA com SaberExcel

Essas macros do Aplicativo Microsoft Excel VBA, desloca células à direita e ou a esquerda usando a propriedade OffSetEssa macro descola duas linhas acima da célula ativa observe que usamos duas variáveis para referenciar a posição das linhas e ou colunas.
Observe usaremos os nomes para variaveis 'Linha' e 'Coluna'
E se usassemos um nome qualquer para a variável como "jilo" e "jurubeba", tanto faz, pode escolher qualquer nome, desde que não seja nomes que entrem em conflito com o escopo do Visual Basic, ex: if, set, then, etc..

Sub variavel_selecionar_celulas()
On Error GoTo fim:
Linha = -2
Coluna = 0
ActiveCell.Offset(Linha, Coluna).Select

mostrar_texto1
[D17].Value = "Propriedade OffSet desloca 2 células acima"
[D18].Value = ""
Exit Sub
fim: MsgBox ("chegou no limite, nao há como Deslocar mais!!!"), vbInformation, "saberexcel - o site das macros"
End Sub

'observe que Jurubeba representa as linhas e gilo as colunas.
Sub variavel_vegetal()
On Error GoTo fim:
Jurubeba = -2
Jilo = 0
ActiveCell.Offset(Jurubeba, Jilo).Select

mostrar_texto2
[D17].Value = "Veja que é a mesma macro, desloca duas células acima, mas eu nomeei essa variavel, "
[D18].Value = "como Jurubeba e Jilo, para você perceber que variável pode ter um nome qualquer"
Exit Sub 'aqui inserimos exit sub, se houver espaço sai da macro, senão vai para o erro diretamente
fim: MsgBox ("chegou no limite, nao há como Deslocar mais!!!"), vbInformation, "saberexcel - o site das macros"
End Sub

'e se caso eu invertesse a posição das variáveis,
'dentro do parentese, observe que Jilo ficou reprensentando
'as linhas e jurubeba as colunas
'porque: veja Activecell.Offset(Linha, Coluna).select

Sub variavel_vegetal_II()
On Error GoTo fim: ' se caso voce for executando até estorar o limite(coluna(A))
Jurubeba = -2
Jilo = 0
ActiveCell.Offset(Jilo, Jurubeba).Select

mostrar_texto3
[D17].Value = "veja que inverti, a ordem de linha e coluna, observe a ação do da propriedade offset(desloc) "
[D18].Value = "Vai deslocar duas células a esquerda"
Exit Sub 'aqui inserimos exit sub, se houver espaço sai da macro, senão vai para o erro diretamente
fim: MsgBox ("chegou no limite, nao há como Deslocar mais!!!"), vbInformation, "saberexcel - o site das macros"
End Sub

Aprenda tudo sobre Microsoft Excel VBA - com Saberexcel