A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Excel » General Discussion
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

"1235" appears as "One thousand two hundred thirty five"



 
 
Thread Tools Display Modes
  #1  
Old October 13th, 2005, 01:37 PM
H. Kan
external usenet poster
 
Posts: n/a
Default "1235" appears as "One thousand two hundred thirty five"

please i want to know how i convert number to text in excel datasheet or access

for example :
1235.75
one thousand two hundred thirty five and 75/100

thank you for your help
  #2  
Old October 13th, 2005, 01:48 PM
Bob Phillips
external usenet poster
 
Posts: n/a
Default

See http://www.xldynamic.com/source/xld.xlFAQ0004.html

--

HTH

RP
(remove nothere from the email address if mailing direct)


"H. Kan" H. wrote in message
...
please i want to know how i convert number to text in excel datasheet or

access

for example :
1235.75
one thousand two hundred thirty five and 75/100

thank you for your help



  #3  
Old October 13th, 2005, 04:18 PM
ufo_pilot
external usenet poster
 
Posts: n/a
Default



Paste this for VBA:





Option Explicit

'****************' Main Function *'****************
Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion " ' String representation of amount
MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none
DecimalPlace = InStr(MyNumber, ".")
'Convert cents and set MyNumber to dollar amount
If DecimalPlace 0 Then
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Dollars & Cents
End Function
'*******************************************
' Converts a number from 100-999 into text *
'*******************************************
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3) 'Convert the hundreds place
If Mid(MyNumber, 1, 1) "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
'Convert the tens and ones place
If Mid(MyNumber, 2, 1) "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
'*********************************************
' Converts a number from 10 to 99 into text. *
'*********************************************
Function GetTens(TensText)
Dim Result As String
Result = "" 'null out the temporary function value
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) 'Retrieve ones place
End If
GetTens = Result
End Function
'*******************************************
' Converts a number from 1 to 9 into text. *
'*******************************************
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function


"Bob Phillips" wrote:

See http://www.xldynamic.com/source/xld.xlFAQ0004.html

--

HTH

RP
(remove nothere from the email address if mailing direct)


"H. Kan" H. wrote in message
...
please i want to know how i convert number to text in excel datasheet or

access

for example :
1235.75
one thousand two hundred thirty five and 75/100

thank you for your help




  #4  
Old October 13th, 2005, 07:11 PM
H. Kan
external usenet poster
 
Posts: n/a
Default

thank you toooooooooo much

"Bob Phillips" wrote:

See http://www.xldynamic.com/source/xld.xlFAQ0004.html

--

HTH

RP
(remove nothere from the email address if mailing direct)


"H. Kan" H. wrote in message
...
please i want to know how i convert number to text in excel datasheet or

access

for example :
1235.75
one thousand two hundred thirty five and 75/100

thank you for your help




  #5  
Old October 13th, 2005, 07:12 PM
H. Kan
external usenet poster
 
Posts: n/a
Default

thank you toooooooooooo much

"ufo_pilot" wrote:



Paste this for VBA:





Option Explicit

'****************' Main Function *'****************
Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion " ' String representation of amount
MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none
DecimalPlace = InStr(MyNumber, ".")
'Convert cents and set MyNumber to dollar amount
If DecimalPlace 0 Then
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Dollars & Cents
End Function
'*******************************************
' Converts a number from 100-999 into text *
'*******************************************
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3) 'Convert the hundreds place
If Mid(MyNumber, 1, 1) "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
'Convert the tens and ones place
If Mid(MyNumber, 2, 1) "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
'*********************************************
' Converts a number from 10 to 99 into text. *
'*********************************************
Function GetTens(TensText)
Dim Result As String
Result = "" 'null out the temporary function value
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) 'Retrieve ones place
End If
GetTens = Result
End Function
'*******************************************
' Converts a number from 1 to 9 into text. *
'*******************************************
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function


"Bob Phillips" wrote:

See http://www.xldynamic.com/source/xld.xlFAQ0004.html

--

HTH

RP
(remove nothere from the email address if mailing direct)


"H. Kan" H. wrote in message
...
please i want to know how i convert number to text in excel datasheet or

access

for example :
1235.75
one thousand two hundred thirty five and 75/100

thank you for your help




  #6  
Old December 21st, 2005, 12:37 PM posted to microsoft.public.excel.misc
external usenet poster
 
Posts: n/a
Default "1235" appears as "One thousand two hundred thirty five"

actually we have bahttext function that is showing in the thai language why
don't you tell the solution for that one


"H. Kan" wrote:

thank you toooooooooo much

"Bob Phillips" wrote:

See http://www.xldynamic.com/source/xld.xlFAQ0004.html

--

HTH

RP
(remove nothere from the email address if mailing direct)


"H. Kan" H. wrote in message
...
please i want to know how i convert number to text in excel datasheet or

access

for example :
1235.75
one thousand two hundred thirty five and 75/100

thank you for your help




  #7  
Old June 1st, 2006, 12:22 AM posted to microsoft.public.excel.misc
external usenet poster
 
Posts: n/a
Default "1235" appears as "One thousand two hundred thirty five"

is there a vba writted for spanish? mil doscientos treinta y cinco?

"Bob Phillips" wrote:

See http://www.xldynamic.com/source/xld.xlFAQ0004.html

--

HTH

RP
(remove nothere from the email address if mailing direct)


"H. Kan" H. wrote in message
...
please i want to know how i convert number to text in excel datasheet or

access

for example :
1235.75
one thousand two hundred thirty five and 75/100

thank you for your help




  #8  
Old June 1st, 2006, 12:54 AM posted to microsoft.public.excel.misc
external usenet poster
 
Posts: n/a
Default "1235" appears as "One thousand two hundred thirty five"

Hi Montse,

is there a vba writted for spanish? mil doscientos treinta y cinco?



You could download Laurent Longre's MoreFunc addin which is freely
downloadable at:

http://xcell05.free.fr/

The addin includes the NBTEXT function which converts a positive number into
spelled-out text (supports 13 languages).


---
Regards,
Norman


  #9  
Old June 1st, 2006, 01:35 AM posted to microsoft.public.excel.misc
external usenet poster
 
Posts: n/a
Default "1235" appears as "One thousand two hundred thirty five"

thank you very much, verry efective!

great tool!

"Norman Jones" wrote:

Hi Montse,

is there a vba writted for spanish? mil doscientos treinta y cinco?



You could download Laurent Longre's MoreFunc addin which is freely
downloadable at:

http://xcell05.free.fr/

The addin includes the NBTEXT function which converts a positive number into
spelled-out text (supports 13 languages).


---
Regards,
Norman



  #10  
Old June 2nd, 2006, 07:48 PM posted to microsoft.public.excel.misc
external usenet poster
 
Posts: n/a
Default "1235" appears as "One thousand two hundred thirty five"

do you know how do get this formula into access? i am doing my data entry
there and would like to have the numbers changed into words without having to
go back to excel.

"Norman Jones" wrote:

Hi Montse,

is there a vba writted for spanish? mil doscientos treinta y cinco?



You could download Laurent Longre's MoreFunc addin which is freely
downloadable at:

http://xcell05.free.fr/

The addin includes the NBTEXT function which converts a positive number into
spelled-out text (supports 13 languages).


---
Regards,
Norman



 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 03:31 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.