Decomposing a number in expanded form

[andreascostas]

I want to Randomly generate a number from thousand to hundred thousand, and then decomposed it.

Example, input in cell A1: 234,789
Output in cell B1: 2 hundred thousands + 3 ten thousands + 4 thousands + 7 hundreds + 8 tens + 9 ones

Another example input in cell A1: 207,089 and output in B1: 2 hundred thousands + 7 thousands + 8 tens + 9 ones

Or A1: 23,005 output in B1: 2 ten thousands + 3 thousands + ones

In other words, I need it to accommodate zero digits without listing them. I can use left and right functions to do the ones that have no 0 in any of the digits, but am having trouble with examples like the Second and third example. Can a udf be written to accomplish this that can do multi[le ones at the same time?

 

[Rick Rothstein]

Give this UDF (user defined function) a try...

[table="width: 500"]
[tr]
	[td]Function Decompose(ByVal Number As String) As String
  Dim X As Long
  Number = Replace(Number, ",", "")
  If Number = 0 Then
    Decompose = "0 ones"
  Else
    For X = Len(Number) To 1 Step -1
      If Mid(Number, X, 1) Then Decompose = Mid(Number, X, 1) & Choose(Len(Number) - X + 1, " ones", " tens", " hundreds", " thousands", " ten thousand", " hundred thousand") & " + " & Decompose
    Next
    Decompose = Left(Decompose, Len(Decompose) - 3)
  End If
End Function
[/td]
[/tr]
[/table]

HOW TO INSTALL UDFs
------------------------------------
If you are new to UDFs, they are easy to install and use. To install it, simply press ALT+F11 to go into the VB editor and, once there, click Insert/Module on its menu bar, then copy/paste the above code into the code window that just opened up. That's it.... you are done. You can now use Decompose just like it was a built-in Excel function. For example,

=Decompose(A1)

If you are using XL2007 or above, make sure you save your file as an "Excel Macro-Enabled Workbook (*.xlsm) and answer the "do you want to enable macros" question as "yes" or "OK" (depending on the button label for your version of Excel) the next time you open your workbook.

 

[andreascostas]

Perfect. Thank you