Saberexcel - o Site das Macros
Essa macro do Aplicativo Microsoft Excel Excel VBA(Visual Basic Application), dispara um alarme após aproximadamente 3 segundos, preenchendo uma lista pausamente com o número determinado pelo contador (loop) no código.
Observe que usei a propriedade OffSet(Desloc) para deslocar os dados uma coluna a direita>
Essa propriedade OffSet(DESLOC) é muito importante no aprendizado Microsoft Excel VBA(Visual Basic Application).
Não deixe de ler sobre nosso MODULO - COMO FAZER PROGRAMAÇÃO MS EXCEL VBA - Trabalhando com a propriedade OffSet,
COMO FAZER - relação dos módulos como fazer programação ms excel vba
'por um beep faz um alerta por 10 vezes
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
End Sub
'essa rotina é para fazers o shapes piscar, caso queira ver veja o exemplo, observe que atribui ao argumento número de intermitencias(Piscadas)
'10 veja acima
Sub Piscar_Shapes(s, nb)
n = 0
Do While n < nb
PARA ACESSAR O EXEMPLO COMPLETO E DONWLOAD - FAÇA O LOGIN OU (REGISTRE-SE!)
Acesso Livre - Registrados (REGISTRE-SE!)
n = n + 1
Loop
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, praticando com os produtos didáticos SaberExcel
Acesso Livre - Registrados (REGISTRE-SE!) 
Baixe o exemplo de planilha contendo os procedimentos acima
Excel vba beep contador dispara dez vezes pausa (26.02 KB 2011-03-08 10:38:18)