Nhờ ACE sửa giúp CODE (1 người xem)

[Thay]

Tôi có làm 2 lệnh để nhân và cộng trong 1 hàng bằng VBA
tuy nhiên nếu để 1 lệnh thì chạy còn để 2 lệnh thì không chạy
Nhờ ACE kiểm tra sửa giúp CODE trong file đính kèm

 

[sealand]

Thực ra, code vẫn chạy bình thường nhưng bạn không xoá sự kiện nên nó lỗi chạy lòng vòng thôi. Bạn thêm 2 câu lệnh xoá và phục hồi sự kiện như sau xem sao

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Cells(Target.Row, 11) = Cells(Target.Row, 9) * Cells(Target.Row, 10)
Cells(Target.Row, 16) = Cells(Target.Row, 12) + Cells(Target.Row, 13) + Cells(Target.Row, 14) + Cells(Target.Row, 15)
Application.EnableEvents = True
End Sub