Code VBA cố định giờ

Liên hệ QC

thepdaoson

Thành viên thường trực
Tham gia
29/4/11
Bài viết
230
Được thích
114
Nhờ anh/chị viết giúp đoạn code theo như yêu cầu trong file kèm theo. Xin cảm ơn anh/chị trước.
 

File đính kèm

  • VBA Co dinh thoi gian.xlsx
    10.7 KB · Đọc: 13
Nếu hỏi để áp dụng trên Google Spreadsheet thì bạn hỏi ở đây là sai chỗ rồi.
 
Không anh, tôi vẫn làm trên file Excel nhưng sau có chia sẻ file đó lên google drive để người khác có thông tin thôi.
 
Nhờ anh/chị viết giúp đoạn code theo như yêu cầu trong file kèm theo. Xin cảm ơn anh/chị trước.
Giả định tình huống: Người dùng nhập liệu vào B4 --> Theo yêu cầu của bạn, sẽ điền ngày giờ vào F4, đúng không?
Tính từ bây giờ, nếu như:
- Người ta xóa B4 thì điều gì xảy ra?
- Xóa xong người ta điền dữ liệu mới vào B4 thì điều gì xảy ra?
 
Không anh, tôi vẫn làm trên file Excel nhưng sau có chia sẻ file đó lên google drive để người khác có thông tin thôi.
Nếu ô bị xóa, dấu thời gian sẽ bị xóa. Nếu ô được cập nhật nhiều lần sẽ lấy dấu thời gian của lần cập nhật cuối cùng.
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Area As Range, Cll As Range, T As Double
T = Now
Set Rng = Intersect(Target, Me.Range("B:B,D:D"))
If Not Rng Is Nothing Then
    Application.EnableEvents = False
    For Each Area In Rng.Areas
        For Each Cll In Area.Cells
            If IsEmpty(Cll.Value) Then
                Cll.Offset(, 5 - Cll.Column / 2).ClearContents
            Else
                Cll.Offset(, 5 - Cll.Column / 2).Value = T
            End If
        Next
    Next
    Application.EnableEvents = True
End If
End Sub
 
Cảm ơn anh rất nhiều
 
Web KT
Back
Top Bottom