Trong bài viết này, tôi sẽ chỉ cho bạn hai cách nhanh chóng và miễn phí để chuyển đổi số tiền tệ thành từ tiếng Anh trong Excel 2019, 2016, 2013 và các phiên bản khác.

Microsoft Excel là một phần mềm tuyệt vời chương trình để tính toán cái này và cái kia. Ban đầu nó được phát triển để xử lý các mảng dữ liệu lớn. Tuy nhiên, nó cũng cho phép tạo các bản ghi kế toán như hóa đơn, bảng đánh giá hoặc bảng cân đối kế toán một cách nhanh chóng và hiệu quả.

Trong các tài liệu thanh toán ít nhiều chắc chắn, cần phải sao chép các giá trị số với dạng từ của chúng. Việc làm giả những con số đánh máy khó hơn nhiều so với những con số được viết bằng tay. Một số kẻ lừa đảo có thể cố kiếm 8000 trên 3000, trong khi gần như không thể bí mật thay thế "ba" bằng "tám".

Vì vậy, điều bạn cần không chỉ là chuyển đổi số thành từ trong Excel (ví dụ: 123,45 thành "một trăm hai mươi ba, bốn mươi lăm"), nhưng đánh vần đô la và xu (ví dụ: $29,95 là "hai mươi chín đô la và chín mươi chín xu" ), bảng Anh và pence cho GBP, euro và xu euro cho EUR, v.v.

Ngay cả các phiên bản Excel mới nhất cũng không có công cụ tích hợp sẵn để đánh vần số, chưa kể đến các phiên bản cũ hơn. Nhưng đó là khi Excel thực sự tốt. Bạn luôn có thể cải thiện chức năng của nó bằng cách sử dụng các công thức trong tất cả các kết hợp

của chúng, macro VBA hoặc phần bổ trợ của bên thứ ba.

Dưới đây, bạn sẽ tìm thấy hai cách để chuyển đổi số từ số liệu thành từ ngữ

Và, có thể, bạn có thể cầnchuyển đổi từ sang số trong Excel

Lưu ý. Nếu bạn đang tìm kiếm chuyển đổi số thành văn bản , nghĩa là bạn muốn Excel xem số của mình dưới dạng văn bản, thì đó là một việc hơi khác. Đối với điều này, bạn có thể sử dụng hàm TEXT hoặc một vài cách khác được mô tả trong Cách thay đổi số thành văn bản trong Excel.

Macro SpellNumber VBA để chuyển đổi số thành từ

Như tôi đã đề cập , Microsoft không muốn thêm một công cụ cho nhiệm vụ này. Tuy nhiên, khi thấy có bao nhiêu người dùng cần nó, họ đã tạo và xuất bản macro VBA đặc biệt trên trang web của mình. Macro thực hiện những gì tên SpellNumber gợi ý. Tất cả các macro khác mà tôi đã xem đều dựa trên mã của Microsoft.

Bạn có thể tìm thấy macro được đề cập là "công thức đánh số". Tuy nhiên, nó không phải là một công thức, mà là một hàm macro, hay nói chính xác hơn là Hàm do người dùng Excel xác định (UDF).

Tùy chọn đánh số có thể ghi đô la và xu. Nếu bạn cần một đơn vị tiền tệ khác, bạn có thể thay đổi " đô la " và " cent " bằng tên của đơn vị tiền tệ của mình.

Nếu bạn không phải là người am hiểu về VBA , bên dưới bạn sẽ tìm thấy một bản sao của mã. Nếu bạn vẫn không muốn hoặc không có thời gian để giải quyết vấn đề này, vui lòng sử dụng giải pháp này.

1. Mở sổ làm việc nơi bạn cần đánh vần các số.
2. Nhấn Alt +F11 để mở cửa sổ trình soạn thảo Visual Basic.
3. Nếu bạn mở nhiều sách, hãy kiểm tra xem sổ làm việc cần thiết có đang hoạt động hay không bằng cách sử dụngdanh sách các dự án ở góc trên bên trái của trình chỉnh sửa (một trong các thành phần sổ làm việc được đánh dấu bằng màu xanh lam).
4. Trong menu trình chỉnh sửa, hãy chuyển đến Chèn -> Mô-đun .
5. Bạn sẽ thấy một cửa sổ có tên YourBook - Module1. Chọn tất cả mã trong khung bên dưới và dán vào cửa sổ này.

   Tùy chọn Rõ ràng 'Chức năng chính Chức năng SpellNumber(ByVal MyNumber) Dim Đô la, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Nghìn " 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 & Địa điểm(Đếm) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Case Dollars "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Đô la & " Dollars" End Select Select Case Trường hợp Cents "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Trường hợp khác Cents = " and " & Xu & " Cents" Kết thúc Chọn SpellNumber = Đô la & Cents Kết thúc Hàm Hàm GetHundreds(ByVal MyNumber) Dim Kết quả dưới dạng Chuỗi Nếu Val(MyNumber) = 0 Thì Thoát Hàm MyNumber = Right( "000" & MyNumber, 3) ' Chuyển đổi hàng trăm. Nếu Mid(MyNumber, 1, 1) "0" thì Kết quả = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Chuyển đổi hàng chục và hàng đơn vị. Nếu Mid(MyNumber, 2, 1) "0" thì Kết quả = Kết quả & GetTens(Mid(MyNumber, 2)) Khác Kết quả = Kết quả & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = "" ' Bỏ giá trị hàm tạm thời. Nếu Val(Left(TensText, 1)) = 1 Thì ' Nếu giá trị trong khoảng 10-19… Chọn Trường hợp Val(TensText) Trường hợp 10: Kết quả = "Mười" Trường hợp 11: Kết quả = "Mười một" Trường hợp 12: Kết quả = "Mười hai " Trường hợp 13: Kết quả = "Mười ba" Trường hợp 14: Kết quả = "Mười bốn" Trường hợp 15: Kết quả = "Mười lăm" Trường hợp 16: Kết quả = "Mười sáu" Trường hợp 17: Kết quả = "Mười bảy" Trường hợp 18: Kết quả = "Mười tám" Trường hợp 19: Kết quả = "Mười chín" Trường hợp Khác Kết thúc Chọn Khác ' Nếu giá trị trong khoảng 20-99… Chọn Trường hợp Val(Left(TensText, 1)) Trường hợp 2: Kết quả = "Hai mươi" Trường hợp 3: Kết quả = "Ba mươi" Trường hợp 4: Kết quả = "Bốn mươi" Trường hợp 5: Kết quả = "Năm mươi" Trường hợp 6: Kết quả = "Sáu mươi" Trường hợp 7: Kết quả = "Bảy mươi" Trường hợp 8: Kết quả = "Tám mươi" Trường hợp 9: Kết quả = "Chín mươi" Trường hợp khác Kết thúc Chọn Kết quả = Kết quả & GetDigit _ (Right(TensText, 1)) ' Truy xuất các vị trí. End If GetTens = Kết quả End Function Function GetDigit(Digit) Select CaseVal(Digit) Trường hợp 1: GetDigit = "Một" Trường hợp 2: GetDigit = "Hai" Trường hợp 3: GetDigit = "Ba" Trường hợp 4: GetDigit = "Bốn" Trường hợp 5: GetDigit = "Năm" Trường hợp 6: GetDigit = " Six" Trường hợp 7: GetDigit = "Seven" Trường hợp 8: GetDigit = "Eight" Trường hợp 9: GetDigit = "Nine" Trường hợp khác : GetDigit = "" End Chọn chức năng kết thúc

6. Nhấn Ctrl+S để lưu sổ làm việc đã cập nhật.

   Bạn sẽ cần lưu lại sổ làm việc của mình. Khi bạn cố gắng lưu sổ làm việc có macro, bạn sẽ nhận được thông báo " Không thể lưu các tính năng sau 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 dưới dạng. Trong trường " Lưu dưới dạng ", hãy chọn tùy chọn " Sổ làm việc hỗ trợ macro Excel ".

   Xem thêm: Định dạng có điều kiện của Google Trang tính
   

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

Giờ đây, bạn có thể sử dụng hàm Số chính tả trong tài liệu Excel của mình. Nhập =SpellNumber(A2) vào ô cần lấy số viết bằng chữ. Ở đây A2 là địa chỉ của ô có số hoặc số tiền.

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

Tuyệt vời!

Sao chép nhanh hàm SpellNumber sang các ô khác.

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

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

Lưu ý. Xin vui lònglưu ý rằng nếu bạn sử dụng SpellNumber với một liên kết đến một ô khác, thì tổng bằng văn bản sẽ được cập nhật mỗi khi 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ì ví dụ: =SpellNumber(29.95) (29,95 - không có dấu ngoặc kép và ký hiệu Đô la).

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 ý muốn của mình nhu cầu. Cần phải dán mã cho từng sổ làm việc, nơi bạn định thay đổi nó. Nếu không, bạn sẽ cần phải tạo tệp mẫu có 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 gửi xem 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 sẵn, họ sẽ nhận được cảnh báo rằng có macro trong sổ làm việc.

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

Đối với những người dùng Excel cần đánh vần nhanh các phép cộng 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ố tiền thành từ cho một số loại tiền tệ phổ biến. Vui lòng làm quen với phần bổ trợ Spell Number đi kèm với bản phát hành mới nhất của Ultimate Suite dành cho Excel của chúng tôi.

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

• Bạn có thể chọn một trong cáccác loại tiền tệ sau: USD, EUR, GBP, BIT, AUD.
• Đánh vần phần phân số bằng cent, penny hoặc bitcent.
• Chọn bất kỳ kiểu chữ nào cho kết quả: chữ thường, CHỮ HOA , Tiêu đề hoặc viết hoa đầu câu.
• Đánh vần phần thập phân theo các cách khác nhau.
• Bao gồm hoặc bỏ qua 0 xu.

Phần bổ trợ hỗ trợ tất cả các phần mềm hiện đại các phiên bản bao gồm Excel 365, Excel 2029, Excel 2016, Excel 2013 và Excel 2010. 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ờ, hãy xem tiện ích đánh vần số này hoạt động :

1. Chọn một ô trống cho kết quả.
2. Trên tab Ablebits , trong nhóm Tiện ích , hãy nhấp vào Số chính tả .
3. Trong cửa sổ hộp thoại Số tràn xuất hiện, định cấu hình những điều sau:
   • Đối với hộp Chọn số của bạn , chọn ô chứa số tiền bạn muốn được viết dưới dạng văn bản.
   • Chỉ định hiện tại , trường hợp chữ cái mong muốn và cách thập phân một phần của số phải được đánh vần.
   • Xác định có bao gồm 0 xu hay không.
   • Chọn có chèn kết quả dưới dạng giá trị hoặc công thức hay không.
4. Ở cuối 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 mình, hãy nhấp vào Chính tả . Nếu không, hãy thử cài đặt khác.

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

Và đây là minh họa nhanh về cách viết các loại tiền tệ khác:

Mẹo và lưu ý:

• Bởi vì phần bổ trợ Spel Number đượ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ên nó chỉ có thể chuyển đổi một số tại một thời điểm.
• Để đánh vần một cột số , hãy chèn công thức vào ô đầu tiên rồi sao chép công thức đó xuống.
• Nếu có cơ hội 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 , để kết quả tự động cập nhật khi số ban đầu thay đổi.
• Khi chọn kết quả làm công thức , một hàm do người dùng xác định (UDF) tùy chỉnh sẽ được chèn vào. Nếu bạn định chia sẻ sổ làm việc của mình với người chưa cài đặt Ultimate Suite, hãy nhớ thay thế công thức bằng giá trị trước khi chia sẻ.

Chuyển đổi ngược lại - Từ tiếng Anh thành 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ó. Đề phòng… :)

Có vẻ như MVP của Excel, Jerry Latham, đã tạo hàm do Người dùng Excel xác định (UDF) như vậy dưới dạng WordsToDigits . Nó chuyển đổi các từ tiếng Anh trở lại số.

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ụnghàm số.

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