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

hoangexcell

Thành viên thường trực
Tham gia ngày
8 Tháng một 2008
Bài viết
398
Được thích
108
Điểm
695
Nơi ở
Thủ Đức
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?
 

giaiphap

Thành viên gạo cội
Tham gia ngày
12 Tháng ba 2007
Bài viết
4,818
Được thích
4,068
Điểm
860
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
 

hoangexcell

Thành viên thường trực
Tham gia ngày
8 Tháng một 2008
Bài viết
398
Được thích
108
Điểm
695
Nơi ở
Thủ Đức
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:
 
Top Bottom