Lỗi tự tắt file mỗi khi load sự kiện Worksheet_Change

[An.BA]

Em có 1 file excel gồm 2 sheets.
Thông tin học sinh và Báo cáo hàng ngày.
Thông Tin học sinh chứa 1 lần thông tin,
Còn sheet"Báo cáo hàng ngày" thì liên tục vì vậy khi nhập mã học sinh ở sheet báo cáo hàng ngày thì mọi thông tin đã có sẽ tự động load ra với các dữ liệu tương ứng sheet bên
Dữ liệu nào lần đầu được nhập trong Báo cáo thì nó sẽ màu xanh như bên dưới.
Em có viết code xử lý rồi nhưng không hiểu sao code của em có vấn đề gì không mà nhập được vài mã thì nó quay quay xong lại tắt file.
Em cảm ơn ạ.

 

[Phuocam]

Em có viết code xử lý rồi nhưng không hiểu sao code của em có vấn đề gì không mà nhập được vài mã thì nó quay quay xong lại tắt file.
Em cảm ơn ạ.

Biến i_mahs:

1. Khi có mã tồn tại => là số

2. Khi không có mã tồn tại => lỗi, không phải là Empty

Thử xóa đoạn:

'If i_mahs = Empty Then
                'Exit Sub
'End If

Và thay:

If Not i_mahs = Empty Then

thành:

If IsNumeric(i_mahs) Then

 

[An.BA]

Biến i_mahs:

1. Khi có mã tồn tại => là số

2. Khi không có mã tồn tại => lỗi, không phải là Empty

Thử xóa đoạn:

'If i_mahs = Empty Then
                'Exit Sub
'End If

Và thay:

If Not i_mahs = Empty Then

thành:

If IsNumeric(i_mahs) Then

mình thay rồi vẫn không được bạn à, gõ được vài dòng cái lại tắt file luôn

 

[Nhattanktnn]

mình thay rồi vẫn không được bạn à, gõ được vài dòng cái lại tắt file luôn

Có lẽ đây là do lặp vô tận,

Dòng màu vàng, bạn ghi dữ liệu vào đây, sau đó nhận thấy có sự thay đổi trên vùng lựa chọn. Thì sub lại chạy lại từ đầu, đến đây lại thay đổi, lại tiếp tục chạy lại. Dẫn đến đóng file

 

[An.BA]

Có lẽ đây là do lặp vô tận,
View attachment 247325
Dòng màu vàng, bạn ghi dữ liệu vào đây, sau đó nhận thấy có sự thay đổi trên vùng lựa chọn. Thì sub lại chạy lại từ đầu, đến đây lại thay đổi, lại tiếp tục chạy lại. Dẫn đến đóng file

Mình kiểm tra thì thấy nó gán cho 1 cell xong thì nó lại bắt sự kiện Change sau mỗi lần gán,
Không hẳn là vòng lặp vô tận bạn à. Vì load sự kiện mỗi lần gán xong lại bị load lại. Nhưng do gán sự kiện Sheets_Change thì biết làm sao được.

 

[huuthang_bd]

thì biết làm sao được

Application.EnableEvents

 

[An.BA]

Application.EnableEvents

Em cảm ơn anh nhé, Đúng là hiệu quả thật ạ.