{"id":12134,"date":"2012-04-09T16:37:15","date_gmt":"2012-04-09T16:37:15","guid":{"rendered":"http:\/\/www.learnexcelmacro.com\/?p=1560"},"modified":"2022-08-06T13:53:08","modified_gmt":"2022-08-06T13:53:08","slug":"currency-to-words","status":"publish","type":"post","link":"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/","title":{"rendered":"User Defined Function in Excel to Convert Currency to Words"},"content":{"rendered":"<p>[et_pb_section fb_built=&#8221;1&#8243; _builder_version=&#8221;4.16&#8243; da_disable_devices=&#8221;off|off|off&#8221; global_colors_info=&#8221;{}&#8221; da_is_popup=&#8221;off&#8221; da_exit_intent=&#8221;off&#8221; da_has_close=&#8221;on&#8221; da_alt_close=&#8221;off&#8221; da_dark_close=&#8221;off&#8221; da_not_modal=&#8221;on&#8221; da_is_singular=&#8221;off&#8221; da_with_loader=&#8221;off&#8221; da_has_shadow=&#8221;on&#8221;][et_pb_row _builder_version=&#8221;4.16&#8243; background_size=&#8221;initial&#8221; background_position=&#8221;top_left&#8221; background_repeat=&#8221;repeat&#8221; global_colors_info=&#8221;{}&#8221;][et_pb_column type=&#8221;4_4&#8243; _builder_version=&#8221;4.16&#8243; custom_padding=&#8221;|||&#8221; global_colors_info=&#8221;{}&#8221; custom_padding__hover=&#8221;|||&#8221;][et_pb_text _builder_version=&#8221;4.17.6&#8243; background_size=&#8221;initial&#8221; background_position=&#8221;top_left&#8221; background_repeat=&#8221;repeat&#8221; global_colors_info=&#8221;{}&#8221;]Many times we require to change the Numbers in Words. <strong>For Example 6734862=Sixty Seven Lakhs Thirty-Four Thousand Eight Hundred Sixty Two.<\/strong> In Excel, there is no Formula as such to Convert Numbers into Words. I have written one <strong>UDF : User Defined Function<\/strong>. After using this Function, you will be able to change any numbers in Words. Now there can be two ways of converting Numbers into Words in terms of Millions, Billions, etc Another way could be in Lakhs and Crores.<br \/>\n&nbsp;<\/p>\n<ul>\n<li>\n<a href=\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/#currency_to_word\"><strong>How to Convert Numbers in Words or Currency to Words<\/strong><\/a><\/li>\n<li>\n<a href=\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/#download-udf\"><strong>Download Free &#8211; UDF &#8211; Spell Currency <\/strong><\/a><\/li>\n<\/ul>\n<p><\/p>\n<h2>How to Convert Numbers in Words or Currency to Words<\/h2>\n<p><a name=\"currency_to_word\"><\/a><br \/>\n<strong>Step 1. <\/strong> Open your Excel Workbook<br \/>\n<strong>Step 2. <\/strong> Press Alt + F11<br \/>\n<strong>Step 3. <\/strong> Now Add a Regular Module in Excel<br \/>\n<strong>Step 4. <\/strong> Now Copy and Paste the Below Code in the Module<br \/>\n<strong>Step 5. <\/strong> Once you have copied and Pasted the Below Code in a Module, you can use the Below Formula in your Workbook in any WorkSheet as shown in Below Picture:<\/p>\n<p><strong>Currenct2Word(B5)<\/strong><br \/>\n&nbsp;<br \/>\n<strong>B5 : <\/strong> Is the Cell Address Where the Number is there<\/p>\n<div id=\"attachment_242435\" style=\"width: 552px\" class=\"wp-caption aligncenter\"><img decoding=\"async\" aria-describedby=\"caption-attachment-242435\" src=\"https:\/\/vmlogger.com\/excel\/wp-content\/uploads\/sites\/11\/2012\/04\/CurrencyToWord-1.png\" alt=\"Currency to Words\" width=\"542\" height=\"220\" class=\"size-full wp-image-242435\" srcset=\"https:\/\/vmlogger.com\/excel\/wp-content\/uploads\/sites\/11\/2012\/04\/CurrencyToWord-1.png 542w, https:\/\/vmlogger.com\/excel\/wp-content\/uploads\/sites\/11\/2012\/04\/CurrencyToWord-1-480x195.png 480w\" sizes=\"(min-width: 0px) and (max-width: 480px) 480px, (min-width: 481px) 542px, 100vw\" \/><p id=\"caption-attachment-242435\" class=\"wp-caption-text\">Numbers to convert in words<\/p><\/div>\n<p><\/p>\n<pre>\n<code class=\"language-vbnet\">\n\nFunction Currency2Word(ByVal MyNumber)\n\t\n\tDim WithoutCrore, Crore, DecimalPlace\n\tDim DecimalNumber\n\t\n\tMyNumber = Trim(Str(MyNumber))\n\t\n'get the Decimal Position\n\tDecimalPlace = InStr(MyNumber, \".\")\n\t\n'Get the Decimal Part of the whole Number\n\tIf DecimalPlace <> 0 Then\n\t\tDecimalNumber = Right(MyNumber, Len(MyNumber) - DecimalPlace)\n\tElse\n\t\tDecimalNumber = \"\"\n\tEnd If\n\t\n'Get the Decimal Free Number\n\tIf DecimalPlace > 0 Then\n\t\tMyNumber = Trim(Left(MyNumber, DecimalPlace - 1))\n\tEnd If\n\t\n'Divide the Decimal Free Number in 2 part - WithoutCrore and Crore\n'WithoutCrore Will have only that part part which has Less than Crore\n'Crore Will have only Crore Part\n\tIf DecimalNumber <> \"\" Then\n\t\tWithoutCrore = Right(MyNumber, 7) & \".\" & DecimalNumber\n\tElse\n\t\tWithoutCrore = Right(MyNumber, 7)\n\tEnd If\n\tCrore = Left(MyNumber, Len(MyNumber) - Len(Right(MyNumber, 7)))\n\t\n\tIf Crore <> \"\" Then\n\t\t\n'If the amount is greater than Crore\n\t\tCurrency2Word = CurrToWord(Crore) & \" Crore \" & CurrToWord(WithoutCrore)\n\tElse\n\t\t\n'If the amount is lesser than Crore\n\t\tCurrency2Word = CurrToWord(WithoutCrore)\n\tEnd If\nEnd Function\n\nFunction CurrToWord(ByVal MyNumber)\n\t\n\tDim WholeNumber, Deci, Var\n\tDim DecimalPlace, Count\n\t\n\tReDim Place(9) As String\n\tPlace(2) = \" Thousand \"\n\tPlace(3) = \" Lakhs \"\n\t\n'String representation of amount.\n\t\n\tMyNumber = Trim(Str(MyNumber))\n\t\n'Get the Decimal Place if any\n\tDecimalPlace = InStr(MyNumber, \".\")\n\t\n' Convert Deci and set MyNumber to Rupee amount.\n\tIf DecimalPlace > 0 Then\n\t\tDeci = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _\n\t\t\"00\", 2))\n\t\tMyNumber = Trim(Left(MyNumber, DecimalPlace - 1))\n\tEnd If\n\t\n\tIf Len(Trim(Str(MyNumber))) Mod 2 = 0 Then\n\t\tMyNumber = \"0\" & Trim(Str(MyNumber))\n\tElse\n\t\tMyNumber = Trim(Str(MyNumber))\n\tEnd If\n\t\n\tCount = 1\n\t\n\tIf Len(MyNumber) = 1 Then\n\t\tMyNumber = \"00\" & MyNumber\n\tEnd If\n\t\n\tDo While MyNumber <> \"\"\n\t\tIf Count = 1 Or Count > 7 Then\n\t\t\tVar = GetHundreds(Right(MyNumber, 3))\n\t\tElse\n\t\t\tVar = GetTens(Right(MyNumber, 2))\n\t\tEnd If\n\t\t\n\t\tIf Var <> \"\" Then WholeNumber = Var & Place(Count) & WholeNumber\n\t\tIf Len(MyNumber) >= 1 And Count < 2 Then\n\t\t\tMyNumber = Left(MyNumber, Len(MyNumber) - 3)\n\t\t\t\n\t\tElseIf Len(MyNumber) >= 1 And Count > 1 Then\n\t\t\tMyNumber = Left(MyNumber, Len(MyNumber) - 2)\n\t\tElse\n\t\t\tMyNumber = \"\"\n\t\tEnd If\n\t\tCount = Count + 1\n\t\t\n\tLoop\n\tIf (Deci = \"\") Then\n\t\t\n\t\tCurrToWord = WholeNumber & Deci\n\tElse\n\t\tCurrToWord = WholeNumber & \" and \" & Deci & \" Paise Only\"\n\tEnd If\n\t\nEnd Function\n\n\n\n' Converts a number from 100-999 into text\n\n'***************************************************************\n\nFunction GetHundreds(ByVal MyNumber)\n\tDim Result As String\n\tIf Val(MyNumber) = 0 Then Exit Function\n\tMyNumber = Right(\"000\" & MyNumber, 3)\n' Convert the hundreds place.\n\tIf Mid(MyNumber, 1, 1) <> \"0\" Then\n\t\tResult = GetSingleDigit(Mid(MyNumber, 1, 1)) & \" Hundred \"\n\tEnd If\n\t\n' Convert the tens and ones place.\n\tIf Mid(MyNumber, 2, 1) <> \"0\" Then\n\t\tResult = Result & GetTens(Mid(MyNumber, 2))\n\tElse\n\t\tResult = Result & GetSingleDigit(Mid(MyNumber, 3))\n\tEnd If\n\tGetHundreds = Result\nEnd Function\n\n\n' This will Convert a number from 10 to 99 into text.\n\n'**********************************************************\n\n\nFunction GetTens(TensText)\n\t\n\tDim Result As String\n\tResult = \"\"           ' Null out the Varorary function value.\n\tIf Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...\n\t\tSelect Case Val(TensText)\n\t\tCase 10: Result = \"Ten\"\n\t\tCase 11: Result = \"Eleven\"\n\t\tCase 12: Result = \"Twelve\"\n\t\tCase 13: Result = \"Thirteen\"\n\t\tCase 14: Result = \"Fourteen\"\n\t\tCase 15: Result = \"Fifteen\"\n\t\tCase 16: Result = \"Sixteen\"\n\t\tCase 17: Result = \"Seventeen\"\n\t\tCase 18: Result = \"Eighteen\"\n\t\tCase 19: Result = \"Nineteen\"\n\t\tCase Else\n\t\tEnd Select\n\tElse                                 ' If value between 20-99...\n\t\tSelect Case Val(Left(TensText, 1))\n\t\tCase 2: Result = \"Twenty \"\n\t\tCase 3: Result = \"Thirty \"\n\t\tCase 4: Result = \"Forty \"\n\t\tCase 5: Result = \"Fifty \"\n\t\tCase 6: Result = \"Sixty \"\n\t\tCase 7: Result = \"Seventy \"\n\t\tCase 8: Result = \"Eighty \"\n\t\tCase 9: Result = \"Ninety \"\n\t\tCase Else\n\t\tEnd Select\n\t\t\n\t\tResult = Result & GetSingleDigit _\n\t\t(Right(TensText, 1))  ' Retrieve ones place.\n\tEnd If\n\tGetTens = Result\nEnd Function\n\n\n' Converts a number from 1 to 9 into text.\n\n'****************************************************\n\nFunction GetSingleDigit(SingleDigit)\n\tSelect Case Val(SingleDigit)\n\tCase 1: GetSingleDigit = \"One\"\n\tCase 2: GetSingleDigit = \"Two\"\n\tCase 3: GetSingleDigit = \"Three\"\n\tCase 4: GetSingleDigit = \"Four\"\n\tCase 5: GetSingleDigit = \"Five\"\n\tCase 6: GetSingleDigit = \"Six\"\n\tCase 7: GetSingleDigit = \"Seven\"\n\tCase 8: GetSingleDigit = \"Eight\"\n\tCase 9: GetSingleDigit = \"Nine\"\n\tCase Else: GetSingleDigit = \"\"\n\tEnd Select\nEnd Function\n\n<\/code>\n<\/pre>\n<p>\n<a name=\"download-udf\"><\/a><\/p>\n<div class=\"alert alert-warning\">\nTo Check out Excel Macro Tutorials, visit <strong><a href=\"https:\/\/vmlogger.com\/excel\/excel-macro-tutorial\/\" target=\"_blank\" rel=\"noopener\">Excel Macro Tutorial<\/a><\/strong>\n<\/div>\n<p>[\/et_pb_text][et_pb_cta title=&#8221;Download Excel File &#8211; Currency in Words&#8221; button_url=&#8221;\/excel\/wp-content\/downloads\/SpellCurrency-Lakhs&#038;Crore.xls&#8221; button_text=&#8221;Download Now&#8221; _builder_version=&#8221;4.17.6&#8243; _module_preset=&#8221;a50a16dd-d05f-4ea2-acab-1468d2e4010e&#8221; global_colors_info=&#8221;{}&#8221;]You can download this excel workbook which can convert your numbers into INR, USD, or any. other currency numbers in Words. Enjoy<\/p>\n<p><img decoding=\"async\" src=\"https:\/\/vmlogger.com\/excel\/wp-content\/uploads\/sites\/11\/2018\/09\/Spell_Numbers_To_Letters.jpg\" width=\"undefined\" height=\"undefined\" alt=\"Number in Words\" class=\"wp-image-15017 size-full\" \/>[\/et_pb_cta][\/et_pb_column][\/et_pb_row][\/et_pb_section]<\/p>\n<span class=\"et_bloom_bottom_trigger\"><\/span>","protected":false},"excerpt":{"rendered":"<p>Many times we require to change the Numbers in Words. For Example 6734862=Sixty Seven Lakhs Thirty-Four Thousand Eight Hundred Sixty Two. In Excel, there is no Formula as such to Convert Numbers into Words. I have written one UDF : User Defined Function. After using this Function, you will be able to change any numbers [&hellip;]<\/p>\n","protected":false},"author":45,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_et_pb_use_builder":"on","_et_pb_old_content":"Many times we require to change the Numbers in Words. <strong>For Example 6734862=Sixty Seven Lakhs Thirty-Four Thousand Eight Hundred Sixty Two.<\/strong> In Excel, there is no Formula as such to Convert Numbers into Words. I have written one <strong>UDF : User Defined Function<\/strong>. After using this Function, you will be able to change any numbers in Words. Now there can be two ways of converting Numbers into Words in terms of Millions, Billions, etc Another way could be in Lakhs and Crores.\r\n\u00a0\r\n<ul>\r\n<li>\r\n<a href=\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/#currency_to_word\"><strong>How to Convert Numbers in Words or Currency to Words<\/strong><\/a><\/li>\r\n<li>\r\n<a href=\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/#download-udf\"><strong>Download Free - UDF - Spell Currency <\/strong><\/a><\/li>\r\n<\/ul>\r\n<br\/>\r\n<h2>How to Convert Numbers in Words or Currency to Words<\/h2>\r\n<a name=\"currency_to_word\"><\/a>\r\n<strong>Step 1. <\/strong> Open your Excel Workbook\r\n<strong>Step 2. <\/strong> Press Alt + F11\r\n<strong>Step 3. <\/strong> Now Add a Regular Module in Excel\r\n<strong>Step 4. <\/strong> Now Copy and Paste the Below Code in the Module\r\n<strong>Step 5. <\/strong> Once you have copied and Pasted the Below Code in a Module, you can use the Below Formula in your Workbook in any WorkSheet as shown in Below Picture:\r\n\r\n<strong>Currenct2Word(B5)<\/strong>\r\n\u00a0\r\n<strong>B5 : <\/strong> Is the Cell Address Where the Number is there\r\n\r\n\r\n[caption id=\"attachment_242435\" align=\"aligncenter\" width=\"542\"]<img src=\"https:\/\/vmlogger.com\/excel\/wp-content\/uploads\/sites\/11\/2012\/04\/CurrencyToWord-1.png\" alt=\"Currency to Words\" width=\"542\" height=\"220\" class=\"size-full wp-image-242435\" \/> Numbers to convert in words[\/caption]\r\n\r\n<br\/>\r\n\r\n<pre>\r\n<code class=\"language-vbnet\">\r\n\r\nFunction Currency2Word(ByVal MyNumber)\r\n\t\r\n\tDim WithoutCrore, Crore, DecimalPlace\r\n\tDim DecimalNumber\r\n\t\r\n\tMyNumber = Trim(Str(MyNumber))\r\n\t\r\n'get the Decimal Position\r\n\tDecimalPlace = InStr(MyNumber, \".\")\r\n\t\r\n'Get the Decimal Part of the whole Number\r\n\tIf DecimalPlace <> 0 Then\r\n\t\tDecimalNumber = Right(MyNumber, Len(MyNumber) - DecimalPlace)\r\n\tElse\r\n\t\tDecimalNumber = \"\"\r\n\tEnd If\r\n\t\r\n'Get the Decimal Free Number\r\n\tIf DecimalPlace > 0 Then\r\n\t\tMyNumber = Trim(Left(MyNumber, DecimalPlace - 1))\r\n\tEnd If\r\n\t\r\n'Divide the Decimal Free Number in 2 part - WithoutCrore and Crore\r\n'WithoutCrore Will have only that part part which has Less than Crore\r\n'Crore Will have only Crore Part\r\n\tIf DecimalNumber <> \"\" Then\r\n\t\tWithoutCrore = Right(MyNumber, 7) & \".\" & DecimalNumber\r\n\tElse\r\n\t\tWithoutCrore = Right(MyNumber, 7)\r\n\tEnd If\r\n\tCrore = Left(MyNumber, Len(MyNumber) - Len(Right(MyNumber, 7)))\r\n\t\r\n\tIf Crore <> \"\" Then\r\n\t\t\r\n'If the amount is greater than Crore\r\n\t\tCurrency2Word = CurrToWord(Crore) & \" Crore \" & CurrToWord(WithoutCrore)\r\n\tElse\r\n\t\t\r\n'If the amount is lesser than Crore\r\n\t\tCurrency2Word = CurrToWord(WithoutCrore)\r\n\tEnd If\r\nEnd Function\r\n\r\nFunction CurrToWord(ByVal MyNumber)\r\n\t\r\n\tDim WholeNumber, Deci, Var\r\n\tDim DecimalPlace, Count\r\n\t\r\n\tReDim Place(9) As String\r\n\tPlace(2) = \" Thousand \"\r\n\tPlace(3) = \" Lakhs \"\r\n\t\r\n'String representation of amount.\r\n\t\r\n\tMyNumber = Trim(Str(MyNumber))\r\n\t\r\n'Get the Decimal Place if any\r\n\tDecimalPlace = InStr(MyNumber, \".\")\r\n\t\r\n' Convert Deci and set MyNumber to Rupee amount.\r\n\tIf DecimalPlace > 0 Then\r\n\t\tDeci = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _\r\n\t\t\"00\", 2))\r\n\t\tMyNumber = Trim(Left(MyNumber, DecimalPlace - 1))\r\n\tEnd If\r\n\t\r\n\tIf Len(Trim(Str(MyNumber))) Mod 2 = 0 Then\r\n\t\tMyNumber = \"0\" & Trim(Str(MyNumber))\r\n\tElse\r\n\t\tMyNumber = Trim(Str(MyNumber))\r\n\tEnd If\r\n\t\r\n\tCount = 1\r\n\t\r\n\tIf Len(MyNumber) = 1 Then\r\n\t\tMyNumber = \"00\" & MyNumber\r\n\tEnd If\r\n\t\r\n\tDo While MyNumber <> \"\"\r\n\t\tIf Count = 1 Or Count > 7 Then\r\n\t\t\tVar = GetHundreds(Right(MyNumber, 3))\r\n\t\tElse\r\n\t\t\tVar = GetTens(Right(MyNumber, 2))\r\n\t\tEnd If\r\n\t\t\r\n\t\tIf Var <> \"\" Then WholeNumber = Var & Place(Count) & WholeNumber\r\n\t\tIf Len(MyNumber) >= 1 And Count < 2 Then\r\n\t\t\tMyNumber = Left(MyNumber, Len(MyNumber) - 3)\r\n\t\t\t\r\n\t\tElseIf Len(MyNumber) >= 1 And Count > 1 Then\r\n\t\t\tMyNumber = Left(MyNumber, Len(MyNumber) - 2)\r\n\t\tElse\r\n\t\t\tMyNumber = \"\"\r\n\t\tEnd If\r\n\t\tCount = Count + 1\r\n\t\t\r\n\tLoop\r\n\tIf (Deci = \"\") Then\r\n\t\t\r\n\t\tCurrToWord = WholeNumber & Deci\r\n\tElse\r\n\t\tCurrToWord = WholeNumber & \" and \" & Deci & \" Paise Only\"\r\n\tEnd If\r\n\t\r\nEnd Function\r\n\r\n\r\n\r\n' Converts a number from 100-999 into text\r\n\r\n'***************************************************************\r\n\r\nFunction GetHundreds(ByVal MyNumber)\r\n\tDim Result As String\r\n\tIf Val(MyNumber) = 0 Then Exit Function\r\n\tMyNumber = Right(\"000\" & MyNumber, 3)\r\n' Convert the hundreds place.\r\n\tIf Mid(MyNumber, 1, 1) <> \"0\" Then\r\n\t\tResult = GetSingleDigit(Mid(MyNumber, 1, 1)) & \" Hundred \"\r\n\tEnd If\r\n\t\r\n' Convert the tens and ones place.\r\n\tIf Mid(MyNumber, 2, 1) <> \"0\" Then\r\n\t\tResult = Result & GetTens(Mid(MyNumber, 2))\r\n\tElse\r\n\t\tResult = Result & GetSingleDigit(Mid(MyNumber, 3))\r\n\tEnd If\r\n\tGetHundreds = Result\r\nEnd Function\r\n\r\n\r\n' This will Convert a number from 10 to 99 into text.\r\n\r\n'**********************************************************\r\n\r\n\r\nFunction GetTens(TensText)\r\n\t\r\n\tDim Result As String\r\n\tResult = \"\"           ' Null out the Varorary function value.\r\n\tIf Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...\r\n\t\tSelect Case Val(TensText)\r\n\t\tCase 10: Result = \"Ten\"\r\n\t\tCase 11: Result = \"Eleven\"\r\n\t\tCase 12: Result = \"Twelve\"\r\n\t\tCase 13: Result = \"Thirteen\"\r\n\t\tCase 14: Result = \"Fourteen\"\r\n\t\tCase 15: Result = \"Fifteen\"\r\n\t\tCase 16: Result = \"Sixteen\"\r\n\t\tCase 17: Result = \"Seventeen\"\r\n\t\tCase 18: Result = \"Eighteen\"\r\n\t\tCase 19: Result = \"Nineteen\"\r\n\t\tCase Else\r\n\t\tEnd Select\r\n\tElse                                 ' If value between 20-99...\r\n\t\tSelect Case Val(Left(TensText, 1))\r\n\t\tCase 2: Result = \"Twenty \"\r\n\t\tCase 3: Result = \"Thirty \"\r\n\t\tCase 4: Result = \"Forty \"\r\n\t\tCase 5: Result = \"Fifty \"\r\n\t\tCase 6: Result = \"Sixty \"\r\n\t\tCase 7: Result = \"Seventy \"\r\n\t\tCase 8: Result = \"Eighty \"\r\n\t\tCase 9: Result = \"Ninety \"\r\n\t\tCase Else\r\n\t\tEnd Select\r\n\t\t\r\n\t\tResult = Result & GetSingleDigit _\r\n\t\t(Right(TensText, 1))  ' Retrieve ones place.\r\n\tEnd If\r\n\tGetTens = Result\r\nEnd Function\r\n\r\n\r\n' Converts a number from 1 to 9 into text.\r\n\r\n'****************************************************\r\n\r\nFunction GetSingleDigit(SingleDigit)\r\n\tSelect Case Val(SingleDigit)\r\n\tCase 1: GetSingleDigit = \"One\"\r\n\tCase 2: GetSingleDigit = \"Two\"\r\n\tCase 3: GetSingleDigit = \"Three\"\r\n\tCase 4: GetSingleDigit = \"Four\"\r\n\tCase 5: GetSingleDigit = \"Five\"\r\n\tCase 6: GetSingleDigit = \"Six\"\r\n\tCase 7: GetSingleDigit = \"Seven\"\r\n\tCase 8: GetSingleDigit = \"Eight\"\r\n\tCase 9: GetSingleDigit = \"Nine\"\r\n\tCase Else: GetSingleDigit = \"\"\r\n\tEnd Select\r\nEnd Function\r\n\r\n<\/code>\r\n<\/pre>\r\n<br\/>\r\n<a name=\"download-udf\"><\/a>\r\n\r\n\r\n<div class=\"alert alert-warning>\r\nTo Check out Excel Macro Tutorials, visit <strong><a href=\"https:\/\/vmlogger.com\/excel\/excel-macro-tutorial\/\" target=\"_blank\" rel=\"noopener\">Excel Macro Tutorial<\/a><\/strong>\r\n<\/div>","_et_gb_content_width":"","footnotes":""},"categories":[1673,1246,2056],"tags":[],"yoast_head":"<!-- This site is optimized with the Yoast SEO Premium plugin v21.9 (Yoast SEO v21.9.1) - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>User Defined Function in Excel to Convert Currency to Words - Let&#039;s excel in Excel<\/title>\n<meta name=\"description\" content=\"Excel VBA to spell currency. Spell numbers in Words. Excel VBA function to convert currency in Words. User Defined Excel function to spell currency in words. Excel VBA to spell numbers in Words. Convert Numbers in words using Excel formula. Spell Numbers in to words using Excel VBA. Number to words converter in Excel.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"User Defined Function in Excel to Convert Currency to Words\" \/>\n<meta property=\"og:description\" content=\"Excel VBA to spell currency. Spell numbers in Words. Excel VBA function to convert currency in Words. User Defined Excel function to spell currency in words. Excel VBA to spell numbers in Words. Convert Numbers in words using Excel formula. Spell Numbers in to words using Excel VBA. Number to words converter in Excel.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/\" \/>\n<meta property=\"og:site_name\" content=\"Let&#039;s excel in Excel\" \/>\n<meta property=\"article:publisher\" content=\"http:\/\/www.facebook.com\/vmlogger\" \/>\n<meta property=\"article:author\" content=\"http:\/\/www.facebook.com\/vmlogger\" \/>\n<meta property=\"article:published_time\" content=\"2012-04-09T16:37:15+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2022-08-06T13:53:08+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/vmlogger.com\/excel\/wp-content\/uploads\/sites\/11\/2022\/07\/vmlogger.com_-1.png\" \/>\n\t<meta property=\"og:image:width\" content=\"1200\" \/>\n\t<meta property=\"og:image:height\" content=\"628\" \/>\n\t<meta property=\"og:image:type\" content=\"image\/png\" \/>\n<meta name=\"author\" content=\"Vishwamitra Mishra\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:creator\" content=\"@https:\/\/www.twitter.com\/learnexcelmacro\" \/>\n<meta name=\"twitter:site\" content=\"@learnexcelmacro\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Vishwamitra Mishra\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"5 minutes\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/\"},\"author\":{\"name\":\"Vishwamitra Mishra\",\"@id\":\"https:\/\/vmlogger.com\/excel\/#\/schema\/person\/7500a107b0b2d35a8492acf0d11fc8e5\"},\"headline\":\"User Defined Function in Excel to Convert Currency to Words\",\"datePublished\":\"2012-04-09T16:37:15+00:00\",\"dateModified\":\"2022-08-06T13:53:08+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/\"},\"wordCount\":403,\"commentCount\":5,\"publisher\":{\"@id\":\"https:\/\/vmlogger.com\/excel\/#\/schema\/person\/7500a107b0b2d35a8492acf0d11fc8e5\"},\"articleSection\":[\"Excel Functions\",\"Excel Macro\",\"User Defined Function\"],\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/\",\"url\":\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/\",\"name\":\"User Defined Function in Excel to Convert Currency to Words - Let&#039;s excel in Excel\",\"isPartOf\":{\"@id\":\"https:\/\/vmlogger.com\/excel\/#website\"},\"datePublished\":\"2012-04-09T16:37:15+00:00\",\"dateModified\":\"2022-08-06T13:53:08+00:00\",\"description\":\"Excel VBA to spell currency. Spell numbers in Words. Excel VBA function to convert currency in Words. User Defined Excel function to spell currency in words. Excel VBA to spell numbers in Words. Convert Numbers in words using Excel formula. Spell Numbers in to words using Excel VBA. Number to words converter in Excel.\",\"breadcrumb\":{\"@id\":\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/vmlogger.com\/excel\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Excel Functions\",\"item\":\"https:\/\/vmlogger.com\/excel\/excel-functions\/\"},{\"@type\":\"ListItem\",\"position\":3,\"name\":\"User Defined Function in Excel to Convert Currency to Words\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/vmlogger.com\/excel\/#website\",\"url\":\"https:\/\/vmlogger.com\/excel\/\",\"name\":\"Let&#039;s excel in Excel\",\"description\":\"Let&#039;s share knowledge\",\"publisher\":{\"@id\":\"https:\/\/vmlogger.com\/excel\/#\/schema\/person\/7500a107b0b2d35a8492acf0d11fc8e5\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/vmlogger.com\/excel\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"en-US\"},{\"@type\":[\"Person\",\"Organization\"],\"@id\":\"https:\/\/vmlogger.com\/excel\/#\/schema\/person\/7500a107b0b2d35a8492acf0d11fc8e5\",\"name\":\"Vishwamitra Mishra\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/vmlogger.com\/excel\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/vmlogger.com\/excel\/wp-content\/uploads\/sites\/11\/2022\/07\/avataaars-1.png\",\"contentUrl\":\"https:\/\/vmlogger.com\/excel\/wp-content\/uploads\/sites\/11\/2022\/07\/avataaars-1.png\",\"width\":528,\"height\":560,\"caption\":\"Vishwamitra Mishra\"},\"logo\":{\"@id\":\"https:\/\/vmlogger.com\/excel\/#\/schema\/person\/image\/\"},\"description\":\"My name is Vishwamitra Mishra. Friends Call me Vishwa. I hold a Bachelor\u2019s Degree in Computer Science from D.A.V.V. Indore &amp; currently working as a Technical Lead having over 7 years of experience.\",\"sameAs\":[\"http:\/\/www.learnexcelmacro.com\",\"http:\/\/www.facebook.com\/vmlogger\",\"https:\/\/twitter.com\/https:\/\/www.twitter.com\/learnexcelmacro\",\"https:\/\/www.youtube.com\/c\/VMLogger\"],\"url\":\"https:\/\/vmlogger.com\/excel\/author\/vishwamitra\/\"}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"User Defined Function in Excel to Convert Currency to Words - Let&#039;s excel in Excel","description":"Excel VBA to spell currency. Spell numbers in Words. Excel VBA function to convert currency in Words. User Defined Excel function to spell currency in words. Excel VBA to spell numbers in Words. Convert Numbers in words using Excel formula. Spell Numbers in to words using Excel VBA. Number to words converter in Excel.","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/","og_locale":"en_US","og_type":"article","og_title":"User Defined Function in Excel to Convert Currency to Words","og_description":"Excel VBA to spell currency. Spell numbers in Words. Excel VBA function to convert currency in Words. User Defined Excel function to spell currency in words. Excel VBA to spell numbers in Words. Convert Numbers in words using Excel formula. Spell Numbers in to words using Excel VBA. Number to words converter in Excel.","og_url":"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/","og_site_name":"Let&#039;s excel in Excel","article_publisher":"http:\/\/www.facebook.com\/vmlogger","article_author":"http:\/\/www.facebook.com\/vmlogger","article_published_time":"2012-04-09T16:37:15+00:00","article_modified_time":"2022-08-06T13:53:08+00:00","og_image":[{"width":1200,"height":628,"url":"https:\/\/vmlogger.com\/excel\/wp-content\/uploads\/sites\/11\/2022\/07\/vmlogger.com_-1.png","type":"image\/png"}],"author":"Vishwamitra Mishra","twitter_card":"summary_large_image","twitter_creator":"@https:\/\/www.twitter.com\/learnexcelmacro","twitter_site":"@learnexcelmacro","twitter_misc":{"Written by":"Vishwamitra Mishra","Est. reading time":"5 minutes"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/#article","isPartOf":{"@id":"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/"},"author":{"name":"Vishwamitra Mishra","@id":"https:\/\/vmlogger.com\/excel\/#\/schema\/person\/7500a107b0b2d35a8492acf0d11fc8e5"},"headline":"User Defined Function in Excel to Convert Currency to Words","datePublished":"2012-04-09T16:37:15+00:00","dateModified":"2022-08-06T13:53:08+00:00","mainEntityOfPage":{"@id":"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/"},"wordCount":403,"commentCount":5,"publisher":{"@id":"https:\/\/vmlogger.com\/excel\/#\/schema\/person\/7500a107b0b2d35a8492acf0d11fc8e5"},"articleSection":["Excel Functions","Excel Macro","User Defined Function"],"inLanguage":"en-US","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/","url":"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/","name":"User Defined Function in Excel to Convert Currency to Words - Let&#039;s excel in Excel","isPartOf":{"@id":"https:\/\/vmlogger.com\/excel\/#website"},"datePublished":"2012-04-09T16:37:15+00:00","dateModified":"2022-08-06T13:53:08+00:00","description":"Excel VBA to spell currency. Spell numbers in Words. Excel VBA function to convert currency in Words. User Defined Excel function to spell currency in words. Excel VBA to spell numbers in Words. Convert Numbers in words using Excel formula. Spell Numbers in to words using Excel VBA. Number to words converter in Excel.","breadcrumb":{"@id":"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/vmlogger.com\/excel\/2012\/04\/currency-to-words\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/vmlogger.com\/excel\/"},{"@type":"ListItem","position":2,"name":"Excel Functions","item":"https:\/\/vmlogger.com\/excel\/excel-functions\/"},{"@type":"ListItem","position":3,"name":"User Defined Function in Excel to Convert Currency to Words"}]},{"@type":"WebSite","@id":"https:\/\/vmlogger.com\/excel\/#website","url":"https:\/\/vmlogger.com\/excel\/","name":"Let&#039;s excel in Excel","description":"Let&#039;s share knowledge","publisher":{"@id":"https:\/\/vmlogger.com\/excel\/#\/schema\/person\/7500a107b0b2d35a8492acf0d11fc8e5"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/vmlogger.com\/excel\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"en-US"},{"@type":["Person","Organization"],"@id":"https:\/\/vmlogger.com\/excel\/#\/schema\/person\/7500a107b0b2d35a8492acf0d11fc8e5","name":"Vishwamitra Mishra","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/vmlogger.com\/excel\/#\/schema\/person\/image\/","url":"https:\/\/vmlogger.com\/excel\/wp-content\/uploads\/sites\/11\/2022\/07\/avataaars-1.png","contentUrl":"https:\/\/vmlogger.com\/excel\/wp-content\/uploads\/sites\/11\/2022\/07\/avataaars-1.png","width":528,"height":560,"caption":"Vishwamitra Mishra"},"logo":{"@id":"https:\/\/vmlogger.com\/excel\/#\/schema\/person\/image\/"},"description":"My name is Vishwamitra Mishra. Friends Call me Vishwa. I hold a Bachelor\u2019s Degree in Computer Science from D.A.V.V. Indore &amp; currently working as a Technical Lead having over 7 years of experience.","sameAs":["http:\/\/www.learnexcelmacro.com","http:\/\/www.facebook.com\/vmlogger","https:\/\/twitter.com\/https:\/\/www.twitter.com\/learnexcelmacro","https:\/\/www.youtube.com\/c\/VMLogger"],"url":"https:\/\/vmlogger.com\/excel\/author\/vishwamitra\/"}]}},"_links":{"self":[{"href":"https:\/\/vmlogger.com\/excel\/wp-json\/wp\/v2\/posts\/12134"}],"collection":[{"href":"https:\/\/vmlogger.com\/excel\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/vmlogger.com\/excel\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/vmlogger.com\/excel\/wp-json\/wp\/v2\/users\/45"}],"replies":[{"embeddable":true,"href":"https:\/\/vmlogger.com\/excel\/wp-json\/wp\/v2\/comments?post=12134"}],"version-history":[{"count":0,"href":"https:\/\/vmlogger.com\/excel\/wp-json\/wp\/v2\/posts\/12134\/revisions"}],"wp:attachment":[{"href":"https:\/\/vmlogger.com\/excel\/wp-json\/wp\/v2\/media?parent=12134"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/vmlogger.com\/excel\/wp-json\/wp\/v2\/categories?post=12134"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/vmlogger.com\/excel\/wp-json\/wp\/v2\/tags?post=12134"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}