- Tham gia
- 4/6/06
- Bài viết
- 901
- Được thích
- 2,717
Viết code để nhìn thấy ai là người cập nhật bảng tính của bạn lần gần đây nhất
Nếu file Excel của bạn là 1 file dùng chung với nhiều người khác, và bạn cần biết ai là người cập nhật file này lần cuối cùng, dĩ nhiên là bạn biết Excel cho phép bạn xem điều này, nhưng bạn muốn tìm một cách dễ dàng thấy hơn, dễ dàng đập vào mắt bạn hơn, bạn có thể sử dụng thủ thuật sau.
Thủ thuật đó chính là "xâm nhập" vào Excel Title Bar. Như bạn thấy, thanh tiêu đề Excel của bạn chỉ đề duy nhất tên của Workbook hiện tại của bạn mà thôi, nhưng với chút VBA, bạn sẽ thêm vào một số thông tin mà bạn cần.
Nếu bạn muốn biết người dùng cuối cùng, hãy sử dụng code: ThisWorkbook.BuiltinDocumentProperties("Last Author")
Nếu bạn muốn biết thời gian lưu lần cuối cùng, hãy sử dụng code: ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
Vậy để có thể tự động hiện trước mắt bạn, bạn chỉ cần chèn đoạn code này vào sự kiện Open của Workbook, thế là xong.
Bạn hãy thử xem.
Một số bài viết có liên quan:
1/ Chiêu thứ 16: Cứu dữ liệu từ một bảng tính bị lỗi
2/ Tạm dừng VBA bằng cách sử dụng Wait, Sleep hoặc Vòng lặp
3/ UDF hữu ích: Một số hàm thông dụng cần thiết
Nếu file Excel của bạn là 1 file dùng chung với nhiều người khác, và bạn cần biết ai là người cập nhật file này lần cuối cùng, dĩ nhiên là bạn biết Excel cho phép bạn xem điều này, nhưng bạn muốn tìm một cách dễ dàng thấy hơn, dễ dàng đập vào mắt bạn hơn, bạn có thể sử dụng thủ thuật sau.
Thủ thuật đó chính là "xâm nhập" vào Excel Title Bar. Như bạn thấy, thanh tiêu đề Excel của bạn chỉ đề duy nhất tên của Workbook hiện tại của bạn mà thôi, nhưng với chút VBA, bạn sẽ thêm vào một số thông tin mà bạn cần.
Nếu bạn muốn biết người dùng cuối cùng, hãy sử dụng code: ThisWorkbook.BuiltinDocumentProperties("Last Author")
Nếu bạn muốn biết thời gian lưu lần cuối cùng, hãy sử dụng code: ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
Vậy để có thể tự động hiện trước mắt bạn, bạn chỉ cần chèn đoạn code này vào sự kiện Open của Workbook, thế là xong.
Mã:
Private Sub Workbook_Open()
ThisWorkbook.Windows(1).Caption = ThisWorkbook.Windows(1).Caption & " Last Updated By: " & _
ThisWorkbook.BuiltinDocumentProperties("Last Author") & " on " & _
ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Sub
Bạn hãy thử xem.
Một số bài viết có liên quan:
1/ Chiêu thứ 16: Cứu dữ liệu từ một bảng tính bị lỗi
2/ Tạm dừng VBA bằng cách sử dụng Wait, Sleep hoặc Vòng lặp
3/ UDF hữu ích: Một số hàm thông dụng cần thiết
Lần chỉnh sửa cuối:
Upvote
0