Dùng VBA In Tờ khai Mã số thuế Thu nhập cá nhân

[QuangTuyen]

Gửi các bạn Chương trình In Tờ khai Mã số thuế Thu nhập cá nhân theo thông tư 84/2008/TT-BTC ngày 30/09/2008.
Trong chương trình này mình có tham khảo code in Tờ khai Bảo hiểm xã hội từ diễn đàn.
Mong các Thành viên hoàn thiện thêm.

 

[Thien]

Gửi các bạn Chương trình In Tờ khai Mã số thuế Thu nhập cá nhân theo thông tư 84/2008/TT-BTC ngày 30/09/2008.
Trong chương trình này mình có tham khảo code in Tờ khai Bảo hiểm xã hội từ diễn đàn.
Mong các Thành viên hoàn thiện thêm.

Sao bấm nút in nó báo lỗi run time error '424' Ojbect required

Thân.

 

[HLOan]

bấm in bị lỗi. có cách nào sửa ko

 

[cadafi]

MÌnh bổ sung tính năng In một người, hoặc in liên tục cả danh sách! Các bạn có thể tham khảo file đính kèm!

 

[NTTV]

Em có file data sẵn rồi, copy qua sheet MS Thang 1 thì ở cột ngày tháng bị lỗi, chuyển thành số, làm thế nào để định dạng lại để in như file được. Còn ở cột CMND thì bị mất số 0 ở đầu, em dùng định dạng custom 0######## để thêm số 0 vào nhưng ở sheet MST.VN vẫn không hiện được số 0. Các anh chị giúp em khắc phục hai lỗi trên với.
Cảm ơn các anh chị!

 

[ThuNghi]

Em có file data sẵn rồi, copy qua sheet MS Thang 1 thì ở cột ngày tháng bị lỗi, chuyển thành số, làm thế nào để định dạng lại để in như file được. Còn ở cột CMND thì bị mất số 0 ở đầu, em dùng định dạng custom 0######## để thêm số 0 vào nhưng ở sheet MST.VN vẫn không hiện được số 0. Các anh chị giúp em khắc phục hai lỗi trên với.
Cảm ơn các anh chị!

Số CMND mà làm như vậy thì nó vẫn hiểu là number => mid không được. Em nên nhập là text và thêm dấu '.
Các tiêu thức ngày sinh... em chỉ cần sửa column() - ... là OK.
Anh gởi file này cho em có vẻ dễ hơn.

 

[NTTV]

Số CMND mà làm như vậy thì nó vẫn hiểu là number => mid không được. Em nên nhập là text và thêm dấu '.
Các tiêu thức ngày sinh... em chỉ cần sửa column() - ... là OK.
Anh gởi file này cho em có vẻ dễ hơn.

Tại vì bên em đến 500 người lận, số CMND ko nhập tay mà xuất từ Oracle ra, nên có cách nào nhanh hơn là ngồi nhập lại từng số không anh?

Cám ơn anh đẹp trai, má lúm đồng tiền (Theo lời tỷ tỷ Thanh Mai)

 

[ThuNghi]

Tại vì bên em đến 500 người lận, số CMND ko nhập tay mà xuất từ Oracle ra, nên có cách nào nhanh hơn là ngồi nhập lại từng số không anh?

Dùng công thức sau để đưa về socmnd là 9 số.
=RIGHT("00"&J10,9)
Và dùng ct sau => ngày về dd/mm/yyyy, và format dd/mm/yyyy
=DATE(YEAR($M10),MONTH($M10),DAY($M10))

 

[cadafi]

Em có file data sẵn rồi, copy qua sheet MS Thang 1 thì ở cột ngày tháng bị lỗi, chuyển thành số, làm thế nào để định dạng lại để in như file được. Còn ở cột CMND thì bị mất số 0 ở đầu, em dùng định dạng custom 0######## để thêm số 0 vào nhưng ở sheet MST.VN vẫn không hiện được số 0. Các anh chị giúp em khắc phục hai lỗi trên với.
Cảm ơn các anh chị!

Em sửa ba Name CMND, NgayCMND và NamSinh lại như sau (vào Insert/Name/Define)

CMND = RIGHT("00"&VLOOKUP(MST.VN!$A$4,MST.VN!data,9,0),9)

NamSinh = TEXT(VLOOKUP(MST.VN!$A$4,MST.VN!data,6,0),"dd/mm/yyyy")

NgayCMND = TEXT(VLOOKUP(MST.VN!$A$4,MST.VN!data,12,0),"dd/mm/yyyy")

Thêm nữa, cột [Ngày tháng năm sinh] bên sheet [MS Thang1] có nhiều dòng có hai khoản trắng phía trước! Dùng Find and Replace (Ctrl+H) để bỏ hai khoản trắng ấy đi!

Anh sửa lại trong file của em rồi đấy! (Nhờ anh Doreamon lấy tiền dùm nha)

 

[bachduong999]

Các anh giúp em với, cột ngày sinh và ngày cấp CMTND của em cứ bị lộn ngày tháng, em phải sửa thế nào đây. Em đang dùng file của anh THU NGHi