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