Event lúc chạy lúc không - Do lỗi Excel?

Liên hệ QC

hoangexcell

Thành viên tiêu biểu
Tham gia
8/1/08
Bài viết
459
Được thích
132
Donate (Momo)
Donate
Giới tính
Nam
Mã:
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?
 
Mã:
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.
Mã:
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
 
Sửa lại thế này.
Mã:
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 đó :wallbash:
 
Web KT
Back
Top Bottom