Detalhes de vba alerta beep alarme dispara dez vezes

PropriedadeValor
Nome:vba alerta beep alarme dispara dez vezes
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

Nome do arquivo:vba alerta beep alarme dispara dez vezes.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 10/02/2011 20:52
Visitas:Todos
Responsavel:Autor
Acessos:2244 Acessos
Atualizado em: 10/02/2011 20:53
Site: