Acesso Livre - Registrados (REGISTRE-SE!)
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: | 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: | 15/11/2011 |
Modificado em: | 15/11/2011 |
Tamanho: | Vazio |
Downloads: | 980 |
Escola Saberexcel VBA Estudos - o site de quem precisa aprender macros microsoft excel VBA
Esse macro do Aplicativo Microsoft Excel VBA, seleciona determinada célula, seleciona e desloca uma coluna. Esse tipo de código para deslocar, selecionar, celulas, colunas e linhas,
é o menos conhecido portanto pouco usado, mas é de grande performance e precisão. Espero que gostem do exemplo. Abaixo fiz um exemplo de folha de planilha para ajudá-los.
Não deixe de ver o meu trabalho sobre (Como deslocar e ou selecionar, linhas, colunas e células em qualquer direção e também qualquer folha de planilha), matéria de extrema necessidade de conhecimento para quem deseja aprender programar.
Espero que gostem do Exemplo. Fiquem com Deus, Expedito Marcondes.
' - - - - - - - - - - - - - - - - - - - - - - - - -
'maneira pouco usada.
'na mesma linha selecionando a célula A500
Sub sbx1_seleciona_celula_a500()
sba_mostrar_macro_1
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(1)(1).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca uma coluna a esquerda
'deslocando uma linha abaixo e selecionando a célula A501
Sub sbx2_seleciona_celula_A501()
sba_mostrar_macro_2
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(1)(2).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca uma coluna a esquerda
'deslocando duas linha abaixo e selecionando a célula A502
Sub sbx3_seleciona_celula_A502()
sba_mostrar_macro_3
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(1)(3).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca uma coluna a esquerda
'deslocando duas linha abaixo e selecionando a célula A503
Sub sbx4_seleciona_celula_A503()
sba_mostrar_macro_4
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(1)(4).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca para última coluna na linha 500
Sub sbx5_seleciona_ultima_coluna_linha_500()
sba_mostrar_macro_5
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(2)(1).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca para última coluna
'e também desloca uma linha abaixo na linha 501
Sub sbx6_seleciona_ultima_coluna_linha_501()
sba_mostrar_macro_6
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(2)(2).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca para última coluna
'e também desloca duas linha abaixo na linha 502
Sub sbx7_seleciona_ultima_coluna_linha502()
sba_mostrar_macro_7
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(2)(3).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro desloca para última coluna
'e também desloca duas linha abaixo na linha 503
Sub sbx8_seleciona_ultima_coluna_linha503()
sba_mostrar_macro_8
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(2)(4).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a ultima célula na coluna(B)
Sub sbx9_seleciona_ultima_celula_usada_colB()
sba_mostrar_macro_9
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(3)(1).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a proxima célula em branco coluna(B) --depois da última celula usada
Sub sbx10_seleciona_ultima_proxima_vazia_colB()
sba_mostrar_macro_10
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(3)(2).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a segunda célula em branco coluna(B) -depois da última celula usada
Sub sbx11_seleciona_segunda_em_branco()
sba_mostrar_macro_11
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(3)(3).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a terceira célula em branco coluna(B) -depois da última celula usada
Sub sbx12_seleciona_terceira_em_branco()
sba_mostrar_macro_12
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(3)(4).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a quarta célula em branco coluna(B) -depois da última celula usada
Sub sbx13_seleciona_quarta_em_branco()
sba_mostrar_macro_13
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(3)(5).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a quinta célula em branco coluna(B) -depois da última celula usada
Sub sbx14_seleciona_quinta_em_branco()
sba_mostrar_macro_14
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(3)(6).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Esse macro seleciona a última celula coluna(B)
Sub sbx15_seleciona_ultima_celula_colB()
sba_mostrar_macro_15
MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
[B500].End(4)(1).Select
MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
[c1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -
VEJA BEM, caso voce interesse pelo modo com que mostrei as imagens das mensagem e macros (shapes) na folha de planilha, abaixo os macros que usei,
uso bastante esse macro em minhas lições para mostrar os passos desejeados e outras aplicações interessantes.
Espero que gostem do exemplo
' - - - - - - - - - - - - - - - - - - - - - - - - -
'Ocultará todos os shapes que inicia-se com o nome txt, ex: txt1,txt,2,.......
Sub Oculta_Shapes()
For i = 1 To 60
On Error Resume Next
With ActiveSheet
.Shapes("texto" & i).Visible = False
.Shapes("saber" & i).Visible = False
End With
Next
[A1].Select
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_1()
Oculta_Shapes
Saber1.Shapes("saber1").Visible = True
Saber1.Shapes("texto1").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_2()
Oculta_Shapes
Saber1.Shapes("saber2").Visible = True
Saber1.Shapes("texto2").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_3()
Oculta_Shapes
Saber1.Shapes("saber3").Visible = True
Saber1.Shapes("texto3").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_4()
Oculta_Shapes
Saber1.Shapes("saber4").Visible = True
Saber1.Shapes("texto4").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_5()
Oculta_Shapes
Saber1.Shapes("saber5").Visible = True
Saber1.Shapes("texto5").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_6()
Oculta_Shapes
Saber1.Shapes("saber6").Visible = True
Saber1.Shapes("texto6").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_7()
Oculta_Shapes
Saber1.Shapes("saber7").Visible = True
Saber1.Shapes("texto7").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_8()
Oculta_Shapes
Saber1.Shapes("saber8").Visible = True
Saber1.Shapes("texto8").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_9()
Oculta_Shapes
Saber1.Shapes("saber9").Visible = True
Saber1.Shapes("texto9").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_10()
Oculta_Shapes
Saber1.Shapes("saber10").Visible = True
Saber1.Shapes("texto10").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_11()
Oculta_Shapes
Saber1.Shapes("saber11").Visible = True
Saber1.Shapes("texto11").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_12()
Oculta_Shapes
Saber1.Shapes("saber12").Visible = True
Saber1.Shapes("texto12").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_13()
Oculta_Shapes
Saber1.Shapes("saber13").Visible = True
Saber1.Shapes("texto13").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_14()
Oculta_Shapes
Saber1.Shapes("saber14").Visible = True
Saber1.Shapes("texto14").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sba_mostrar_macro_15()
Oculta_Shapes
Saber1.Shapes("saber15").Visible = True
Saber1.Shapes("texto15").Visible = True
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - -'
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
.
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
Adicionado em: | 20/10/2011 |
Modificado em: | 20/10/2011 |
Tamanho: | Vazio |
Downloads: | 995 |
Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA
Esses macros do Aplicativo Microsoft Excel VBA, deletam determinados intervalos de células renomeadas na folha de planilha, aqui neste exemplo usaremos as folhas de planilhas como meses "Janeiro", "Fevereiro", "Março", "Abril", os macros deletarão todos dados de todas as folhas de planilhas
e também copiará os dados das folhas de planilhas para os Range Nomeados Correspondentes.
Sub sbx_deletar_todos_dados()
Dim Resposta As String
Resposta = MsgBox("Deseja apagar todas as folhas de planilhas", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = 6 Then
sbJan.[sbx_jan].Clear 'observem que estou trabalhando somente com intervalo de células renomeados.
sbFev.[sbx_fev].Clear
sbMar.[sbx_mar].Clear
sbMar.[sbx_abr].Clear
MsgBox ("Todas as folhas de planilhas foram apagadas"), vbInformation, "Saberexcel - o site das macros"
Else
MsgBox ("você cancelou a operação"), vbInformation, "Saberexcel - o site das macros"
End If
sbJan.Select
End Sub
Sub sbx_copiar_para_teste()
Dim Resposta As String
Resposta = MsgBox("Deseja copiar todos os dados para todas as folhas de planilhas", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = 6 Then
[Jan].Copy [j] 'observe que estamos trabalhando com intervalo de células renomeados.
[Fev].Copy [f]
[Mar].Copy [m]
[Abr].Copy [a]
Else
MsgBox ("você cancelou a operação"), vbInformation, "Saberexcel - o site das macros"
End If
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
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