Bị đứng file khi thực hiện Insert dòng trong sheet có đặt sự kiện Worksheet_Change (1 người xem)

[vba_gpe]

Gửi anh chị GPE
Mình có vấn đề này nhờ anh chị giải thích giúp:
Mình chỉ đặt một sự kiện Worksheet_Change bình thường trong 1 sheet.
Thế mà khi ta bôi đen bất kỳ 1 dòng (nhiều dòng), sau đó thực hiện chèn dòng (Right Click -> Insert Row) thì file bị đứng.
Xin nhờ anh chị giải thích giúp mình và cách khắc phục nhé.
Mình có gửi kèm file và code trong sheet:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 1 And Target.Row >= 5 And Target.Row <= 20 Then     'Xac dinh cot thu 4, dong >7
    MsgBox "Target.Column = 1 And Target.Row >= 5 And Target.Row <= 20"
End If
End Sub

Mong nhận được giải đáp.
Trân trọng

 

[viehoai]

Gửi anh chị GPE
Mình có vấn đề này nhờ anh chị giải thích giúp:
Mình chỉ đặt một sự kiện Worksheet_Change bình thường trong 1 sheet.
Thế mà khi ta bôi đen bất kỳ 1 dòng (nhiều dòng), sau đó thực hiện chèn dòng (Right Click -> Insert Row) thì file bị đứng.
Xin nhờ anh chị giải thích giúp mình và cách khắc phục nhé.
Mình có gửi kèm file và code trong sheet:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 1 And Target.Row >= 5 And Target.Row <= 20 Then     'Xac dinh cot thu 4, dong >7
    MsgBox "Target.Column = 1 And Target.Row >= 5 And Target.Row <= 20"
End If
End Sub

Mong nhận được giải đáp.
Trân trọng

Sao bạn không trả về lại cập nhật màn hình:

Application.ScreenUpdating = True

Khi bạn sử dụng sự kiện Worksheet_Change() bạn nên dùng cặp code:

Application.EnableEvents = False
.......
Application.EnableEvents = True

 

[vba_gpe]

Khi bạn sử dụng sự kiện Worksheet_Change() bạn nên dùng cặp code:

Application.EnableEvents = False
.......
Application.EnableEvents = True

Cảm ơn Viethoai, lại bổ sung thêm được một kiếnt thức về VB.
Trân trọng.