Hướng dẫn how to amount convert in word in excel - làm thế nào để chuyển đổi số tiền trong word trong excel

In this article I will show you two quick and free ways to convert currency numbers into English words in Excel 2019, 2016, 2013 and other versions.

Microsoft Excel is a great program to calculate this and that. It was initially developed to process large data arrays. However, it also lets creating accounting records like invoices, evaluation or balance sheets quickly and effectively.

In more or less solid payment documents it is necessary to duplicate numeric values with their word form. It is much harder to falsify typed numbers than those written by hand. Some swindler can try to make 8000 out of 3000, while it is almost impossible to secretly replace "three" with "eight".

So what you need is not just convert numbers to words in Excel (e.g. 123.45 to "one hundred and twenty three, forty five"), but spell out dollars and cents (e.g. $29.95 as "twenty nine dollars and ninety nine cents" ), pounds and pence for GBP, euros and eurocents for EUR, etc.

Even the latest versions of Excel don't have a built-in tool for spelling numbers, not to mention earlier versions. But that is when Excel is really good. You can always improve its functionality using formulas in all their
combinations, VBA macros, or third-party add-ins.

Below you'll find two ways to convert numbers from figures to words

And, possibly, you may need to convert Words to Numbers in Excel

Note. If you are looking for the number to text conversion, which means you want Excel to see your number as text, it's a bit different thing. For this, you can use the TEXT function or a few other ways described in How to change numbers to text in Excel.

SpellNumber VBA macro to convert numbers to words

As I have already mentioned, Microsoft didn't want to add a tool for this task. However, when they saw how many users needed it, they created and published the special VBA macro on their website. The macro does what its name SpellNumber suggests. All other macros I came across are based on the Microsoft code.

You can find the macro mentioned as "spellnumber formula". However, it is not a formula, but a macro function, or to be more precise Excel User defined function (UDF).

The spellnumber option is able to write dollars and cents. If you need a different currency, you can change "dollar" and "cent" with the name of your one.

If you are not a VBA savvy guy, below you will find a copy of the code. If you still don't want or haven't time to sort this out, please use this solution.

1. Open the workbook where you need to spell the numbers.
2. Press Alt+F11 to open the Visual Basic editor window.
3. If you have several books opened, check that the needed workbook is active using the list of projects in the upper left corner of the editor (one of the workbook elements is highlighted with blue).
4. In the editor menu go to Insert-> Module.
   
5. You should see a window named YourBook - Module1. Select all of the code in the frame below and paste it to this window.
   

   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 " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, ".") 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 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 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 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

6. Nhấn CTRL+S để lưu sổ làm việc cập nhật.Ctrl+S to save the updated workbook.

   Bạn sẽ cần phải thay đổi sổ làm việc của bạn. Khi bạn cố gắng lưu sổ làm việc bằng macro, bạn sẽ nhận được tin nhắn "các tính năng sau đây không thể được lưu trong sổ làm việc không có macro"

   

   Nhấp vào Không. Khi bạn thấy một hộp thoại mới, chọn tùy chọn lưu làm. Trong trường "Lưu dưới dạng loại" Chọn tùy chọn "Sổ làm việc hỗ trợ macro".

   

Sử dụng macro SpellNumber trong bảng tính của bạn

Bây giờ bạn có thể sử dụng chức năng SpellNumber trong tài liệu Excel của bạn. Nhập =SpellNumber(A2) vào ô nơi bạn cần để có được số được viết bằng từ. Ở đây A2 là địa chỉ của ô với số hoặc số lượng.

Ở đây bạn có thể thấy kết quả:

Voila!

Nhanh chóng sao chép chức năng SpellNumber vào các ô khác.

Nếu bạn cần chuyển đổi toàn bộ bảng, không chỉ 1 ô, hãy đặt con trỏ chuột của bạn lên góc dưới bên phải của ô với công thức cho đến khi nó biến thành một cây thánh giá nhỏ màu đen:

Nhấp chuột trái và kéo nó qua cột để điền vào công thức. Phát hành nút để xem kết quả:

Ghi chú. Xin lưu ý rằng nếu bạn sử dụng SpellNumber với một liên kết đến một ô khác, tổng bằng văn bản sẽ được cập nhật mỗi lần số trong ô nguồn được thay đổi. Bạn cũng có thể nhập số trực tiếp vào hàm, ví dụ, =SpellNumber(29.95) (29,95 - không có dấu ngoặc kép và dấu hiệu đô la). Please keep in mind that if you use SpellNumber with a link to another cell, the written sum will be updated each time the number in the source cell is changed.
You can also enter the number directly into the function, for example, =SpellNumber(29.95) (29.95 - without quotation marks and the Dollar sign).

Nhược điểm của việc sử dụng macro để đánh vần số trong excel

Trước hết, bạn phải biết VBA để sửa đổi mã theo nhu cầu của bạn. Cần phải dán mã cho mỗi sổ làm việc, nơi bạn dự định thay đổi nó. Nếu không, bạn sẽ cần tạo một tệp mẫu với macro và định cấu hình excel để tải tệp này ở mỗi lần bắt đầu.

Nhược điểm chính của việc sử dụng macro là nếu bạn gửi sổ làm việc cho người khác, người này sẽ không nhìn thấy văn bản trừ khi macro được tích hợp vào sổ làm việc. Và ngay cả khi nó được tích hợp, họ sẽ nhận được một cảnh báo rằng có các macro trong sổ làm việc.

Số đánh vần thành các từ bằng cách sử dụng một bổ trợ đặc biệt

Đối với người dùng Excel cần nhanh chóng đánh vần tổng số nhưng không có thời gian để học VBA hoặc tìm ra cách giải quyết, chúng tôi đã tạo ra một công cụ đặc biệt có thể nhanh chóng thực hiện chuyển đổi số lượng thành từ cho một vài loại tiền tệ phổ biến. Vui lòng đáp ứng bổ trợ số chính tả đi kèm với bản phát hành mới nhất của Ultimate Suite cho Excel.

Bên cạnh việc sẵn sàng sử dụng, công cụ này thực sự linh hoạt trong việc chuyển đổi số lượng thành văn bản:

• Bạn có thể chọn một trong các loại tiền tệ sau: USD, EUR, GBP, BIT, AUD.
• Đánh vần phần phân số trong xu, đồng xu hoặc bitcents.
• Chọn bất kỳ trường hợp văn bản nào cho kết quả: chữ thường, trường hợp trên, trường hợp tiêu đề hoặc trường hợp câu.
• Đánh vần phần thập phân theo những cách khác nhau.
• Bao gồm hoặc bỏ qua số xu.

Bổ trợ hỗ trợ tất cả các phiên bản hiện đại bao gồm Excel 365, Excel 2029, Excel 2016, Excel 2013 và Excel 2010. Xin vui lòng khám phá các khả năng khác trên trang chủ của sản phẩm được liên kết ở trên.

Và bây giờ, chúng ta hãy xem số lượng chính tả số này hoạt động:

1. Chọn một ô trống cho kết quả.
2. Trên tab Khả năng, trong nhóm tiện ích, nhấp vào số chính tả.Spell Number.
3. Trong cửa sổ Hộp thoại Tạm đổ xuất hiện, định cấu hình những điều sau:
   • Để chọn hộp số của bạn, chọn ô chứa số lượng bạn muốn được viết dưới dạng văn bản.
   • Chỉ định hiện tại mong muốn, trường hợp chữ cái và cách thức số thập phân của số nên được đánh vần.
   • Xác định có bao gồm không có xu hay không.
   • Chọn xem có chèn kết quả là giá trị hay công thức.
4. Ở dưới cùng của cửa sổ hộp thoại, xem trước kết quả. Nếu bạn hài lòng với cách viết số của bạn, hãy nhấp vào chính tả. Nếu không, hãy thử các cài đặt khác nhau.preview the result. If you are happy with the way your number is written, click Spell. Otherwise, try different settings.

Ảnh chụp màn hình bên dưới thể hiện các lựa chọn mặc định và số đánh vần trong B2. Vui lòng nhận thấy một công thức (chính xác hơn là chức năng do người dùng xác định) trong thanh công thức:

Và đây là một minh chứng nhanh chóng về cách các loại tiền tệ khác có thể được đánh vần:

Mẹo và ghi chú:

• Bởi vì bổ trợ số chính tả được thiết kế để xử lý các trường hợp sử dụng thực tế như hóa đơn và các tài liệu tài chính khác, nó chỉ có thể chuyển đổi một số tại một thời điểm.one number at a time.
• Để đánh vần một cột số, chèn một công thức vào ô đầu tiên, sau đó sao chép công thức xuống.column of numbers, insert a formula in the first cell, and then copy the formula down.
• Nếu có khả năng dữ liệu nguồn của bạn có thể thay đổi trong tương lai, tốt nhất là chèn kết quả dưới dạng công thức, do đó, nó sẽ tự động cập nhật khi số ban đầu thay đổi.insert the result as formula, so it updates automatically as the original number changes.
• Khi chọn kết quả là tùy chọn công thức, hàm do người dùng tùy chỉnh (UDF) được chèn. Nếu bạn có kế hoạch chia sẻ sổ làm việc của mình với một người không cài đặt bộ cuối cùng, hãy nhớ thay thế các công thức bằng các giá trị trước khi chia sẻ.user-defined function (UDF) is inserted. If you plan to share your workbook with someone who does not have the Ultimate Suite installed, remember to replace formulas with values before sharing.

Chuyển đổi ngược - Từ tiếng Anh thành các số

Thành thật mà nói, tôi không thể tưởng tượng tại sao bạn có thể cần nó. Chỉ trong trường hợp… :)

Có vẻ như Excel MVP, Jerry Latham, đã tạo ra chức năng do người dùng Excel (UDF) như vậy làm WordStodigits. Nó chuyển đổi các từ tiếng Anh trở lại số.WordsToDigits. It converts English words back to number.

Bạn có thể tải xuống sổ làm việc WordStodigits của Jerry để xem mã UDF. Ở đây bạn cũng sẽ tìm thấy các ví dụ của anh ấy về cách sử dụng chức năng.

Bạn có thể thấy cách thức hoạt động trên trang "Mục nhập mẫu", nơi bạn cũng sẽ có thể nhập các ví dụ của riêng bạn. Nếu bạn có kế hoạch sử dụng WordStodigits trong tài liệu của mình, vui lòng được thông báo rằng chức năng này có các hạn chế. Ví dụ, nó không nhận ra các phân số được nhập bằng từ. Bạn sẽ tìm thấy tất cả các chi tiết trên bảng "thông tin".

Bạn cũng có thể quan tâm

Làm cách nào để chuyển đổi tiền tệ thành văn bản trong excel?

Làm cách nào để chuyển đổi tiền tệ thành từ?