Hoàng Tuấn 868
Đăng ký hôm qua
- Tham gia
- 9/11/19
- Bài viết
- 5,835
- Được thích
- 5,602
Không phải. Kiểu này là để kiểm soát xem công việc x-y-z... có thực hiện chưa, ở đâu,. và vào lúc nào.Mình đoán có thể là để kiểm soát chi phí văn phòng phẩm, không biết có đúng không.
Sao em test thì không như anh nói nhỉ, chỉ khi in thì code mới chạy, em dùng office 365Hướng này không ổn đâu em. Nhấn Ctrl P, hoặc Print Preview là nó chạy rồi.
Option Explicit
Private x As Long
Private Sub Workbook_BeforePrint(Cancel As Boolean)
x = x + 1
Sheets("sheet1").Cells(x, 1) = Timer
End Sub
Anh mới xem lại. Thì ra do anh dùng đồ cổ nên nó mới vậy chứ từ Excel 2010 sự kiện này chỉ được kích hoạt khi in.Sao em test thì không như anh nói nhỉ, chỉ khi in thì code mới chạy, em dùng office 365
Mã:Option Explicit Private x As Long Private Sub Workbook_BeforePrint(Cancel As Boolean) x = x + 1 Sheets("sheet1").Cells(x, 1) = Timer End Sub
Bạn thử code trong file:xin lỗi bạn nhiều nạ.
có lẻ ngôn ngữ lập trình của bạn nó hơi khác ngôn ngữ của mình nên có phần không hiểu ý nhau. Vậy mình giải thích lại nha.
Sheet (sample plan) mình sẽ gọi là data
sheet (PHIEUYEUCAU)
là hằng ngày bọn mình sẽ xem kế hoạch sản xuất rồi qua sheet data copy số tt yêu cầu ,mình gọi đây là ID nha. ID chỉ có 1 không lặp ạ,
rồi dán số ID này vào số yêu cầu bên sheet PHIEUYEUCAU. Từ ID ngày sẽ chạy ra các thông tin trên phiếu yêu cầu may mẫu --> in thôi.
mình mong muốn mỗi lần nhấn lệnh in cho từng ID (phiếu yêu cầu may mẫu) thì thống kê lại lịch sử của nó mà thông tin đầy đủ như bên sheet Log mà mình lấy từ sheet data qua.