Excel - macro para crear mensajes de alerta

Option Explicit

Sub Workbook_Open()

    Menu.Show

End Sub

Option Explicit

Sub Tiempo()

    ' --- Mediante esta instruccion "llamamos" a "Actualizarreloj" para volver a _

             actualzizar el Label con la hora

    Application.OnTime Now + TimeValue("00:00:01"), _

                Procedure:="Actualizarreloj", _

                Schedule:=True

End Sub

Sub Actualizarreloj()

    ' --- Coloca la hora en el Label del UserForm

    [A1] = Time

    ' --- "Llama a la rutina que cada 01 segundo "llama" a "Actualizarreloj" _

           para volver a actualzizar el Label con la hora

    Call Tiempo

End Sub

Sub Detener_reloj()

    ' --- Detiene el "OnTime"

    Application.OnTime Now + TimeValue("00:00:01"), _

                Procedure:="Actualizarreloj", _

                Schedule:=False

    ' --- Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _

                      Procedure:="Actualizarreloj", _

                      Schedule:=False

End Sub

Option Explicit

Sub Workbook_Open()

    Tiempo

End Sub

Option Explicit

Sub Tiempo()

    ' --- Mediante esta instruccion "llamamos" a "Actualizarreloj" para volver a _

             actualzizar el Label con la hora

    Application.OnTime Now + TimeValue("00:00:01"), _

                Procedure:="Actualizarreloj", _

                Schedule:=True

End Sub

Sub Actualizarreloj()

    ' --- Coloca la hora en el Label del UserForm

    [A1] = Time

    ' --- "Llama a la rutina que cada 01 segundo "llama" a "Actualizarreloj" _

           para volver a actualzizar el Label con la hora

    Call Tiempo

End Sub

Sub Detener_reloj()

    ' --- Detiene el "OnTime"

    Application.OnTime Now + TimeValue("00:00:01"), _

                Procedure:="Actualizarreloj", _

                Schedule:=False

End Sub

[A1] = Time

Sheets(1).Cells(1, 1) = Time

Sub Actualizarreloj()

    Call Verifico_Alarmas

    ' ---  Llama a la rutina que cada 01 segundo "llama" a "Actualizarreloj" _

           para volver a actualzizar el Label con la hora

    Call Tiempo

End Sub

Option Explicit

Private Declare Function PlaySound Lib "winmm.dll" _

                Alias "PlaySoundA" (ByVal lpszName As String, _

                                    ByVal hModule As Long, _

                                    ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0        '(por defecto) Reproduce el sonido 'sincrónicamente

                            '.  Se interrumpe la ejecución de nuestro código hasta la finalización del sonido!!.

Const SND_ASYNC = &H1       ' Reproduce el sonido 'sincrónicamente'. El código continúa sin 

                            '   necesidad de que el sonido finalice.

Const SND_NODEFAULT = &H2   ' En caso no se encuntre el sonido determinado no reproduciría 

                            '   el sonido por defecto, es decir, no sonaría nada...

Const SND_LOOP = &H8        ' Se reproduce el sonido ininterrumpidamente hasta que se ejecute 

                            '   de nuevo la función.

Const SND_NOSTOP = &H10     ' El sonido no se para antes de reproducir el sonido especificado.

Const SND_APPLICATION = &H80

Const SND_ALIAS = &H10000

Const SND_ALIAS_ID = &H110000

Const SND_FILENAME As Long = &H20000

Const SND_MEMORY = &H4

Const SND_NOWAIT = &H2000

Const SND_PURGE = &H40

Const SND_RESOURCE = &H40004

Sub Beep()

    Call PlaySound("C:\Windows\Media\Tada.wav", SND_ASYNC, SND_ASYNC Or &H20000)

End Sub