Em kiểm tra kết quả giúp em như vậy được chưa ạhttps//drivegooglecom/file/d/143Lz

Dạ em đã cấp quyền rồi ạ, chủ yếu là em nhờ thầy kiểm tra giúp tư duy lập trình code với cách thức nhờ thầy góp ý để em hoàn thiện hơn ạ

Chào bạn code trong thì đúng nhưng code để chạy thì sai bạn có 2 sub lồng vào nhau cần bỏ đi mới chạy được code

Sub PhieuLuong_NoiDung()

    Private Sub cmd_InPhieu_Click()

cái này bạn viết chưa đúng 1 là bạn để nguyên 

Sub PhieuLuong_NoiDung()

code in

End sub

Thì phần này code của bạn sẽ tuyệt vời, và thêm phần nữa là muốn cho linh động bạn nên để từ tháng đến tháng trong vòng lặp đoạn này 

 For i = 1 To 4

code

next i

đoạn 1 đến 4 ở đây là tháng bạn có thể truyền nội dung từ một ô bất kỳ vào ko nhất thiết fix cứng

dạng như sau 

    For i = Sheet2.Range("I8").Value To Sheet2.Range("I9").Value

        Code của bạn

   next i

Vâng cám ơn thầy, đoạn trên là do em định làm Userform Process để hiển thị tiến trình xuất kết quả mà làm mãi không được nên em xóa form mà quên bỏ đi phần click.