| Descricao: |
 Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), dispara um alarme após uns três minutos da execução do macro, para entendermos melhor os disparos usei a propriedade offset e no contador (Loop) direcionei para células na coluna P, a contagem dos beeps de alerta.
Esse artigo tem finalidade didática, atendo a um pedido de um amigo do site, que pediu uma macro para essa finalidade.
No final da execução do código pisca um shapes(autoforma) 10 vezes...
'Exemplo de planilha faz parte do Módulo COMO FAZER - Programação Microsoft Excel VBA_IV
Sub Alarme()
[I8,K8,sbx].ClearContents
Saber1.Shapes("sb").Visible = False
Saber1.Shapes("sby").Visible = False
Beep
vInicio = Now() + TimeSerial(0, 0, 3.9)
Application.Wait vInicio
[P8].Select
For i = 1 To 10
vInicio = Now() + TimeSerial(0, 0, 0.8)
Application.Wait vInicio
Beep
[I8].Value = i
[I8].Offset(0, 2).Value = "[" & i & " ]º. Alarme"
ActiveCell.Value = "[" & i & " ]º. Alarme"
ActiveCell.Offset(0, -1).Value = "u" 'insere a seta, fonte wingdings
ActiveCell.Offset(1, 0).Select
Next i
Saber1.Shapes("sb").Visible = True
Saber1.Shapes("sby").Visible = True
Piscar_Shapes "sb", 10 'pisca shapes (descançar) 10 vezes.
End Sub
Sub Piscar_Shapes(s, nb)
n = 0
Do While n < nb
ActiveSheet.Shapes(s).Visible = False
vFim = Timer + 0.2
Do While Timer < vFim: DoEvents: Loop
ActiveSheet.Shapes(s).Visible = True
vFim = Timer + 0.4
Do While Timer < vFim: DoEvents: Loop
n = n + 1
Loop
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application),sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
|