Đang tải... (xem toàn văn)
Hiện nay trên các diển đàn Excel, Kê toán, các trang mạng có giới thiệu rất nhiều các Đoạn mã nguồn, các tiện ích để hổ trợ các bạn làm Kế toán trong việc “Chuyển đổi tiền số thành tiền chử ” nhưng thường bị lổi hoặc khong như ý muốn. Vì vậy tôi xin hướng dẩn cách chuyển đổi số thành chử trong Excel chi tiết sau
Hiện diển đàn Excel, Kê toán, trang mạng có giới thiệu nhiều Đoạn mã nguồn, tiện ích để hổ trợ bạn làm Kế toán việc “Chuyển đổi tiền số thành tiền chử ” thường bị lổi khong ý muốn Vì tơi xin hướng dẩn cách chuyển đổi số thành chử Excel chi tiết sau: * Đối với Excel 2003 trở trước bạn làm sau: 1.Khởi động Excel, tạo bảng tính (giả sử tên Book1.xls) Trong Book1, bạn cần giữ lại WorkSheet (xóa bỏ WorkSheet từ Sheet2 đến hết, việc làm nhằm thu gọn thư viện nên bạn bỏ qua) 2.Chọn lệnh Tools=>Marco=>Visual Basic Editor () để chuyển sang môi trường sọan thảo Visual Basic Khung Project liệt kê thư viện dự án mở Excel, có Book1 3.Nhấn chuột vào dòng VBAProject (Book1) để chọn dự án chọn lệnh Insert=>Module để chèn thêm Module vào dự án (Module có tên Module1) 4.Nhấn đúp vào Module1 để chuyển sang khung sọan thảo bên phải khung Project Bạn hảy copy đoạn mã nguồn mà tơi viết phía Paste vào khung 5.Chọn lệnh File=>Close anh Return to Microsoft Excel () để quay trở lại Excel Bạn kiểm tra hoạt động hàm Book1 Nếu sai sót, quay lại thực từ bước để sửa mã nguồn hàm 6.Chọn lệnhFile=>SaveAs: -Trong khung Save in, chọn thư mục: MSOffice\Office\Library (thư mục ngầm định chứa thư viện Excel) -Trong khung File Name: Đặt tên tập tin theo ý (VND.xla) -Trong khung Save As type: Chọn Microsft Excel Add-In -Nhấn OK để lưu lại thư viện dạng tệp Add-In 7.Khởi động lại Excel Chọn lệnh Tools.Add-Ins Trong danh sách Add-Ins available, đánh dấu chọn vào mục có tên thư viện Nếu chưa có bấm Browse để dẫn tới thư mục save file bước Kể từ bạn dùng hàm hàm định nghĩa sẵn Excel sau: Ví dụ gỏ 123 vào B1 sau B2 gỏ =vnd(B1) thỉ B2 sẻ cho Một trăm hai mươi ba ngàn đồng ( ý ô B2 phải chọn font chử “Times new roman”) Để người khác mở sửa chữa thư viện mình, trước chọn File Save, bạn chọn lệnh Tools.VBAProject Properties Trong hộp tọai Project Properties, nhấp vào mục Protection; đánh dấu chọn Lock Project for Viewing; nhập mật vào dòng Password; nhập lại mật lần vào dòng Confirm Password; nhấn OK Sau muốn sữa nội dung mã nguồn thư viện , bạn phải nhập mật mở thư viện * Đối với Excel 2007 trở sau bạn làm sau: Trong Excel, bấm chuột phải vào Ribbon chọn mục Customize the Ribbon chọn, Trong cửa sổ Excel Options chọn thẻ Developer, thẻ Developer chọn Visua Basic, kể từ cac bạn sẻ làm bước phàn Chú ý trình cài đặt Microsoft Office 2007,2010 không đầy đủ nên thẻ Developer không xuất công cụ Excel, bạn nhờ Google hướng dẩn tìm kiếm Chúc bạn thành cơng ! Các bạn hảy chép đoạn mã nguồn sau: Public Function VND(BaoNhieu) Dim KetQua, SoTien, Nhom, Chu, Dich, S1, S2, S3 As String Dim I, J, Vitri As Byte, S As Double Dim Hang, Doc, Dem If BaoNhieu = Then KetQua = "Không đồng" Else If Abs(BaoNhieu) >= 1E+15 Then KetQua = " Số lớn ???" Else If BaoNhieu < Then KetQua = "Âm" & Space(1) Else KetQua = Space(0) End If SoTien = Format(Abs(BaoNhieu), "##############0.00") SoTien = Right(Space(15) & SoTien, 18) Hang = Array("None", "trăm", "mươi", "gì đó") Doc = Array("None", "ngàn tỷ", "tỷ", "triệu", "ngàn", "đồng", "./.") Dem = Array("None", "một", "hai", "ba", "bốn", "năm", "sáu", "bảy", "tám", "chín") For I = To Nhom = Mid(SoTien, I * - 2, 3) If Nhom Space(3) Then Select Case Nhom Case "000" If I = Then Chu = "đồng" & Space(1) Else Chu = Space(0) End If Case ".00" Chu = "chẳn" Case Else S1 = Left(Nhom, 1) S2 = Mid(Nhom, 2, 1) S3 = Right(Nhom, 1) Chu = Space(0) Hang(3) = Doc(I) For J = To Dich = Space(0) S = Val(Mid(Nhom, J, 1)) If S > Then Dich = Dem(S) & Space(1) & Hang(J) & Space(1) End If Select Case J Case And S1 = "0" Dich = "không trăm" Case And S = Dich = "mười" & Space(1) Case And S = And Nhom Space(2) & "0" Dich = Hang(J) & Space(1) Case And S = And S2 Space(1) And S2 "0" Dich = "l" & Mid(Dich, 2) Case And S = And S3 "0" If (S1 >= "1" And S1 Then Mid(Chu, Vitri, 9) = "mươi mốt" KetQua = KetQua & Chu End If Next I End If End If VND = UCase(Left(KetQua, 1)) & Mid(KetQua, 2) End Function Điện thoại liên hệ giải đáp thắc mắc: 0942 493 225 gặp Trung ...xuất cơng cụ Excel, bạn nhờ Google hướng dẩn tìm kiếm Chúc bạn thành công ! Các bạn hảy chép đoạn mã nguồn sau: Public Function VND(BaoNhieu)... Doc, Dem If BaoNhieu = Then KetQua = "Không đồng" Else If Abs(BaoNhieu) >= 1E+15 Then KetQua = " Số lớn ???" Else If BaoNhieu < Then KetQua = "Âm" & Space(1) Else KetQua = Space(0) End If SoTien