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 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.




 

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA, usando o evento ..Open() do módulo de Edição de Códigos do Livro(Workbook), abirá o userform na planiha desejada, observe no código vba que selecionamos a planilha primeiramente e depois mandamos abrir o userform.
Esse Evento Workbook_Open ocorre na abertura (Inicialização) do Livro.



Private Sub Workbook_Open()
Sheets("Plan3").Select
UserForm1.Show
End Sub
'----'

Imagem de como proteger células manualmente, se quiser poderá gravar a macro com os passos de proteção de células.
para o treinamento.

O Aluno(Leandro) solicitou que fizessemos um passo a passo de como proteger células na determinada Folha de Planilha para evitar a
a digitação nas células e ou seleção nestas células protegidas. Fizemos uma imagem (abaixo) desse procedimento) manualmente e também,
via macro, como é um assunto para iniciantes usamos o GM(Gravador de Macros) já logo na explicação, usando o Gravador de Macros e resultou
nesta macro abaixo, que primeiramente desprotege todas as células da planilha, em seguida selecionamos nossas células ou uma área de células,
e marcamos nossas células como bloqueadas, isso significa que somente a nossas células ficaram bloqueadas, neste ponto voce poderá ir
em proteger planilha e selecionar os ítem selecionar células desbloqueadas, isso quer dizer que as células bloqueadas não poderão ser acessadas.
Veja a imagem abaixo. ( observem que o GM(Gravador de Macros) que é o assunto de nosso Curso Completo Microsoft Excel VBA, Saberexcel - Planilhas onteúdo Curso Completo Microsoft Excel Vba (791.91 KB)como Aprender a lidar com o Gravador de Macros(Gravar, depurar um código etc..), que é extremamente importante para aprendizes e ou já quem domina também a linguagem de programação ms excel vba. Expero que o exemplo possa ajudá-los, Fiquem com Deus. Expedito Marcondes

Código gerado pelo GM(Gravador de Macros) - automatizando dados ou formatação em uma folha de planilha
o esforço é fazer os passos no aplicativo corretamente para nao gravar códigos desnecessários.

Sub Macro1()
' Saberexcel_Treinamento VBA - Gravador de Macros
' Saberexcel - o site das macros
On Error Resume Next
'
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("E5,F6,G7,H8,I9,J10,K11,L12,M13,N14,O15,P16,Q17").Select
Range("Q17").Activate

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Selection.Locked = True
Selection.FormulaHidden = False
Range("F10").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Range("D7").Select
Plan2.Select
Range("D18").Select
End Sub

Sub limpar_cell()
ActiveSheet.Unprotect
Cells.Clear
Cells.Locked = True
[G1].Select
End Sub

Sub abrir()
UserForm1.Show
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Publicidade
Compre com segurança, garantia e ótimos preços

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.




.

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