Working Clock with Speak Speach & Scrolling Text combined in a VBA code

Status
Not open for further replies.

AbdulKayum

New Member
Joined
Apr 21, 2022
Messages
4
Office Version
  1. 365
  2. 2016
Platform
  1. Windows
Hi , Please can you help, i would like a running clock with certain time during the day to able to alert with a speak and also to able to have a running scrolling text. I am struggling to able to put all 3 (running clock, Speach speak & Scrolling text working in the same excel workbook) i am trying to build a spreadsheet to show live clock for prayer time timetable, but also need it speaking during the day 5 times to speak once that the prayer time is due and also on the screen to have a scrolling text running. i have all 3 different VBA coe on this post but i need these working as am struggling to able to run 3 running macros at once.

This is for Clock to work:

Dim SchedRecalc As Date

Sub Recalc()

With Sheet1.Range("A1")

.Value = Format(Time, "hh:mm:ss AM/PM")

End With

Call SetTime

End Sub

Sub SetTime()

SchedRecalc = Now + TimeValue("00:00:01")

Application.OnTime SchedRecalc, "Recalc"


End Sub

Sub Disable()

On Error Resume Next

Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False

End Sub



This coding is for the scrolling;

Sub start_Scroll()

myValue = Range("C21").Value
finalval = WorksheetFunction.Rept(myValue, 1)

Do
For i = 1 To Len(finalval)

l = Len(finalval) - 1
DoEvents
For a = l To 500000000#
a = a + l

Next
Range("B36") = Mid(finalval, i, l) & Left(finalval, i - 1)
Next
Loop



End Sub



and this is the last VBA code for speach

Function BEEPNOW(sales As Long) As String


Beep
Message = "TIME FOR NOMAZ"

Application.Speech.Speak Message

BEEPNOW = Message


End Function

Attachments​

  • Front sheet.PNG
 

Excel Facts

Spell Check in Excel
Press F7 to start spell check in Excel. Be careful, by default, Excel does not check Capitalized Werds (whoops)
All - looks like a dupe of
 
Upvote 0
All - looks like a dupe of
Hi, it's been unanswered, still waiting response
 
Upvote 0
In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.
 
Upvote 0
Status
Not open for further replies.

Forum statistics

Threads
1,224,823
Messages
6,181,181
Members
453,021
Latest member
Justyna P

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top