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. |
|
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
"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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
"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
|
|||
|
|||
"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
|
|||
|
|||
"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
|
|||
|
|||
"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
|
|||
|
|||
"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 | |
|
|