Không thấy sự liên hệ nào giữa ngày tháng và mã hàng trong ví dụ của bạn.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("B3:B100")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = Target(1) & "/" & Month(Target.Offset(0, -1))
Application.EnableEvents = True
End SubBạn đã thử code tôi gửi ở bài số #5 chưa? có sai sót không? và áp dụng vào bảng tính của bạn có làm chậm quá trình xử lý không?... v.v và v.v...
Có lẽ tôi đính kèm nhầm File. đã gởi lại ở bài #9.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("B2:B1000")) Is Nothing Or _
InStr(Target, "/") Then Exit Sub
Application.EnableEvents = False
If (Target(1) <> "") And (Target(1).Offset(0, -1) <> "") Then _
Target = Target(1) & "/" & Month(Target(1).Offset(0, -1))
Application.EnableEvents = True
End SubCái này cũng có thể giải quyết được, nhưng chỉ với dữ liệu ít. Vì sự thay đổi ở cột B phụ thuộc vào giá trị của cột A, bây giờ muốn cột A thay đổi cũng làm thay đổi ở B thì với dữ liệu nhiều có thể làm cho bảng tính của bạn nó "NỔI KHÙNG" luôn đó.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, k As Long, s As Range
Application.EnableEvents = False
Set r = Target(1)
If Not Intersect(r, Me.Range("B2:B1000")) Is Nothing Then
If r <> "" And r.Offset(0, -1) <> "" Then
k = InStr(r, "/") - 1
If k < 0 Then k = Len(r)
r = Left(r, k) & "/" & Month(r.Offset(0, -1))
End If
Else
If Not Intersect(r, Me.Range("A2:A1000")) Is Nothing Then
Set s = r.Offset(0, 1)
If r <> "" And s <> "" Then
k = InStr(s, "/") - 1
If k < 0 Then k = Len(s)
s = Left(s, k) & "/" & Month(r)
End If
End If
End If
Set r = Nothing
Set s = Nothing
Application.EnableEvents = True
End Sub
