Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 18/11/2010 |
Modificado em: | 18/11/2010 |
Tamanho: | Vazio |
Downloads: | 1045 |
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
Adicionado em: | 18/11/2010 |
Modificado em: | 18/11/2010 |
Tamanho: | Vazio |
Downloads: | 944 |
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
Adicionado em: | 18/11/2010 |
Modificado em: | 18/11/2010 |
Tamanho: | Vazio |
Downloads: | 822 |
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
Adicionado em: | 18/11/2010 |
Modificado em: | 18/11/2010 |
Tamanho: | Vazio |
Downloads: | 646 |
Esse procediemento e macros do Aplicativo Microsoft Excel VBA, chamam uma determinada macro quando seleciona uma célula específica na folha de planilha, observe que o evento selection change foi usado, (ao selecionar)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address() = "$D$12" Then Minha_Macro1
If ActiveCell.Address() = "$D$15" Then Minha_Macro2
If ActiveCell.Address() = "$D$18" Then Minha_Macro3
If ActiveCell.Address() = "$I$12" Then ver_codigo
If ActiveCell.Address() = "$K$2" Then ocultar_codigo
End Sub
Sub Minha_Macro1()
MsgBox ("Esta macro chama a Macro Minha_Macro1"), vbInformation, "Saberexcel.com - Minha_Macro1"
End Sub
Sub Minha_Macro2()
MsgBox "Esta celula chama a macro Minha_Macro2!", vbExclamation, "Excel VBA Estudos® - Minha_Macro2"
End Sub
Sub Minha_Macro3()
MsgBox "Minha_Macro3 é chamada ao selecionar a celula C18", vbInformation, "Saberexcel.com - Minha_Macro3"
End Sub
Sub ver_codigo()
Sheets("Plan1").Shapes("cod").Visible = True
End Sub
Sub ocultar_codigo()
If Sheets("Plan1").Shapes("cod").Visible = False Then
MsgBox "Shapes oculto - tem que torná-lo visível primeiro!", vbCritical, "Saberexcel.com"
Else
Sheets("Plan1").Shapes("cod").Visible = False
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Adicionado em: | 18/11/2010 |
Modificado em: | 18/11/2010 |
Tamanho: | Vazio |
Downloads: | 995 |
Saberexcel - o Site das Macros
Esse procedimento do Aplicativo Microsoft Excel VBA, retorna uma mensagem ao digitar alguma coisa na célula($K$2"), observe que a segunda condição, foi criada, para que não dispare a mensagem no caso do usuário ativar a célula e não diigtar nada. Você poderá no lugar da mensagem chamar qualquer macro que desejar. Espero tê-los ajudado - Fiquem com Deus, obrigado pela visita - E_Marcondes.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$K$2" Then
If Target.Value <> "" Then MsgBox "Aprender VBA - com Saberexcel ", , "Excel VBA Estudos®"
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com SaberExcel
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA