Hướng dẫn cách đọc số tiền bằng tiếng Anh trong excel nhanh nhất - BYTUONG

Hướng dẫn cách đọc số tiền bằng tiếng Anh trong excel nhanh nhất

Giả sử bạn có nhiều số lượng giá. Và bây giờ bạn cần chuyển đổi hoặc viết chúng thành chuỗi văn bản. Ví dụ: chuyển đổi 123.55 đô la sang các từ tiếng Anh một trăm hai mươi ba đô la và năm mươi lăm xu. Vậy làm thế nào để đọc số tiền bằng tiếng Anh trong excel nhanh nhất? Mời các bạn cùng tham khảo bài viết hướng dẫn cách đọc số tiền bằng tiếng Anh trong excel nhanh nhất dưới đây của chúng tôi.

Hướng dẫn cách đọc số tiền bằng tiếng Anh trong excel nhanh nhất

1, Đọc số tiền bằng tiếng Anh với VBA code

Đoạn mã VBA dài sau đây có thể giúp bạn đánh vần các số thành chuỗi văn bản. Cách làm như sau:




BYTUONG-chuyên trang trên 95.000+ ý tưởng kiếm tiền, kinh doanh, ý tưởng tạo giá trị, lợi ích

—–hoặc—–

***

Tìm hiểu thêm

Bước 1: Nhấn giữ các phím ALT + F11 và nó sẽ mở ra cửa sổ Microsoft Visual Basic for Applications.

Bước 2: Nhấp vào Insert → Module, rồi dán macro sau vào cửa sổ Module.

VBA: Đánh vần số tiền tệ sang các từ tiếng Anh trong Excel

Function SpellNumberToEnglish(ByVal pNumber)

‘Updateby20131113

Dim Dollars, Cents

arr = Array(“”, “”, ” Thousand “, ” Million “, ” Billion “, ” Trillion “)

pNumber = Trim(Str(pNumber))

xDecimal = InStr(pNumber, “.”)

If xDecimal > 0 Then

Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & “00”, 2))

pNumber = Trim(Left(pNumber, xDecimal – 1))

End If

xIndex = 1

Do While pNumber <> “”

xHundred = “”

xValue = Right(pNumber, 3)

If Val(xValue) <> 0 Then

xValue = Right(“000” & xValue, 3)

If Mid(xValue, 1, 1) <> “0” Then

xHundred = GetDigit(Mid(xValue, 1, 1)) & ” Hundred ”

End If

If Mid(xValue, 2, 1) <> “0” Then

xHundred = xHundred & GetTens(Mid(xValue, 2))

Else

xHundred = xHundred & GetDigit(Mid(xValue, 3))

End If

End If

If xHundred <> “” Then

Dollars = xHundred & arr(xIndex) & Dollars

End If

If Len(pNumber) > 3 Then

pNumber = Left(pNumber, Len(pNumber) – 3)

Else

pNumber = “”

End If

xIndex = xIndex + 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

SpellNumberToEnglish = Dollars & Cents

End Function

Function GetTens(pTens)

Dim Result As String

Result = “”

If Val(Left(pTens, 1)) = 1 Then

Select Case Val(pTens)

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

Select Case Val(Left(pTens, 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(pTens, 1))

End If

GetTens = Result

End Function

Function GetDigit(pDigit)

Select Case Val(pDigit)

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

Bước 3: Sau đó, lưu mã và quay lại trang tính. Trong Ô B2 liền kề, nhập công thức = SpellNumberToEnglish (A1). Giống như ảnh minh họa dưới đây:

Bước 4: Sau đó nhấn phím Enter và chọn Ô B2. Rồi kéo công thức xuống phạm vi mà bạn cần điền. Kết quả là tất cả các số tiền tệ đã được đánh vần thành các từ tiếng Anh. Giống như ảnh minh họa dưới đây:

Lưu ý: Vì chúng là công thức nên khi bạn cần sao chép và dán chúng, vui lòng dán dưới dạng giá trị.

>> Chương trình phần mềm Preview Pane không xem được file Excel

Hướng dẫn cách đọc số tiền bằng tiếng Anh trong excel nhanh nhất

2, Đọc số tiền bằng tiếng Anh với Kutools

Có thể đoạn mã code dài ở trên có thể khiến bạn phát điên lên. Xin đừng lo lắng, sau đây chúng tôi xin cung cấp cho bạn một cách dễ dàng và nhanh chóng để giải quyết nó. Với tính năng Numbers to Words của Kutools trong Excel. Bạn có thể chuyển đổi các số thành chuỗi văn bản một cách nhanh chóng và thuận tiện.

Bước 1: Chọn phạm vi số liệu mà bạn muốn viết chúng dưới dạng chữ tiếng anh. Rồi nhấp vào Kutools → Content → Numbers to Words.

Bước 2: Trong hộp thoại hiện ra, hãy chọn Tiếng Anh từ mục Ngôn ngữ. Và bạn có thể xem trước kết quả từ cột xem trước bên phải. Giống như hình ảnh minh họa dưới đây:

Bước 3: Sau đó nhấp vào Ok hoặc Apply (Áp dụng). Tất cả các số lượng giá đã được chuyển đổi thành chuỗi văn bản trong phạm vi lựa chọn ban đầu.

Lưu ý: Nếu bạn chỉ muốn chuyển đổi số sang từ tiếng Anh (không phải tiền tệ). Vui lòng tích chọn mục Not converted to Currency (Không chuyển đổi thành tiền tệ).

Share via