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

Làm thế nào để đánh vần hoặc chuyển đổi số sang từ tiếng Anh trong Excel?

Giả sử bạn có rất nhiều số lượng giá, và bây giờ bạn cần chuyển đổi hoặc đánh vần chúng thành chuỗi văn bản. Ví dụ, chuyển đổi $123.55 những từ tiếng Anh một trăm hai mươi ba đô la và năm mươi lăm xu. Trong Excel, không có phương tiện hữu hiệu nào để giải quyết vấn đề này ngoài việc sử dụng mã VBA dài và phức tạp. Trong bài viết này, tôi sẽ giới thiệu cho bạn một số phương pháp để đối phó với nó.

Đánh vần hoặc chuyển đổi số sang các từ tiếng Anh bằng mã VBA

Đánh vần hoặc chuyển đổi số sang các từ tiếng Anh với Kutools cho Excel


Đánh vần hoặc chuyển đổi số sang các từ tiếng Anh bằng mã VBA

Đ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ị.


Đánh vần hoặc chuyển đổi số sang các từ tiếng Anh với Kutools cho Excel

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ừ.
doc kutools số đến từ 1

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:
doc kutools số đến từ 2

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.
doc kutools số đến từ 3

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.
doc kutools số đến từ 3 doc kutools số đến từ 3

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í!

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


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 (112)
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
Nó thực sự rất ngầu. Và Fount thật dễ dàng để thay đổi Từ "Dollar và Send to Rupee hoặc bất kỳ loại tiền tệ nào khác mà chúng tôi muốn bằng cách Sao chép, dán mã vào bất kỳ trang từ mới nào khác và thay thế Tương tự.
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 công thức này trong Trang tính của mình, Bạn có thể chỉ cho tôi chi tiết được khô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 ơn bạn cho thông tin quý giá của bạn. Tôi cần phải đề cập rằng đó là Dirham chứ không phải đô la, làm thế nào tôi có thể làm cho nó Cảm ơn bạn 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
Vui lòng thay đổi tất cả các từ ~ đô la / đô la "và ~ xu / xu" trong mã thành tên đơn vị tiền tệ của 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
Tôi đã thử điều này và hiệu quả với tôi ... hãy truy cập mô-đun, ctrl F để tìm >>> sau đó trong tìm kiếm đặt Dollar và sau đó đi đến thay thế (trong cùng một hộp bật lên) và đặt Dirham, nó sẽ 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
Vấn đề về làm tròn số với các số. Ví dụ trong dữ liệu chung của tôi là 50.576 nhưng khi tôi làm tròn nó thành 50.58, Các từ không thay đổi / chuyển đổi theo giá trị mới.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đó là một mã hoạt động tốt. 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
Đó là một công thức rất tốt, nhưng tôi cần các từ ở định dạng Ấn Độ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm ơn nói rõ cho tôi biết rằng làm thế nào tôi có thể nhìn thấy nó ở định dạng tiền tệ của quốc gia tôi, tức là Rupee thay cho Đô la và Paisa thay cho Cents.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
dEAR SIR, Đây là một công thức rất tốt, Nhưng tôi cần các từ ở định dạng tiếng Ấn Độ. VUI LÒNG 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
liệu có thể lấy dữ liệu ở vị trí thứ 100 sau số thập phân, ví dụ: .100 câu trả lời hét lên là 100 thay vì mườ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ảm ơn vì công thức, tuy nhiên, có thể lấy từ "Dollar / Rupee" làm tiền tố tức là Rupee Một nghìn .... và Paisas ba mươi chỉ. sẽ thực sự đánh giá cao phản hồi của 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
Làm thế nào tôi có thể thay đổi số tiền bằng các từ tiếng Anh sang tiền tệ Ấn Độ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
sao chép ngôn ngữ mã trên trong một trang tính từ thay thế từ "đô la" bằng "Rupee" Sau đó Thay thế từ "xu" bằng "Paisa" quay trở lại tệp excel nhấn alt + F11 chèn mô-đun >>> >> dán toàn bộ tệp word cho đến "end function" do ..... = SpellNumberToEnglish (cellref) và bạn đã sẵn sà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 bạn, tôi đã cố gắng lưu macro như bạn đã đề cập ở trên. và nó đang hoạt động tốt. nhưng nếu tôi đóng excel và mở một trang tính mới, nó không hoạt động. làm ơn 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
HELLO JUS BẠN CÓ THỂ CÀI ĐẶT SPEL CURR ADDIN BẠN CÓ THỂ CHUYỂN ĐỔI :) :): lol:
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Rất nhiều, bạn có thể vui lòng cho tôi biết bây giờ làm thế nào để tôi có thể lấy định dạng Ấn Độ (Rupee)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
không hoạt động. bật lên cho biết lớp học chưa được đăng ký. không có tùy chọn để chọn ngôn ngữ. mã lỗi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
wow tuyệt vời cho những thứ tôi đã tìm kiếm một tuần. Nó hoạt động tuyệt vời. 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
nó thực sự hữu ích, thực sự thực sự rất lớn, 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
THNX ATONE CHO CÁC MẸO NỮA
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 đã thực hiện một nghiên cứu và không thể chuyển đổi sang hệ thống tiền tệ Pakistan, vì mọi người chúng tôi sử dụng định dạng này. 1,00,00,00,00,000.00 nhưng excel sử dụng định dạng này 1,000,000,000,000. và mã là công thức triệu và nghìn tỷ. Tôi đã cố gắng thay đổi thiếu, karor, arab và kharab thay vì triệu, tỷ và nghìn tỷ, nhưng nó sẽ chỉ thay đổi các từ và hệ thống sẽ vẫn như cũ. như sau khi thay đổi nó sẽ hiển thị cái này. 100,000,000 chắc là trăm triệu, nhưng nó sẽ được hiển thị hàng trăm vạn. Nếu ai đó có thể giúp tôi, tôi sẽ rất cảm ơn 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
Tôi muốn chuyển đổi trọng số Hệ mét từ số thành từ. ví dụ. 1. 10.50 Tấn (MT) nên viết là "10 Tấn và 500 kg" 2. 12.345 MT = Mười Hai Tấn và Ba trăm Bốn mươi Năm Kg Cần ít nhất 3 chữ số thập phân và 4 thì càng tốt. tối đa 9999.9999 là cách tôi muốn. Ai đó 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
Xin vui lòng nếu bạn tìm thấy cách ... xin vui lòng gửi email cho tôi islamrafat@gmail.com 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
Nếu bạn tìm thấy xin vui lòng gửi email cho tôi islamrafat@gmail.com
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tuyệt vời. Cảm ơn Extend Office
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 vì điều này Giúp nó hoạt động :-)
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