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

1. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.

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

3. Sau đó, lưu mã và quay lại trang tính, trong Ô B2 liền kề, hãy nhập công thức = SpellNumberToEnglish (A1), xem ảnh chụp màn hình:

4. Sau đó nhấn đăng ký hạng mục thi và chọn Ô B2, sau đó kéo chốt điền vào phạm vi chứa công thức này khi bạn cần. Và tất cả các số tiền tệ đã được đánh vần thành các từ tiếng Anh. Xem ảnh chụp màn hình:

Chú thích: 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ị.

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

Kutools cho Excel- Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng 30-ngày, không cần thẻ tín dụng! Get It Now

1. Chọn các số trong phạm vi mà bạn muốn viết chính tả và nhấp vào Kutools > Nội dung > Số thành từ.

2. Trong hộp thoại bật ra, hãy chọn Tiếng Anh từ Ngôn ngữ. Và bạn có thể xem trước kết quả từ bên phải Xem trước Khung. Xem ảnh chụp màn hình:

3. Sau đó nhấn vào Ok or Đăng Nhập. Và 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 ban đầu.

Chú thích: 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 kiểm tra Không được chuyển đổi sang tiền tệ hộp kiểm.
 

Tính năng tuyệt vời này của Số thành từ có thể dễ dàng dịch số đơn vị tiền tệ sang văn bản đơn vị tiền tệ bằng tiếng Anh hoặc tiếng Trung, chẳng hạn như dịch 32.01 thành "Ba mươi hai đô la và một xu" hoặc "叁拾 贰元 零 壹 分". Có một bản dùng thử miễn phí!