Not sure if this can be done
Closed
chase
-
14 Jul 2010 à 15:12
rizvisa1 Posts 4478 Registration date Thursday 28 January 2010 Status Contributor Last seen 5 May 2022 - 22 Jul 2010 à 12:09
rizvisa1 Posts 4478 Registration date Thursday 28 January 2010 Status Contributor Last seen 5 May 2022 - 22 Jul 2010 à 12:09
2 responses
rahulfinch
Posts
59
Registration date
Monday 12 July 2010
Status
Member
Last seen
14 July 2010
15
14 Jul 2010 à 15:34
14 Jul 2010 à 15:34
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 28 January 2010
Status
Contributor
Last seen
5 May 2022
766
14 Jul 2010 à 19:09
14 Jul 2010 à 19:09
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 28 January 2010
Status
Contributor
Last seen
5 May 2022
766
22 Jul 2010 à 12:09
22 Jul 2010 à 12:09
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
15 Jul 2010 à 08:13
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..