Not sure if this can be done
Closed
chase
-
Jul 14, 2010 at 03:12 PM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Jul 22, 2010 at 12:09 PM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Jul 22, 2010 at 12:09 PM
2 responses
rahulfinch
Posts
59
Registration date
Monday July 12, 2010
Status
Member
Last seen
July 14, 2010
15
Jul 14, 2010 at 03:34 PM
Jul 14, 2010 at 03:34 PM
Hi there,
You mean like a screen save?for which model of handset you want to make it?
Thanks
You mean like a screen save?for which model of handset you want to make it?
Thanks
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Jul 14, 2010 at 07:09 PM
Jul 14, 2010 at 07:09 PM
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.
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.
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Jul 22, 2010 at 12:09 PM
Jul 22, 2010 at 12:09 PM
You are supposed to execute the code
The text "Hi there" will scroll in cell D6
The text "Hi there" will scroll in cell D6
Jul 15, 2010 at 08:13 AM
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..