Menu

Reformat Number

Search this Thread

Prev

Previous Post

Next Post

Next

#4

Report Post

Posted to microsoft.public.excel.programming

Ron Rosenfeld Ron Rosenfeld is offline

Ron Rosenfeld is offline

external usenet poster

Posts: 5,651

Default

Reformat Number

On 16 Feb 2006 10:41:44 -0800, wrote:

I am extracting data from a program that collects project data in a
number of areas.
The project number is extracted just as it comes out of the program,
sometime with parentheses , commas, or dashes in between its parts.
The field the number is input into is a text field.

What I would like to do is to remove all symbols from the number and
make the number one long string of digits. Is there any way to do
this?

Thanks in advance for the help.

Here's one way:

======================
Option Explicit
Sub GetDigits()
Const str As String = "1234ab()?4567Aa</910"
Dim res As String
Dim i As Long
Dim s As String

For i = 1 To Len(str)
s = Mid(str, i, 1)
res = res & IIf(s Like "[0-9]", s, "")
Next i

Debug.Print res

End Sub
====================

--ron

Reply With Quote

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Cell Reformat	joe925c	New Users to Excel	2	February 9th 09 08:45 PM
Reformat numbers	EllenM	Excel Discussion (Misc queries)	6	August 8th 07 04:22 PM
Reformat of a table	[email protected]	Excel Discussion (Misc queries)	2	December 7th 06 04:02 AM
Reformat existing 4 digit number as hh:mm?	Carol Wolfe	Excel Programming	5	April 6th 05 07:57 AM
reformat numbers	waterman	Excel Programming	1	April 28th 04 02:41 AM

All times are GMT +1. The time now is 01:23 PM.

About Us

"It's about Microsoft Excel"

Contact Us ExcelBanter forum home Privacy Statement