Saberexcel - o site das macros
Estas macros do Aplicativo Microsoft Excel VBA, insere intermitência(piscando) na célula A1 e A8, ao encerrar a execução da macro, retira a formatação inserida, observe as macros abaixo, os loops foram programados para piscar 5(cinco) vezes, voce poderá alterá-los.


Dim NextTime As Date 'referente a ultima macro parar...

Sub Intermitente_Celula()
Range("A1").Select

For compteur = 1 To 5
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 2
End With
Application.Wait Now + TimeValue("00:00:01")

Application.Wait Now + (TimeValue("00:00:01")) / 2

With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 0
End With
Application.Wait Now + TimeValue("00:00:01")
Next
Range("A1").ClearFormats
End Sub


Sub cor_letra_interminte() ' essa macro inserirá intermitência na celula A8
Dim nCarac, corAnt, corNovab, corNovac, corNovad
nCarac = Range("A8").Characters.Count
corAnt = Range("A8").Characters.Font.ColorIndex
corNovab = 55
corNovac = 6
corNovad = 12
For a = 0 To 15
For b = 1 To nCarac
Range("A8").Characters(Start:=b, Length:=1).Font.ColorIndex = corNovab
Next b
For c = 1 To nCarac
Range("A8").Characters(Start:=c, Length:=1).Font.ColorIndex = corNovac
Next c
For d = 1 To nCarac
Range("A8").Characters(Start:=d, Length:=1).Font.ColorIndex = corNovad
Next d
For e = 1 To nCarac
Range("A8").Characters(Start:=e, Length:=1).Font.ColorIndex = corAnt
Next e
Next a
End Sub

Macros abaixo trabalhando junsta, Parar chama a normal
Esta macro com condição if(se) -- se a cor for preta fica vermelha intermitente
Sub Normal()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Normal").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Normal"
End Sub

Sub Parar()
On Error Resume Next
Application.OnTime NextTime, "Normal", schedule:=False
'Application.OnTime chamar, "Normal", , False
ActiveWorkbook.Styles("Normal").Font.ColorIndex = xlAutomatic
End Sub

Sub ver_código()
SendKeys ("%{F11}")
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

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

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

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.




 

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.




.