Tự động lưu lại ngày , giờ vào ô kế khi có tác động nhập , xuất tại ô đang đứng bằng Visual

Bạn có thể hoàn thành việc trên bằng các mã VBA. Vui lòng làm như sau:

1. Nhấn ALT+F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. Sau đó chọn trang tính bạn đang hoạt động phía bên trái Project Explorer, nhấp 2 cái để mở Module, sau đó sao chép đoạn mã VBA sau vào cửa sổ code của Worksheet bạn đang làm việc vì đây là sự kiện Worksheet_change

	Private Sub Worksheet_Change(ByVal Target As Range)
	Dim WorkRng As Range
	Dim Rng As Range
	Dim xOffsetColumn As Integer
	Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
	xOffsetColumn = 1
	If Not WorkRng Is Nothing Then
	Application.EnableEvents = False
	For Each Rng In WorkRng
	If Not VBA.IsEmpty(Rng.Value) Then
	Rng.Offset(0, xOffsetColumn).Value = Now
	Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
	Else
	Rng.Offset(0, xOffsetColumn).ClearContents
	End If
	Next
	Application.EnableEvents = True
	End If
	End Sub

view rawsaveDateByChange.bas hosted with  by GitHub

3. Lưu và đóng cửa sổ lại. Bây giờ khi bạn thay đổi giá trị trong cột B, ngày tháng và thời gian sẽ được tự động ghi lại trong cột C.

Chú ý:

1. Trong đoạn mã trên, bạn có thể xác định “B:B” là bất cứ cột nào bạn muốn thay đổi dữ liệu trong đoạn sau: Set WorkRng = Intersect(Application.ActiveSheet.Range(“B:B”), Target).

2. Với xOffsetColumn = 1, bạn có thể chèn và cập nhật ngày tháng và thời gian cho cột đầu tiên kế bên cột giá trị bạn thay đổi. Bạn có thể thay đổi con số này thành những số khác như 2,3,4,5… điều này nghĩa là ngày tháng và thời gian sẽ được chèn vào cột thứ 2, 3,4,5 bên cạnh cột có giá trị thay đổi.

3. Khi bạn xóa giá trị trong cột cần thay đổi, ngày tháng và thời gian cũng sẽ bị xóa theo.

Rất nhiều kiến thức phải không nào!

trong quá trình theo tác bị lỗi hoặc không được bạn có thể commen ở đây đẻ được giúp nhé

Theo : https://blog.hocexcel.online/