Text running
in [Programming]
|
From: MAX on 15 Apr 2010 15:29 Gary thank you for your help but please tell me in which cell I have to put text. "Gary Brown" wrote: > 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 > '/================================================= > > > -- > Hope this helps. > If it does, please click the Yes button. > Thanks in advance for your feedback. > Gary Brown > > > > "MAX" wrote: > > > 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
From: Gord Dibben on 15 Apr 2010 15:35 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 On Thu, 15 Apr 2010 12:18:07 -0700, MAX <MAX(a)discussions.microsoft.com> wrote: >Thank you for your help. >I want this in cell A105 and I am using English language. > >"Gord Dibben" wrote: > >> 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 >> >> On Thu, 15 Apr 2010 09:39:01 -0700, MAX <MAX(a)discussions.microsoft.com> >> wrote: >> >> >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 >> >> . >>
From: Gary Brown on 15 Apr 2010 15:38 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" wrote: > Gary thank you for your help but please tell me in which cell I have to put > text. > > "Gary Brown" wrote: > > > 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 > > '/================================================= > > > > > > -- > > Hope this helps. > > If it does, please click the Yes button. > > Thanks in advance for your feedback. > > Gary Brown > > > > > > > > "MAX" wrote: > > > > > 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
From: MAX on 15 Apr 2010 15:54 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" wrote: > 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" wrote: > > > Gary thank you for your help but please tell me in which cell I have to put > > text. > > > > "Gary Brown" wrote: > > > > > 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 > > > '/================================================= > > > > > > > > > -- > > > Hope this helps. > > > If it does, please click the Yes button. > > > Thanks in advance for your feedback. > > > Gary Brown > > > > > > > > > > > > "MAX" wrote: > > > > > > > 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
From: Gary Brown on 15 Apr 2010 16:04 Max, that IS the code. -- Hope this helps. If it does, please click the Yes button. Thanks in advance for your feedback. Gary Brown "MAX" wrote: > 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" wrote: > > > 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" wrote: > > > > > Gary thank you for your help but please tell me in which cell I have to put > > > text. > > > > > > "Gary Brown" wrote: > > > > > > > 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 > > > > '/================================================= > > > > > > > > > > > > -- > > > > Hope this helps. > > > > If it does, please click the Yes button. > > > > Thanks in advance for your feedback. > > > > Gary Brown > > > > > > > > > > > > > > > > "MAX" wrote: > > > > > > > > > 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
First
|
Prev
|
Next
|
Last
Pages: 1 2 3 Prev: Named Ranges on different sheets Next: Automatically selecting active chart |