Event lúc chạy lúc không - Do lỗi Excel? (1 người xem)

[hoangexcell]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("Z4:Z50")) Is Nothing Then Exit Sub
   
    Target.Value = "D" & Target.Value
    
End Sub

Nó chạy được, sau đó lại đơ không tác dụng. Chẳng hiểu nổi. Học hành kiểu này cứ như ma ám á.

Anh Chị Em nào giải thích vì sao lúc sau nó lại không tác dụng không?

 

[giaiphap]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("Z4:Z50")) Is Nothing Then Exit Sub
  
    Target.Value = "D" & Target.Value
   
End Sub

Nó chạy được, sau đó lại đơ không tác dụng. Chẳng hiểu nổi. Học hành kiểu này cứ như ma ám á.

Anh Chị Em nào giải thích vì sao lúc sau nó lại không tác dụng không?

Sửa lại thế này.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("Z4:Z50")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = "D" & Target.Value
    Application.EnableEvents = True
End Sub

 

[hoangexcell]

Sửa lại thế này.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("Z4:Z50")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = "D" & Target.Value
    Application.EnableEvents = True
End Sub

Lý do?! Thật ra ban đầu có 2 dòng lệnh đấy nhưng đã thử bỏ nên đoạn code trên lại ko thấy đó

 

[giaiphap]

Lý do?! Thật ra ban đầu có 2 dòng lệnh đấy nhưng đã thử bỏ nên đoạn code trên lại ko thấy đó

Vấn đề là đúng yêu cầu chưa?

 

[hoangexcell]

Vấn đề là đúng yêu cầu chưa?

Do chương trình excel rồi. Tắt Excel thậm chí khởi động lại máy thì chạy lại bình thường.