Số chính tả trong Excel peso

Microsoft Excel là một chương trình phần mềm bảng tính tuyệt vời để tính toán và sắp xếp dữ liệu. Nhưng có một hạn chế

Microsoft Excel là một chương trình phần mềm bảng tính tuyệt vời để tính toán và sắp xếp dữ liệu. Chà, nó được thiết kế đại khái để xử lý các mảng dữ liệu lớn sau phiên bản tiền nhiệm của nó —  VisiCalc.  

Truyện ngắn. Năm 1928, một sinh viên trường Kinh doanh Harvard, Daniel, Bricklin có ý tưởng về một chiếc máy tính có thể nhìn thấy. Sau đó, Bricklin và Bob Frankston đã tạo ra cái gọi là ứng dụng "Kẻ giết người đầu tiên" cho PC; .  

Phải đọc. https. //www. tài nguyên dss. com/history/sshistory. html

Microsoft Excel thực sự giải quyết vấn đề hồ sơ kế toán. Do đó, đây là một trong những công cụ tốt nhất đối với những người dùng bao gồm cả tôi.  

Nhưng có một hạn chế với chương trình mạnh mẽ này, đôi khi, chúng ta cần chuyển đổi tiền tệ số (Peso, Đô la, Euro, GPC, bảng Anh, v.v. ) sang Từ tiếng Anh và không có chức năng tích hợp sẵn này

ví dụ.  

• 123 đến "một trăm hai mươi ba. "
• $123 đến "một trăm hai mươi ba đô la. "
• $123. 50 đến "một trăm hai mươi ba đô la năm mươi xu. "
• Php 123. 00 đến "một trăm hai mươi ba peso. "
• Php 123. 50 đến "một trăm hai mươi ba peso và năm mươi centavos. "

Tuy nhiên, điều tốt là, họ đã tạo ra một mô-đun chức năng. (tìm thấy trên https. //hỗ trợ. văn phòng. com/en-us/article/Chuyển-số-thành-từ-a0d166fb-e1ea-4090-95c8-69442cd55d98) Thành thật mà nói, nó mang lại cho tôi rất nhiều lợi ích. Tôi không cần phải phát minh lại bánh xe (tạo từ đầu)

Giả sử bạn có một dãy số tiền tệ cần chuyển sang văn bản từ trong Excel, và bạn có thủ thuật nào để giải nhanh không?

Đánh vần các số tiền thành các từ có VBA dài

Đánh vần số tiền tệ thành từ với chức năng Numbers to Words tiện dụng

---

Đánh vần các số tiền thành các từ có VBA dài

Trong Excel, bạn không thể chuyển nhanh số sang chữ tiếng Anh ngoại trừ VBA

1. Nhấn phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Application

2. Nhấp vào Chèn > Mô-đun và dán VBA bên dưới vào cửa sổ Mô-đun mới

VBA. Chuyển đổi số tiền tệ sang từ tiếng Anh

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ã này và đóng cửa sổ để quay lại trang tính và chọn một ô trống, nhập công thức này =SpellNumberToEnglish(A2) (A2 là . Xem ảnh chụp màn hình.

---

Đánh vần số tiền tệ thành từ với chức năng Spell Out Numbers tiện dụng

Nếu bạn cần thường xuyên chuyển số sang chữ thì cách trên chắc không phải là cách hay và tiện lợi cho bạn. Tuy nhiên, bạn có thể sử dụng chức năng Numbers to Words để nhanh chóng chuyển đổi số tiền tệ thành từ tiếng Anh hoặc từ tiếng Trung nếu bạn có Kutools cho Excel

Kutools cho Excel, với hơn

300

chức năng tiện dụng giúp công việc của bạn dễ dàng hơn.

Tải xuống miễn phí
miễn phí đầy đủ tính năng trong

30

days

Sau khi cài đặt miễn phí Kutools cho Excel, vui lòng thực hiện như bên dưới.

1. Chọn số tiền tệ và 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 Từ số thành tiền tệ, hãy chọn tùy chọn tiếng Anh hoặc tiếng Trung khi bạn cần. Xem ảnh chụp màn hình

3. Nhấp vào Ok hoặc Áp dụng. Sau đó, số tiền tệ bạn chọn đã được chuyển đổi thành từ

Số tiền tệ sang từ tiếng Anh

Số tiền tệ sang từ tiếng Trung

Ghi chú. bạn có thể sao chép và dán số tiền tệ vào một trang tính khác trước khi áp dụng Số cho Từ

Chuyển đổi số tiền tệ thành từ

---

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, tựa vào, bám vào.  

---

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, tựa vào, bám vào.  

 

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 ( 2 )

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

Kim Morse

khoảng 3 năm trước

#28169

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

Hai, Kim Morse, pemberi pinjaman wang persendirian. (Code360)
Kami menyediakan pinjaman dengan kadar faedah 2% setahun and dalam jumlah $10.000. 00 $500,000. 00 dan 10.000 €. 00 đô la € 500.000. 00 sebagai tawaran pinjaman. Projek 100% yang dibiayai dengan pinjaman bercagar và tidak bercagar boleh didapati. Kami dijamin menyediakan perkhidmatan kewangan kepada pelanggan kami di seluruh dunia. Dengan pakej credit yang fleksibel, pinjaman boleh diproses và dana dipindahkan kepada peminjam dalam 2 hari. Kami bekerja dalam terma yang jelas and mudah difahami dan menawarkan pelbagai jenis pinjaman kepada pelanggan, syarikat, cá nhân swasta và pelabur hartanah yang berminat. Cukup lengkapkan borang di bawah dan kembali kepada kami melalui E-mel.
Chim cánh cụt Butiran.
Nama-nama.
Tarikh lahir.
Jantina.
Trạng thái perkahwinan saya.
Alamat.
Bandar.
dan Negeri / Wilayah.
Kod pos /
Negara.
Điện thoại.
Gửi email.
dengan tujuan pinjaman.
Jumlah pinjaman.
Tempoh pinjaman.
Bạn có thể đăng ký.
Hubungi pegawai pinjaman Qua Email. ( Code360optionsloancompany@gmail. com) Dan cho Maklumat, Hubungi alamat Web kami. Công ty cho vay tùy chọn Code360. com

Salam sejahtera,
Puan Kim

Hồi đáp

0

0

Humayoun

khoảng 2 năm trước

#32340

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

Xem lại bài viết của tôi Chuyển đổi triệu tỷ nghìn tỷ một bài viết học số cơ bản giúp người ta tìm hiểu hệ thống số và chuyển đổi số