Not sure if this can be done

[Closed]
Report
-
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
-
Hello,

I want to display a message in a cell, I want the message displayed as a slide, with the words coming in from the right of the cell to the left. Just like those digital signs you see with the words running across the screen. Hope you understand what I mean. Thanks

2 replies

Posts
59
Registration date
Monday July 12, 2010
Status
Member
Last seen
July 14, 2010
15
Hi there,

You mean like a screen save?for which model of handset you want to make it?

Thanks
Hello,

Not sure what you mean. In one of the cells in excel i would like whatever message i want to display, show up as a running slide, with the words coming in from the right of the cell. The message will be moving from right to left..
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
768
Sub Tester1()
Dim sp As String
Dim sTxt As String
Dim x As Integer, y As Integer
Dim Start, delay

sTxt = "Hi there!!"

For y = 1 To 15 '15 Loops through the scrolling
For x = 1 To 30 'Index number of times
Start = Timer 'Set start to internal timer
delay = Start + 0.15 'Set delay for .15 secs

Do While Timer < delay 'Do the display routine
[D6] = Space(x) & sTxt 'Show 1 str @ a time
DoEvents 'do there things
Loop 'Loop until delay is up
DoEvents
Start = Timer 'and reset the timer
delay = Start + 0.15 'and the delay
Next x 'Show the next str
Next y 'Do this again - 15

[D6] = "" 'Reset

End Sub

This is the code i got from the link you provided, I copied and pasted, but nothing happened.
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
768
You are supposed to execute the code
The text "Hi there" will scroll in cell D6