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