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



  Baixe o exemplo de planiha contendo os macros acima
vba alerta beep alarme dispara dez vezes (26.02 KB)