Code VBA cố định giờ (2 người xem)

[thepdaoson]

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.

 

[huuthang_bd]

Nếu hỏi để áp dụng trên Google Spreadsheet thì bạn hỏi ở đây là sai chỗ rồi.

 

[thepdaoson]

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.

 

[ndu96081631]

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?

 

[huuthang_bd]

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.

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

 

[thepdaoson]

Cảm ơn anh rất nhiều