Cách viết số bằng tiếng Anh trong Excel

Nếu bạn có một cột gồm các giá trị số trong một trang tính và bây giờ bạn cần quy đổi chúng thành các từ tiếng Anh tương đương hoặc các từ tiền tệ tiếng Anh như ảnh chụp màn hình sau. Ở đây tôi sẽ nói về cách thay đổi số sang từ tiếng Anh một cách nhanh chóng và dễ dàng

Chuyển đổi số thành từ tiếng Anh với chức năng do người dùng xác định

Không có tính năng hay công thức nào có thể giúp bạn giải quyết công việc này trực tiếp trong Excel, nhưng bạn có thể tạo Hàm do người dùng xác định để hoàn thành nó. Vui lòng thực hiện với các bước sau

1. Giữ phím ALT + F11 và nó sẽ mở Cửa sổ Microsoft Visual Basic cho Ứng dụng

2. Nhấp vào Chèn > Mô-đun và dán đoạn mã sau vào Cửa sổ Mô-đun

Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function

3. Lưu và đóng mã này và quay lại trang tính, trong một ô trống, hãy nhập công thức này =NumberstoWords(A2) ( A2 là ô bạn muốn .

4. Sau đó nhấn phím Enter và chọn ô C2 rồi kéo núm điều khiển điền vào phạm vi mà bạn muốn chứa công thức này. Tất cả các giá trị số đã được chuyển đổi từ tiếng Anh tương ứng của chúng

Ghi chú. Mã này chỉ có tác dụng với số nguyên không áp dụng cho số thập phân

Chuyển đổi số thành từ tiền tệ với Chức năng do người dùng xác định

Nếu bạn muốn chuyển đổi các số thành các từ tiền tệ tiếng Anh, bạn nên áp dụng mã VBA bên dưới

1. Giữ phím ALT + F11 và nó sẽ mở Cửa sổ Microsoft Visual Basic cho Ứng dụng

2. Nhấp vào Chèn > Mô-đun và dán đoạn mã sau vào Cửa sổ Mô-đun

Function SpellNumberToEnglish(ByVal pNumber)
'Update by Extendoffice
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. Lưu mã này và quay lại trang tính, trong một ô trống, hãy nhập công thức này =SpellNumberToEnglish(A2) ( A2 là ô bạn muốn chuyển đổi .

Chuyển đổi số thành từ tiền tệ với một tính năng hữu ích

Đoạn mã trên hơi rắc rối cho người mới bắt đầu sử dụng Excel, ở đây, tôi sẽ giới thiệu một tính năng hữu ích, Kutools for Excel's Numbers to Words, với tiện ích này, bạn có thể nhanh chóng đánh vần các số thành từ tiếng Anh hoặc từ tiền tệ

Mẹo. Để áp dụng tính năng Numbers to Words này, trước tiên, bạn nên tải xuống Kutools cho Excel, sau đó áp dụng tính năng này một cách nhanh chóng và dễ dàng.

Sau khi cài đặt Kutools cho Excel, hãy làm như sau

1. Chọn danh sách các số bạn muốn chuyển đổi, sau đó nhấp vào Kutools > Nội dung > Số thành từ, xem ảnh chụp màn hình

2. Trong hộp thoại Numbers to Currency Words, đánh dấu tùy chọn English từ hộp danh sách Languages, rồi bấm nút Ok, bạn sẽ thấy tất cả các số đã được đánh vần thành các từ tiền tệ tiếng Anh

Lời khuyên. Nếu bạn muốn nhận các từ tiếng Anh, vui lòng chọn hộp kiểm Không được chuyển đổi thành Tiền tệ từ phần Tùy chọn, xem ảnh chụp màn hình

Nhấp để Tải xuống Kutools cho Excel và dùng thử miễn phí ngay

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

• Tái sử dụng. Chèn nhanh các công thức, biểu đồ phức tạp  và bất kỳ thứ gì bạn đã sử dụng trước đây; . Encrypt Cells with password; Create Mailing List and send emails...
• Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Hợp nhất Ô/Hàng/Cột mà không làm mất Dữ liệu; . Ngăn chặn các ô trùng lặp; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Chọn hàng trùng lặp hoặc duy nhất ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Sao chép chính xác Nhiều ô mà không thay đổi tham chiếu công thức; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Trích xuất văn bản , Thêm văn bản, Xóa theo vị trí, Xóa khoảng trắng ; . Convert Between Cells Content and Comments...
• Siêu bộ lọc (lưu và áp dụng lược đồ bộ lọc cho các trang tính khác); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Kết hợp Sổ làm việc và Trang tính ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Hơn 300 tính năng mạnh mẽ . Hỗ trợ Office/Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.

Đọc thêm. Tải xuống miễn phí. Mua.  

Tab Office Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều

• Bật chỉnh sửa và đọc theo tab trong Word, Excel, PowerPoint , Publisher, Access, Visio và Project.
• Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới
• Tăng năng suất của bạn lên 50% và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày

Đọc thêm. Tải xuống miễn phí. Mua.  

Cũ nhất đầu tiên

Sắp xếp nhận xét theo

Cũ nhất đầu tiên

mới nhất đầu tiên

Nhận xét ( 62 )

Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng

Jayaraj Mani

khoảng 5 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Xin chào. Chào buổi sángChào. Buổi sáng tốt lành. Hân hạnh khi được gặp bạn

Hồi đáp

0

0

tushar jain

khoảng 5 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

mã này không hoạt động

Hồi đáp

0

0

Pinkesh Panchal

khoảng 5 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Thưa ông, làm cách nào tôi có thể chuyển đổi số thành từ với từ cuối cùng là "Chỉ"?

Hồi đáp

0

0

Atul Khadke     Pinkesh Panchal

khoảng 5 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

giải quyết vấn đề?????

Hồi đáp

0

0

Hansraj     Pinkesh Panchal

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Bạn phải thêm một công thức bổ sung trong một cột khác
= "Rs. "&""&F6&"Chỉ"&". "

Hồi đáp

0

0

Leurie

khoảng 5 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Còn nếu số đó có một (. ) như 150. 75 hoặc 3. 35?

Hồi đáp

0

0

Sjmalik

khoảng 5 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Cảm ơn sự hỗ trợ của bạn cho việc tạo công thức. Bạn có thể vui lòng cho chúng tôi biết nếu chúng tôi cần thêm tên của loại tiền tệ. như Saudi Riyals hoặc Bảng Anh

Hồi đáp

0

0

sjmalik

khoảng 5 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Ví dụ chúng ta chuyển 4000 thành từ "Four Thousand", tôi muốn dịch là " Saudi Riyals Four Thousand Only" nên trong công thức còn thiếu "Saudi Riyals & Only"
Hãy giúp tôi

Hồi đáp

0

0

Jaydip Trivedi

khoảng 5 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Công thức được đề cập ở trên trong mô-đun được lặp lại và sao chép từ Trang web của Microsoft

Vui lòng xem liên kết gốc và làm theo Microsoft Update

https. //ủng hộ. Microsoft. com/en-in/help/213360/how-to-convert-a-numeric-value-into-english-words-in-excel

Hồi đáp

Bài báo cáo

0

0

Monika Borse     Jaydip Trivedi

khoảng 3 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

thân mến, mã này đang hiển thị lỗi cú pháp trong dòng này
Cents = GetTens(Trái(Mid(MyNumber, DecimalPlace + 1) &_"00", 2))

Bạn có thể giúp tôi được không. ??Trả lời tôi càng sớm càng tốt

Hồi đáp

0

0

Martin Vích

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

THÊM TỪ VÀ GIỮA CÁC TỪ. Một Trăm Bốn Mươi Nghìn Năm Trăm Hai Mươi Sáu thay vì Một Trăm Bốn Mươi Nghìn Năm Trăm Hai Mươi Sáu. Câu có thể không được hiểu rõ vì nó không đúng tiếng Anh

Hồi đáp

0

0

vsk

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

mã này không hoạt động vĩnh viễn. nếu chúng ta đóng và mở trang tính thì nó không hoạt động

Hồi đáp

0

0

RAMPRASAD     vsk

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Lưu tệp dưới dạng "Sổ làm việc đã bật Macro" và bật Macro khi bạn mở nó

Hồi đáp

0

0

MAHADEVAPPA BADIGER

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

cảm ơn rất nhiều vì bạn là mã

Hồi đáp

0

0

Rajkumar singh

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Ví dụ ta chuyển 2500 thành chữ "Hai Ngàn Năm Trăm", mình muốn dịch là "Hai Nghìn Năm Trăm Chỉ" nên trong công thức thiếu chữ "Chỉ"
Hãy giúp tôi

Hồi đáp

0

0

Shubham     Rajkumar singh

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

sử dụng =CONCATENATE(Số từ(A1),"Chỉ")

Hồi đáp

Bài báo cáo

0

0

SAIMA SYED     Shubham

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Thực sự cảm ơn bạn thân mến, công thức của bạn là hoàn hảo, tốt, Allah phù hộ bạn
Trân trọng

Hồi đáp

0

0

raj

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

lakh crore không có trong công thức. vui lòng giúp tôi

Hồi đáp

0

0

jjkok

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Ví dụ mình chuyển 2500 thành chữ "Hai Ngàn Năm Trăm", mình muốn dịch là "Hai Nghìn Năm Trăm & Cents Fifty Only" nhờ bạn chỉ giúp

Hồi đáp

0

0

Bệnh đa xơ cứng. GC

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Tôi không nhận được xu đánh vần ra. số tiền của tôi là 123. 50 và nhận được "một trăm hai mươi ba". đã sao chép tất cả các công thức, xin vui lòng giúp đỡ

Hồi đáp

0

0

Siva

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Thế còn lakhs và crores

Hồi đáp

0

0

Absheer Ali

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Cảm ơn rất nhiều

Hồi đáp

0

0

Thomas VJ

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

KHỎE. Nhưng rất tiếc phải nói rằng công thức này KHÔNG hoạt động vĩnh viễn. Tôi đóng sổ làm việc để nghỉ trưa. Sau bữa trưa, tôi đã mở tệp nhưng công thức không hoạt động. hiển thị lỗi như #NAME?. Vui lòng giải pháp thân mật xin vui lòng

Hồi đáp

0

0

Keycee

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Thanks


nó hoạt động. . )

Hồi đáp

0

0

Rayees Ahmed

khoảng 4 năm trước

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

có một lỗi khi số tiền của tôi là "618475" nó ghi "Sáu trăm mười tám nghìn bốn trăm bảy mươi lăm" thay vì "sáu lac mười tám nghìn bốn trăm bảy mươi lăm"