Xin giúp Code tự động điền ngày tháng ! (1 người xem)

[quanese]

Như tiêu đề ,mình muốn nhờ các bạn giúp về code điền ngày tháng ,cột D =cột A- cộtl B ,với cột D là cột tồn ,cột A là cột nhập ,cột B là cột xuất trong kỳ ,khi cột D thay đổi thì cột tiếp theo sẽ tự động ghi ngày xuất + số lượng xuất ,ví dụ như mình có đoạn code sau

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" Then
If Target.Column = 4 Then
If Target.Offset(, 2) = "" Then
Target.Offset(, 2) = Date & " (" & Target & ")"
Else
If Target.Offset(, 2) Like "*" & Date & "*" Then
Target.Offset(, 2) = Target.Offset(, 2) & "-(" & Target & ")"
Else
Target.Offset(, 2) = Target.Offset(, 2) & ", " & Date & " (" & Target & ")"
End If
End If
End If
End If
End Sub

Nhưng khi cột D tự trừ thì code không hoạt động,xin nhờ mọi người giúp cho ,cám ơn .

 

[SA_DQ]

Bạn cố mà đưa file giả lập lên diễn đàn cho dễ hình dung & đỡ tốn thời gian của bạn.

 

[quanese]

Đâylà file giả lập,mong mọi người giúp đỡ ,lần đầu mình gửi bài nên chưa biết .View attachment ton kho.rar

 

[VetMini]

Đâylà file giả lập,mong mọi người giúp đỡ ,lần đầu mình gửi bài nên chưa biết

Vì bạn nói đây là lần đầu gửi bài nên tôi nhắc. Xoá cái mớ tiếng ngoại thì tôi mới trả lời.

...
Nhưng khi cột D tự trừ thì code không hoạt động,xin nhờ mọi người giúp cho ,thanks all

(Tuy nhiên, rừng còn nhiều củi, ở đây cũng còn nhiều bạn khác sẵn sàng trả lời những bài có tiếng ngoại, bạn có thể chờ họ)