Chủ đề: chuyển số thành chữ!!!!giúp e
-
07-02-2011, 07:54 AM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
chuyển số thành chữ!!!!giúp e
e xin lỗi coppy lại bài của anh Phanngoctung
Nếu dùng Excel để lập phiếu thu tiền cho khách hàng, bạn sẽ cần ghi số tiền bằng chữ. Để khỏi mất công ghi "bằng tay", ta hãy tạo một hàm trong Excel "chuyên trị" việc này. Cách làm như sau:
1. Khởi động Excel, tạo một workbook mới (hoặc dùng Book1 như mặc định). Chọn Tools\ Macro\ Visual Basic Editor để mở cửa sổ soạn thảo VBA. Trong cửa sổ Project Explorer (nếu không thấy thì chọn View\ Project Explorer để mở nó), chọn VBAProject (Book1). Chọn Insert\ Module để thêm một module vào workbook.
2. Gõ nội dung hàm đổi số ra chữ SoRaChu(N) như đoạn mã 1 vào module mới tạo.
Đoạn mã 1
Function SoRaChu(ByVal NumCurrency As Currency) As String
If NumCurrency = 0 Then
SoRaChu = "Không đồng"
Exit Function
End If
If NumCurrency > 922337203685477# Then ' Số lớn nhất của loại CURRENCY
SoRaChu = "Không đổi được số lớn hơn 922,337,203,685,477"
Exit Function
End If
Static CharVND(9) As String, BangChu As String, I As Integer
Dim SoLe, SoDoi As Integer, PhanChan, Ten As String
Dim DonViTien As String, DonViLe As String
Dim NganTy As Integer, Ty As Integer, Trieu As Integer, Ngan As Integer
Dim Dong As Integer, Tram As Integer, Muoi As Integer, DonVi As Integer
DonViTien = "đồng" ‘ Bạn có thể thay đơn vị tiền tệ khác ở đây
DonViLe = "xu"
CharVND(1) = "một"
CharVND(2) = "hai"
CharVND(3) = "ba"
CharVND(4) = "bốn"
CharVND(5) = "năm"
CharVND(6) = "sáu"
CharVND(7) = "bảy"
CharVND(:khoc::khoc::rachoa::rachoa:iView more random threads:
- Cho em hỏi về hàm tính tổng số ngày từ (ngày A tháng X) đến (ngày B tháng Y)
- Tư Vấn Cao Học Quản Trị Kinh Doanh (MBA) Anh Quốc Tại Việt Nam, Hotline (24/7) 0986 920 183
- Công thức mảng trên EXCEL
- Xuất hiện Hộp thoại Lịch trong Excel
- Lập công thức tính hoa hồng cho nhân viên
- Data Table 2 Biến. Cứu em với. Hic.
- Đánh trang trong Excel
- Nhờ các bạn chỉ giúp mình cách giải quyết bài toán này với
- [Hỏi] Lỗi font Excel chữ tiếng việt thành dấu ? khi lưu file
- Giúp mình với
-
07-02-2011, 08:39 AM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: chuyển số thành chữ!!!!giúp e
Sau khi chép xong, đóng của sổ Modul, trở lại trang bảng tính. Vào File/Save as.... đặt tên file là Tienbac, chọn Microsof Excel AddIn ở File type, nhấn OK để lưu(tự động lưu vào folder mặc đinh). Vào Tools/Add In nhấn nút Browse duyệt đến file TienBac.xla, chọn nó rồi bấm OK. Vậy là bạn đã sử dung được hàm SoRaChu trong tất cả các file Excel được mở.
Hy vọng bạn làm được
Thân
-
07-02-2011, 11:39 AM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: chuyển số thành chữ!!!!giúp e
ui ui !!!!khó quá.không biết mình có làm được không
-
07-19-2011, 12:45 AM #4Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 9
Ðề: chuyển số thành chữ!!!!giúp e
Gửi bởi hoangngocluu
nhiều nhiều cách giúp chị em thu bé âm đạo, trong đấy các bài bác xếp thu rỏ vùng kín xuể quan tâm nhiều nhất bởi một giản, tằn tiện hoài, linh hoạt và có thể thực hành tại nhà. Tuy nhiên, những bài...
Những bài tập dễ dàng và hiệu quả để thu nhỏ vùng kín tại cho tất cả