Nhờ các cao thủ giải thích giup đoạn code. (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

phanvantruong

Thành viên chính thức
Tham gia
1/7/10
Bài viết
52
Được thích
1
Nghề nghiệp
Warehouse
ACE giải thích giúp e đoạn code này với ạ.
E mới bắt đầu AC giải thích chi tiết cặn kẽ giup e với ah.
Thanks !


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cll As Range

If Target.Column = 1 Then

For Each Cll In Target

If Cll.Value <> Empty Then

Cll.Offset(, 2).Value = Now

Else

Cll.Offset(, 2).Value = Empty

End If

Next

End If

End Sub
 
Web KT

Bài viết mới nhất

Back
Top Bottom