none
Audible notification RRS feed

  • Question

  • Hello. 

    Would anyone be able to tell me how to set an audible notification to go off on a set day in Excel.  

    I am making a chart to remind nurses to give a monthly medication. I would like an audible alarm to go off at 8AM on a set day. But I would need to have the ability to have a change  date box everytime the medication is given so it is not missed the next month

    I am new to Excel and am completely lost

    Thursday, March 16, 2017 8:15 AM

All replies

  • Hi Martyn Smith 1000,

    In advance, sorry for my poor English.

    I can not understand the meaning of an audible alarm to "go off". 
    Which do you mean by "go off", no sound or some sound to be heard? 

    Regards,
    Ashidacchi (Tokyo, Japan)
    Thursday, March 16, 2017 10:21 AM
  • Hi Smith,
    >>I am making a chart to remind nurses to give a monthly medication.
    I'm wodering what's meaning of making a chart,is that mean show a chart?
    Application.OnTime will help you to set an alarm,and Speech.Speak could make it Audible.
    Here is the example.

    Option Explicit
    Public SetTime As Date
    
    Private Sub SetDefaultTime()
    SetTime = "2017-2-17 13:55:00"
    End Sub
    
    Sub SetAlarm()
    Application.OnTime SetTime, "RemindNurse"
    End Sub
    
    Sub RemindNurse()
    Application.Speech.Speak ("It's time to give the monthly medication")
    'Show charts or do anything else to remind the nurse here
    End Sub
    
    Private Sub SetTimeToNextMonthButton_Click()
    SetTime = DateAdd("m", 1, SetTime)
    SetAlarm
    End Sub
    

    In the example,SetTime is global variant and you could reset it in another event like the example.
    Best regards,
    Celeste


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    Friday, March 17, 2017 7:44 AM
    Moderator