Remember Me?

#1
November 9th 06, 02:43 PM posted to microsoft.public.excel.misc
 external usenet poster First recorded activity by ExcelBanter: Nov 2006 Posts: 11
How to extract each digit from a number in one cell?

I need to extract each digit from a number entered in one cell. I then need
to multiply each digit by another digit. The second part I can handle. It's
how to parse that number into it's separate digits that is the challenge. I
am used to redefine capabilities in other languages but can't find any easy
equivalend in Excel.

#2
November 9th 06, 02:56 PM posted to microsoft.public.excel.misc
 external usenet poster First recorded activity by ExcelBanter: Jul 2006 Posts: 10,124
How to extract each digit from a number in one cell?

See if this idea helps
Sub extracteachnumber()
c = ActiveCell
For i = 1 To Len(c)
MsgBox Mid(c, i, 1) * 4
Next
End Sub

--
Don Guillett
SalesAid Software

"greyhound girl" wrote in message
...
I need to extract each digit from a number entered in one cell. I then need
to multiply each digit by another digit. The second part I can handle.
It's
how to parse that number into it's separate digits that is the challenge.
I
am used to redefine capabilities in other languages but can't find any
easy
equivalend in Excel.

#3
November 9th 06, 03:28 PM posted to microsoft.public.excel.misc
 external usenet poster First recorded activity by ExcelBanter: Nov 2006 Posts: 11
How to extract each digit from a number in one cell?

This might do it. I won't be able to try it for about an hour so will let you
know then. Thanks!!

"Don Guillett" wrote:

See if this idea helps
Sub extracteachnumber()
c = ActiveCell
For i = 1 To Len(c)
MsgBox Mid(c, i, 1) * 4
Next
End Sub

--
Don Guillett
SalesAid Software

"greyhound girl" wrote in message
...
I need to extract each digit from a number entered in one cell. I then need
to multiply each digit by another digit. The second part I can handle.
It's
how to parse that number into it's separate digits that is the challenge.
I
am used to redefine capabilities in other languages but can't find any
easy
equivalend in Excel.

#4
November 9th 06, 04:49 PM posted to microsoft.public.excel.misc
 external usenet poster First recorded activity by ExcelBanter: Jul 2006 Posts: 1,998
How to extract each digit from a number in one cell?

Data TextToColumns Fixed and set a column for each digit in your
maximum length number...........

hth
Vaya con Dios,
Chuck, CABGx3

"greyhound girl" wrote:

I need to extract each digit from a number entered in one cell. I then need
to multiply each digit by another digit. The second part I can handle. It's
how to parse that number into it's separate digits that is the challenge. I
am used to redefine capabilities in other languages but can't find any easy
equivalend in Excel.

#5
November 9th 06, 08:42 PM posted to microsoft.public.excel.misc
 external usenet poster First recorded activity by ExcelBanter: Nov 2006 Posts: 11
How to extract each digit from a number in one cell?

This worked great. I actually had to start from the right most position so
just reversed the counter and end values and added a step -1. I need to do
this with the text entered by a user, calculate a check digit and display the
result as well as use the check digit in building a bar code. I have not
worked much with text boxes. I assume I could use that to gather the data but
wouldn't I need to have a separate calculate button to actually do the
extract? Otherwise, how would the application know when the complete number
had been entered. Any thoughts, suggestions?

"Don Guillett" wrote:

See if this idea helps
Sub extracteachnumber()
c = ActiveCell
For i = 1 To Len(c)
MsgBox Mid(c, i, 1) * 4
Next
End Sub

--
Don Guillett
SalesAid Software

"greyhound girl" wrote in message
...
I need to extract each digit from a number entered in one cell. I then need
to multiply each digit by another digit. The second part I can handle.
It's
how to parse that number into it's separate digits that is the challenge.
I
am used to redefine capabilities in other languages but can't find any
easy
equivalend in Excel.

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

 Similar Threads Thread Thread Starter Forum Replies Last Post Carlos Excel Discussion (Misc queries) 4 September 29th 05 07:17 PM SCOOBYDOO Excel Worksheet Functions 2 June 9th 05 02:48 PM Croc001 Excel Discussion (Misc queries) 3 March 30th 05 09:12 AM Thuferhawat New Users to Excel 12 January 24th 05 10:29 PM Ed Excel Worksheet Functions 3 December 7th 04 08:12 PM

All times are GMT +1. The time now is 12:20 PM.