Text running

[MAX]

Hello
I don't know if there is a code that keeps a word ( for example FOOTBALL)
running from left to the right of the cell.
I appriciate even a small help.

Thanks in advance

 

[Gord Dibben]

Where would you like it to run to?

English and most other languages run left to right.

Middle East countries usually run right to left.

There are various methods of text alignment in cell formatting>alignment.


Gord Dibben MS Excel MVP

 

[ryguy7272]

Put your text in Cell B20 and run this code:

Sub ANIM()
st = " " & Range("B20") & " "
i = 0
While True
Range("B21").Value = Mid(st, i Mod Len(st) + 1, 10)
For j = 1 To 300000
k = k + 1
Next j
i = i + 1
Wend
End Sub

 

[Gary Brown]

Try this...
'/=================================================
Sub Macro1()
Dim i As Integer, j As Integer
Dim x As Integer, y As Integer
'
x = 10 'indent 10 times
y = 5 'perform process 5 times

For j = 1 To y
For i = 1 To x
'wait 1 second between indent
Application.Wait (Now + TimeValue("0:00:01"))
'indent
Selection.InsertIndent 1
Next i
'un-indent same # of times you
' indented to start again
Selection.InsertIndent -x
Next j

End Sub
'/=================================================

 

[MAX]

Thank you for your help.
I want this in cell A105 and I am using English language.

 

[MAX]

Gary thank you for your help but please tell me in which cell I have to put
text.

 

[Gord Dibben]

What do you want in A105?

FOOTBALL will always run left to right unless you use code to turn it into

LLABTOOF or orientaion to stand it on end or slanted.

I do not understand your needs.

Have any of the other replies helped in any way?


Gord

 

[Gary Brown]

After looking at your response to Gord Dibben, I've changed the macro so the
Text goes in Cell A105. You can easily change this in the macro.

'/=================================================
Sub Macro1()
Dim i As Integer, j As Integer
Dim x As Integer, y As Integer
Dim strMyCell As String
'

' - - V A R I A B L E S - - - - -
strMyCell = "A105" 'where TEXT goes
x = 10 'indent 10 times
y = 5 'perform process 5 times
' - - - - - - - - - - - - - - - -

For j = 1 To y
For i = 1 To x
'wait 1 second between indent
Application.Wait (Now + TimeValue("0:00:01"))
'indent
Range(strMyCell).InsertIndent 1
Next i
'un-indent same # of times you
' indented to start again
Range(strMyCell).InsertIndent -x
Next j

End Sub
'/=================================================


--
Hope this helps.
If it does, please click the Yes button.
Thanks in advance for your feedback.
Gary Brown

 

[MAX]

Gary I am appriciate your great help but since I am a very beginner in these
type of programs I don't understand.
Will you please write the code for me.

Thanks in advance.

 

[Gary Brown]

Max, that IS the code.
--
Hope this helps.
If it does, please click the Yes button.
Thanks in advance for your feedback.
Gary Brown

 

[Gord Dibben]

Gary

I completely failed to understand the needs but now I see your code in
action I am impressed.

Both with the code and your interpretaion of OP's question.


Gord

 

[MAX]

One last quetion, why I can't write on the file while the code is running?

 

[Gord Dibben]

Because Excel can do one thing at a time.

While your code is running you must suspend all other activity.

Cool, eh?


Gord