You can add code to the Quick Toolbar and run the code each time the code button is clicked on the toolbar. If you need to run the code manually, there is no way to find it from the above steps. Drag the autofill handle down to get all the results. Now when you input the formula =NumberstoWords(A2) in cell B2 and press the Enter key, the corresponding English words will be returned. Click the OK button to finish the setting.ġ2. Then the Convert Number To Words Add-in you customized is inserted and turned on. Choose the Add-in you just saved, then click the OK button.ġ1. Go to the Developer tab, click Excel Add-ins in the Add-ins group.ĩ. The #NAME? error value will be returned because VBA code has not been applied in all workbooks yet.Ĩ. Input the formula =NumberstoWords(A2) in cell B2. Open a new workbook with data needed to be converted. Back to the Excel, close the empty workbook which has been saved as an Excel Add-in.ħ. Then click the Save button to save the workbook with VBA code as an Excel Add-in.Ħ. And select the Excel Add-in (*.xlam) option in the Save as type drop-down list.ĥ. In the Save As window, input the workbook name in the File name box. Click the Save icon in the top-left corner of the ribbon or click Ctrl + S to open the Save As window.Ĥ. 
XStr = xStr & xArr_2(Val(Left(xTDgt, 1))) XArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ") XRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)įunction GetTenDigits(xTDgt, xB As Boolean) XRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
XNumber = Left(xNumber, Len(xNumber) - 3)įunction GetHundredsDigits(xHDgt, xB As Boolean) XT = GetHundredsDigits(Right(xNumber, 3), True) XT = GetHundredsDigits(Right(xNumber, 3), False) If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1 XStrPoint = Left(xStr, Len(xNumber) - xDP) VBA code: Convert numbers to words Function NumberstoWords(ByVal MyNumber) Click Insert > Module and paste the following macro in the Module Window. Press the Alt + F11 keys in Excel, and it opens the Microsoft Visual Basic for Applications window.Ģ. Save and Use the VBA Code in All Workbooksįor example, you want to use the VBA code to convert numbers to English words and save the VBA module in all workbooks in case you want to use the VBA code in the future.
0 kommentar(er)
