• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Tự động ghi nhật ký mở file xls (Excel)

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4762
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Tự động ghi nhật ký mở file xls (Excel)

Gửi bàigửi bởi truongphu » T.Năm 14/07/2011 8:37 pm

Thủ thuật: Tự động ghi nhật ký mở file xls (Excel)
Tác giả: truongphu
Mô tả: - Code sau lấy cột A ghi ngày giờ mở file, ghi nối tiếp
- Cột IV (hide) lưu trữ để chống xóa
- Dữ liệu lưu: 200 lần (200 row)


Chép code sau vào thẻ code của ThisWorkBook
  1. Private Sub Workbook_Open()
  2. Dim i%: i = 1: 'truongphu
  3. For Each Cell In Range("IV1:IV200")
  4.     If Cell.Value = "" Then
  5.         Exit For
  6.     Else
  7.         Cells(i, 1) = Cell.Value
  8.         i = i + 1
  9.     End If
  10. Next
  11. Cells(i, 1) = Now()
  12. Cells(i, 256) = Now()
  13. ActiveWorkbook.Save
  14. End Sub


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Google [Bot]2 khách