Comment
Author: Admin | 2025-04-28
Stringmy_output = ""If Val(Left(pTens, 1)) = 1 Then Select Case Val(pTens) Case 10: my_output = "Ten" Case 11: my_output = "Eleven" Case 12: my_output = "Twelve" Case 13: my_output = "Thirteen" Case 14: my_output = "Fourteen" Case 15: my_output = "Fifteen" Case 16: my_output = "Sixteen" Case 17: my_output = "Seventeen" Case 18: my_output = "Eighteen" Case 19: my_output = "Nineteen" Case Else End SelectElseSelect Case Val(Left(pTens, 1)) Case 2: my_output = "Twenty " Case 3: my_output = "Thirty " Case 4: my_output = "Forty " Case 5: my_output = "Fifty " Case 6: my_output = "Sixty " Case 7: my_output = "Seventy " Case 8: my_output = "Eighty " Case 9: my_output = "Ninety " Case ElseEnd Selectmy_output = my_output & get_digit(Right(pTens, 1))End Ifget_ten = my_outputEnd FunctionFunction get_digit(pDigit)Select Case Val(pDigit) Case 1: get_digit = "One" Case 2: get_digit = "Two" Case 3: get_digit = "Three" Case 4: get_digit = "Four" Case 5: get_digit = "Five" Case 6: get_digit = "Six" Case 7: get_digit = "Seven" Case 8: get_digit = "Eight" Case 9: get_digit = "Nine" Case Else: get_digit = ""End SelectEnd FunctionYou can use your defined function named Convert_Number_into_word_with_currency.=Convert_Number_into_word_with_currency(B5) Use the Excel AutoFill Feature for the rest of cells C6:C9.Code 2Function ConvertNumberToWords(ByVal MyNumber) As String Dim Units As String Dim SubUnits As String Dim DecimalPlace As Integer Dim Count As Integer Dim DecimalSeparator As String Dim UnitName As String Dim SubUnitName As String Dim SubUnitNameAlt As String ' Change these values according to your requirements DecimalSeparator = "." UnitName = "US Dollars" SubUnitName = "Cents" SubUnitNameAlt = "Dollars" ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' Convert MyNumber to String MyNumber = Trim(CStr(MyNumber)) ' If MyNumber is blank, return zero If MyNumber
Add Comment