Đối với các doanh nghiệp số lượng nhân viên lớn muốn theo dõi chi tiết tiền lương cho từng hay muốn bảo mật về thông tin tiền lương của từng nhân viên trong doanh nghiệp, các doanh nghiệp thường sử dụng phương pháp lập phiếu lương cho nhân viên. Tuy nhiên hầu hết kế toán hiện nay đang gặp phải rất nhiều lúng túng trong việc lập phiếu lương tự động như thế nào? Trong bài viết hôm nay SAO VIỆT sẽ hướng dẫn các bạn cách lập phiếu lương hoàn toàn tự động với các bước cụ thể như sau: Show Đầu tiên các bạn tổ chức thiết kế 1 File hoàn chỉnh, gồm 1 sheet là "BangLuong", 1 sheet tên là "InPhieuLuong", tại sheet "InPhieuLuong" các bạn lập sẵn công thức dò tìm các chỉ tiêu theo mã, như hình bên dưới, và chúng ta chỉ có 2 việc để làm, một là lệnh tự động điền Mã NV vào ô D6, hai là lệnh in phiếu ra B1. Các bạn mở chương trình soạn thảo code trong VBENhấn tổ hợp phím Alt+F11 hoặc vào thẻ Developer-> Visual Basic (hoặc ViewCode) Nếu bạn nào chưa biết cách thì tham khảo bài viết này nhé "VBA CĂN BẢN BÀI 01" B2. Mở cửa sổ soạn thảo code của Sheet BangLuong ra như hướng dẫn tại bảng sauB3. Copy đoạn Code này và dán vào cửa sổ CodeDim n as long n = Sheets("BangLuong").Range("D1000").End(xlUp).Row If Target.Row >= 9 And Target.Column = 2 And Activecell<>"" Then For i = 9 To n With Sheets("InPhieuLuong") .Range("C6") = Sheets("BangLuong").Range("B" & i) .PrintOut from:=1, To:=1, copies:=1 End With Next End If B4: Tắt cửa sổ soạn thảo Code và lưu lại file dưới dạng .xlsm như sauVào File-> Save as, tại mục File Type, chọn định dạng .xlsm như hình dưới Sau khi lưu xong, mở sheet "BangLuong" lên và thực hiện như sau:
Bài viết tiếp theo mình sẽ hướng dẫn lệnh in số lượng phiếu theo kiểm soát của các bạn như in từ trang số mấy đến số mấy, số lượng bản in bao nhiêu tờ. Các bạn quan tâm lập trình VBA có thể tham khảo nhé "LẬP TRÌNH VBA TỪ CƠ BẢN ĐẾN NÂNG CAO" |