Thread
:
Subject: How to Reverse Contents in an Excel cell (NUMERIC VALUE)
View Single Post
#
5
Posted to microsoft.public.excel.worksheet.functions
Sandy Mann
external usenet poster
Posts: 2,345
Subject: How to Reverse Contents in an Excel cell (NUMERIC VAL
didn't work is a very helpful reply. Was the reason like me you don't have
the "StrReverse" keywork in VBA?
If so try:
Public Function RevStr(Rng As Range)
For cX = Len(Rng) To 1 Step -1
sStr = sStr & Mid(Rng, cX, 1)
Next cX
RevStr = sStr
End Function
--
HTH
Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings
Replace @mailinator.com with @tiscali.co.uk
"3kings" wrote in message
...
Nope, that didnt work either... :-(
"Bernie Deitrick" wrote:
Try
=VALUE(RevStr(cellref))
HTH,
Bernie
MS Excel MVP
"3kings" wrote in message
...
Ok, followed this in an Excel2003 workbook, and got ALMOST there. I was
able
to get the reverse returned, but then adding the *1 returned a #VALUE!
error.
Clicking the error tab did not give me the option to Convert To Number,
either.
If its any help, this is what I want to accomplish:
start with a number:
(ABC)
add its reverse (here is where I need the function)
ABC+CBA = XYZ
So:
A1 is (ABC)
B1 is (CBA)
C1 is A2 + B2 [XYZ]
THEN -
A2 = (XYZ)
B2 = (ZYX)
etc.
Any suggestions?
"Gord Dibben" wrote:
CeeGee
By using a user defined function.
Public Function RevStr(Rng As Range)
RevStr = StrReverse(Rng.text)
End Function
Usage is: =RevStr(cellref)
If the data is numeric...... =RevStr(cellref)*1 which forces it back
to
numeric.
This function would be copied to a general module in your workbook.
If not familiar with macros and VBA, visit David McRitchie's website
on
"getting started".
http://www.mvps.org/dmcritchie/excel/getstarted.htm
In the meantime..........
To create a General Module, hit ALT + F11 to open the Visual Basic
Editor.
Hit CRTL + R to open Project Explorer.
Find your workbook/project and select it.
Right-click and InsertModule. Paste the above code in there. Save
the
workbook and hit ALT + Q to return to your workbook.
Gord Dibben Excel MVP
On Fri, 20 May 2005 15:16:02 -0700, CeeGee
wrote:
If I have the following text string in a cell "abc123.xyz" how do I
reverse
the contents i.e. "zyx.321cba"?
If the cell contains a numeric value e.g. 12345, then I want to know
how to
reverse it i.e. 54321
Reply With Quote
Sandy Mann
View Public Profile
Find all posts by Sandy Mann