Jump to content

Alarma segun hora indicada


Recommended Posts

Hola podrian ayudarme a crear una alarma en la pantalla con sonido el cual me indique un mensaje en el que hay que hacer "cambios de parametros" y que si no le doy aceptar no deje de salir dicha alarma. La hora va a estar indicada en la celda A1 y la otra en la celda A2.

mensaje.xls

Link to comment
Share on other sites

ve esto

Private Declare Function mciExecute Lib "winmm.dll" (ByVal Comando As String) As Long

Sub mostrar()

If Range("w7").Value <> "Valor que quieras" Then

mciExecute "Play " & "C:\windows\media\tada.wav"

MsgBox "Ya son las " & Time() & "y no se ha modificado el sistema"

Else

End

End If

End Sub

Esto reproduce un sonido y muestra un aviso si en w7 no esta el Valor que quieras

Ahora en el objeto ThisWorkbook pega este código:

Private Sub Workbook_Open()

Application.OnTime TimeValue("08:00:00"), "mostrar"

End Sub

hace que el código anterior se corra a las 08:00:00.

***********

por si quieres un archivo de mp3

Declare Function mciExecute Lib "winmm.dll" (ByVal Comando As String) As Long

Public archivomp3 As String

Sub Stopmp3()

mciExecute "Stop " & archivomp3

End Sub

Sub Playmp3()

archivomp3 = "c:\archivo.mp3"

mciExecute "Play " & archivomp3

End Sub

^^^^^^^^^^^^^^^

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/cerrado-programar-alarma-sonido-3517/

saludos

Alarma.xls

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy