Back to: Excel Custom Function/Formulas . Got any Excel/VBA Questions? Free Excel Help
This UDF will reverse the content of any cell
Function ReverseCell(Rcell As Range, Optional IsText As Boolean) Dim i As Integer Dim StrNewNum As String Dim strOld As String strOld = Trim(Rcell) For i = 1 To Len(strOld) StrNewNum = Mid(strOld, i, 1) & StrNewNum Next i If IsText = False Then ReverseCell = CLng(StrNewNum) Else ReverseCell = StrNewNum End If End Function
To use this UDF push Alt+F11 and go Insert>Module and paste in the code. Push Alt+Q and save. The Function will appear under "User Defined" in the Paste Function dialog box (Shift+F3).
Enter the function like this for text:
Or either of the ways below for numeric data
Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to [email protected] 31 days after purchase date.
Instant Download and Money Back Guarantee on Most Software
Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!
Microsoft ® and Microsoft Excel ® are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft
Some of our more popular products are below...
Convert Excel Spreadsheets To Webpages | Trading In Excel | Construction Estimators | Finance Templates & Add-ins Bundle | Code-VBA | Smart-VBA | Print-VBA | Excel Data Manipulation & Analysis | Convert MS Office Applications To...... | Analyzer Excel | Downloader Excel | MSSQL Migration Toolkit | Monte Carlo Add-in | Excel Costing Templates