Reversing a cell

  • Thread starter Thread starter Opinicus
  • Start date Start date
O

Opinicus

I need a function that will reverse the data in a cell. For example if the
value in a cell A1 is "xyzzy", then REV(A1) would be yzzyx. If the value in
cell Z19 is "32767" then REV(Z19) would be 76732.

Is this possible?
 
Hi
try the following (without much error checking, etc.)

Public Function rev(rng As Range)
Dim return_str As String
Dim i As Integer
application.volatile
return_str = ""
With rng
For i = Len(.Value) To 1 Step -1
return_str = return_str & Mid(.Value, i, 1)
Next i
End With
rev = return_str
End Function
 
Opinicus,

Look for the (free) ASAP addin : http://www.asap-utilities.com/
It contains a text function which does exactly what you ask.

--
Regards,
Auk Ales

* Please reply to this newsgroup only *
* I will not react on unsolicited e-mails *
 
What version Excel:-

If prior to 2000 then:-

Function ReverseText1(cell)
Dim TextLen As Integer
Dim i As Integer
TextLen = Len(cell)
For i = TextLen To 1 Step -1
ReverseText = ReverseText & Mid(cell, i, 1)
Next i
End Function

else:-

Function ReverseText(cell)
ReverseText = StrReverse(cell.Text)
End Function
 
Frank,

Your function - as I see it - will indeed work, but I think that you could
delete the line : Application.volatile.
It causes the function to be recalculated each time the sheet is
recalculated, even if the cell the function depends on isn't changed.

--
Regards,
Auk Ales

* Please reply to this newsgroup only *
* I will not react on unsolicited e-mails *
 
Hi Auk (hope I got your name right)
yes you're right. The line is just the rest of a formula I copied for
this specific purpose (#!"§$ copy and paste).
So for the OP: Delete the line :-)
 
Hi Frank,

No need for : (#!"§$ copy and paste).
I do it myself also all the time (and sometimes wrong as well !!).
And Yes : You had the name correct.

--
Regards,
Auk Ales

* Please reply to this newsgroup only *
* I will not react on unsolicited e-mails *
 
Back
Top