Code VBA cố định giờ

thepdaoson

Thành viên hoạt động
Tham gia ngày
29 Tháng tư 2011
Bài viết
198
Được thích
98
Điểm
380
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

huuthang_bd

Chuyên gia GPE
Tham gia ngày
10 Tháng chín 2008
Bài viết
7,530
Được thích
8,681
Điểm
860
Nơi ở
TP.HCM
Nếu hỏi để áp dụng trên Google Spreadsheet thì bạn hỏi ở đây là sai chỗ rồi.
 

thepdaoson

Thành viên hoạt động
Tham gia ngày
29 Tháng tư 2011
Bài viết
198
Được thích
98
Điểm
380
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

Huyền thoại GPE
Thành viên BQT
Super Moderator
Tham gia ngày
5 Tháng sáu 2008
Bài viết
30,502
Được thích
53,172
Điểm
11,910
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

Chuyên gia GPE
Tham gia ngày
10 Tháng chín 2008
Bài viết
7,530
Được thích
8,681
Điểm
860
Nơi ở
TP.HCM
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
 
Top Bottom