Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I invert text (abc--cba)
Is there a simple formula in Excel to invert text?
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I invert text (abc--cba)
Yes use Data, text to column ( with your example will create a b c one
letter in each cell) then in a fourth one concatenate in reverse order. HTH Gilles "Moset" wrote in message ... Is there a simple formula in Excel to invert text? |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I invert text (abc--cba)
Thanks, but I figured out another way that works better for what I'm trying
to accomplish. I should have stated in my original post, I wanted to invert numbers, not actually text, but I thought text might be easier, then I could multiply the "text" by 1 to change it to a number. Here's my solution using VB: =================================== Function invert(num) If Len(num) = 1 Then invert = num Else: If Len(num) = 2 Then invert = (Mid(num, 2, 1) & Mid(num, 1, 1)) Else: If Len(num) = 3 Then invert = (Mid(num, 3, 1) & Mid(num, 2, 1) & Mid(num, 1, 1)) Else: ...... End Function =================================== I could only get it to work for 55 characters because VB editor couldn't handle a line of code any longer. If you're curious, I was trying to solve a math problem that states, if you incrementally add the inverse of a number to the previous total, how many times do you have to get that before the result is an anagram. For instance: 6 6+6=12 12+21=33 (Two iterations) (does it show how much of a Geek I am that this is what I'm doing for fun on a Sat night?) "Gilles Desjardins" wrote: Yes use Data, text to column ( with your example will create a b c one letter in each cell) then in a fourth one concatenate in reverse order. HTH Gilles "Moset" wrote in message ... Is there a simple formula in Excel to invert text? |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I invert text (abc--cba)
Try this UDF by Trevor Shuttleworth:
Function ReverseText(rt As Range) Application.Volatile Dim iLength As Integer Dim iCount As Integer iLength = Len(rt) ReverseText = "" For iCount = iLength To 1 Step -1 ReverseText = ReverseText & _ Mid(rt.Value, iCount, 1) Next iCount End Function Biff "Moset" wrote in message ... Thanks, but I figured out another way that works better for what I'm trying to accomplish. I should have stated in my original post, I wanted to invert numbers, not actually text, but I thought text might be easier, then I could multiply the "text" by 1 to change it to a number. Here's my solution using VB: =================================== Function invert(num) If Len(num) = 1 Then invert = num Else: If Len(num) = 2 Then invert = (Mid(num, 2, 1) & Mid(num, 1, 1)) Else: If Len(num) = 3 Then invert = (Mid(num, 3, 1) & Mid(num, 2, 1) & Mid(num, 1, 1)) Else: ..... End Function =================================== I could only get it to work for 55 characters because VB editor couldn't handle a line of code any longer. If you're curious, I was trying to solve a math problem that states, if you incrementally add the inverse of a number to the previous total, how many times do you have to get that before the result is an anagram. For instance: 6 6+6=12 12+21=33 (Two iterations) (does it show how much of a Geek I am that this is what I'm doing for fun on a Sat night?) "Gilles Desjardins" wrote: Yes use Data, text to column ( with your example will create a b c one letter in each cell) then in a fourth one concatenate in reverse order. HTH Gilles "Moset" wrote in message ... Is there a simple formula in Excel to invert text? |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I invert text (abc--cba)
Moset
Public Function RevStr(Rng As Range) RevStr = StrReverse(Rng.text) End Function usage is =RevStr(cellref) or =RevStr("string") If inverting numbers, they will become text so must be converted back to numbers if to be used as such. usage is =RevStr(cellref)*1 Gord Dibben MS Excel MVP On Sat, 29 Apr 2006 20:13:02 -0700, Moset wrote: Thanks, but I figured out another way that works better for what I'm trying to accomplish. I should have stated in my original post, I wanted to invert numbers, not actually text, but I thought text might be easier, then I could multiply the "text" by 1 to change it to a number. Here's my solution using VB: =================================== Function invert(num) If Len(num) = 1 Then invert = num Else: If Len(num) = 2 Then invert = (Mid(num, 2, 1) & Mid(num, 1, 1)) Else: If Len(num) = 3 Then invert = (Mid(num, 3, 1) & Mid(num, 2, 1) & Mid(num, 1, 1)) Else: ..... End Function =================================== I could only get it to work for 55 characters because VB editor couldn't handle a line of code any longer. If you're curious, I was trying to solve a math problem that states, if you incrementally add the inverse of a number to the previous total, how many times do you have to get that before the result is an anagram. For instance: 6 6+6=12 12+21=33 (Two iterations) (does it show how much of a Geek I am that this is what I'm doing for fun on a Sat night?) "Gilles Desjardins" wrote: Yes use Data, text to column ( with your example will create a b c one letter in each cell) then in a fourth one concatenate in reverse order. HTH Gilles "Moset" wrote in message ... Is there a simple formula in Excel to invert text? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Shade cell according to text? | Excel Discussion (Misc queries) | |||
Using Concatenate function to generate text in Text Box | Charts and Charting in Excel | |||
merged cells into one text cell, size varies dependant on text dat | Excel Discussion (Misc queries) | |||
SUMPRODUCT vs Text??? | Excel Worksheet Functions | |||
Read Text File into Excel Using VBA | Excel Discussion (Misc queries) |