Note: The other languages of the website are Google-translated. Back to English

Làm thế nào để nhanh chóng chuyển đổi số sang từ tiếng Anh trong Excel?

Nếu bạn có một cột giá trị số trong một trang tính và bây giờ bạn cần quy ước 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ư hình minh họa sau. Ở đây tôi sẽ nói về cách thay đổi các con số sang các từ tiếng Anh một cách nhanh chóng và dễ dàng.

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

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

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


Chuyển đổi số sang các 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 hoặc 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 một Hàm do người dùng xác định để hoàn thành nó. Vui lòng thực hiện theo các bước sau:

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

2. Nhấp chuột Chèn > Mô-đunvà dá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 chuyển đổi số thành một từ tiếng Anh), xem ảnh chụp màn hình:

4. Sau đó nhấn đăng ký hạng mục thi và chọn ô C2, sau đó kéo chốt đ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.

Chú thích: Mã này chỉ hoạt động cho số nguyên nhưng không áp dụng cho số thập phân.


Chuyển đổi số sang các từ đơn vị 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ố sang 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 tắt ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic cho ứng dụng.

2. Nhấp chuột Chèn > Mô-đunvà dá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 số thành một từ đơn vị tiền tệ tiếng Anh), sau đó kéo chốt điền xuống các ô mà bạn muốn áp dụng công thức này, tất cả các số đã được đánh vần thành các từ đơn vị tiền tệ tiếng Anh, xem ảnh chụp màn hình:


Chuyển đổi số sang 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, sau đây, tôi sẽ giới thiệu một tính năng hữu ích, Kutools cho Excel's Số thành từ, 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ệ.

Lời khuyên:Để áp dụng điều này Số thành từ , trước tiên, bạn nên tải xuống Kutools cho Excel, và sau đó áp dụng tính năng 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 đó bấm Kutools > Nội dung > Số thành từ, xem ảnh chụp màn hình:

2. Trong Số cho từ tiền tệ hộp dialoge, kiểm tra Tiếng Anh tùy chọn từ Ngôn ngữ hộp danh sách, sau đó bấm Ok , bạn sẽ thấy tất cả các số đã được viết thành các từ đơn vị tiền tệ tiếng Anh:

Lời khuyên: Nếu bạn muốn lấy các từ tiếng Anh, vui lòng kiểm tra Không được chuyển đổi sang tiền tệ hộp kiểm từ Các lựa 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ông thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • 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); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • 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. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ 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 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (62)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào buổi sángChào .. Chào buổi sáng .. Rất vui được gặp bạn.
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
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 từ số sang các từ có từ cuối cùng là "Chỉ"?
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 đề?????
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 nữa trong cột khác
= "Rs." & "" & F6 & "Chỉ" & "."
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ó dấu (.) như 150.75 hoặc 3.35 thì sao? xin vui lòng giúp đỡ Cảm ơn ...
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 ra 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 đơn vị tiền tệ..như Riyals của Ả Rập Xê Út hoặc Bảng Anh.
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 tôi chuyển đổi 4000 thành từ "Four Thousand", tôi muốn dịch nó giống như "Saudi Riyals Four Thousand Only" nên bị thiếu trong công thức là "Saudi Riyals & Only"
Hãy giúp tôi
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://support.microsoft.com/en-in/help/213360/how-to-convert-a-numeric-value-into-english-words-in-excel
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 (Left (Mid (MyNumber, DecimalPlace + 1) & _ "00", 2))

bạn có thể giúp tôi .. ?? Trả lời tôi càng sớm càng tốt
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õ cũng như tiếng Anh của nó không phù hợp.
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 thường xuyên ... nếu chúng ta đóng và mở trang tính, nó không hoạt động
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 được kích hoạt Macro" và bật Macro khi bạn mở nó
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ã
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 tôi chuyển đổi 2500 thành từ "Two Thousand Five Hundred", tôi muốn dịch nó giống như "Two Thousand Five Hundred Only" nên bị thiếu trong công thức là "Only"
Hãy giúp tôi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
use = CONCATENATE (NumberstoWords (A1), "Chỉ")
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 thân yêu, công thức của bạn là hoàn hảo, tốt, Allah Bless bạn.
Kính trọng.
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.
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 tôi chuyển đổi 2500 thành từ "Two Thousand Five Hundred", tôi muốn dịch nó thành "Two Thousand Five Hundred & Cents Fifty Only" vì vậy bạn có thể vui lòng giúp đỡ
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 hiểu chính tả xu ... số tiền của tôi là 123.50 và có "một trăm hai mươi ba" ... đã sao chép tất cả công thức, vui lòng giúp đỡ
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 về lakhs và crores
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
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
TỐT. 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 cho Giờ 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 ?. Xin vui lòng giải pháp thân mật.
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


Nó đang hoạt động! :)
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ó nói "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".
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 có cùng một vấn đề
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đây không phải là một vấn đề, nó là một định dạng của văn bản bằng chữ
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 bạn extendOfficea
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL