Xin giúp viết thêm code VBA cho file bảng kê!! (6 người xem)

[khongnho1993]

Mình có file bảng kê thu mua 01/TNDN đính kèm nhưng hiện tại nó chỉ có trích lọc theo quý, h mình muốn trích có thêm 2 sheet điều kiện trích lọc theo tháng và theo số ccdc của từng cá nhân để tiện in ra ký dấu, nhờ các cao nhân chỉnh sửa bổ sung thêm giúp mình với ak.

 

[qtm1987]

Mình có file bảng kê thu mua 01/TNDN đính kèm nhưng hiện tại nó chỉ có trích lọc theo quý, h mình muốn trích có thêm 2 sheet điều kiện trích lọc theo tháng và theo số ccdc của từng cá nhân để tiện in ra ký dấu, nhờ các cao nhân chỉnh sửa bổ sung thêm giúp mình với ak.

Gửi bạn file đã chỉnh xem tờ khai 01/TNDN theo kỳ chọn Tháng - Quý - Năm. Mình cũng làm kế toán nên sẵn tiện chỉnh file cho bạn.

 

[khongnho1993]

Gửi bạn file đã chỉnh xem tờ khai 01/TNDN theo kỳ chọn Tháng - Quý - Năm. Mình cũng làm kế toán nên sẵn tiện chỉnh file cho bạn.

Thanks b nhiều nhé, có trích lọc theo cccd trích lọc bảng kê cho từng cá nhân nữa thì tốt quá!!

 

[qtm1987]

Thanks b nhiều nhé, có trích lọc theo cccd trích lọc bảng kê cho từng cá nhân nữa thì tốt quá!!

Tôi bổ sung phần lọc theo CCCD. Bạn tham khảo thêm.

 

[khongnho1993]

Tôi bổ sung phần lọc theo CCCD. Bạn tham khảo thêm.

Thank bạn rất nhiều, mình đã test code chạy ok, nếu phần ngày tháng và ký bên dưới nó chạy theo mỗi lần mình chọn khung thời gian nữa để tiện cho việc in nữa thì hoàn hảo.

 

[qtm1987]

Thank bạn rất nhiều, mình đã test code chạy ok, nếu phần ngày tháng và ký bên dưới nó chạy theo mỗi lần mình chọn khung thời gian nữa để tiện cho việc in nữa thì hoàn hảo.

- Thêm công thức diễn giải tên kỳ chọn của sheet ToKhai:
+ A3 =$K$1&IF(LEFT($J$1,1)="N","","/"&YEAR($K$2))
- Tại Sub dinhdang() Bỏ dòng '.Range("F" & dc + 3).Value = ngayTD(Sheet1.Range("B9").Value, NgayCT(thang, Sheet1.Range("B8").Value, True)) Thay bằng:

...
Dim ngayLap As Date
        Dim uniNam As String
        ngayLap = Sheet5.Range("K3").Value
        uniNam = "n" & ChrW(259) & "m"
        Sheet5.Range("F" & dc + 3).Value = Sheet1.Range("B9").Value & ", " & Format(ngayLap, """ngày"" dd ""tháng"" mm ") & uniNam & " " & Year(ngayLap)
        ...

 

[khongnho1993]

- Thêm công thức diễn giải tên kỳ chọn của sheet ToKhai:
+ A3 =$K$1&IF(LEFT($J$1,1)="N","","/"&YEAR($K$2))
- Tại Sub dinhdang() Bỏ dòng '.Range("F" & dc + 3).Value = ngayTD(Sheet1.Range("B9").Value, NgayCT(thang, Sheet1.Range("B8").Value, True)) Thay bằng:

...
Dim ngayLap As Date
        Dim uniNam As String
        ngayLap = Sheet5.Range("K3").Value
        uniNam = "n" & ChrW(259) & "m"
        Sheet5.Range("F" & dc + 3).Value = Sheet1.Range("B9").Value & ", " & Format(ngayLap, """ngày"" dd ""tháng"" mm ") & uniNam & " " & Year(ngayLap)
        ...

Mình test Code chạy vậy là quá ok rồi bạn, còn cái cuối nếu viết thêm được cái trình in toàn bộ các mã khách trong khung find chạy theo bảng kê nữa thì tiện!!

 

[qtm1987]

Mình test Code chạy vậy là quá ok rồi bạn, còn cái cuối nếu viết thêm được cái trình in toàn bộ các mã khách trong khung find chạy theo bảng kê nữa thì tiện!!

Tôi thường dùng addin in hàng loạt để làm việc này. Để lúc nào rảnh tôi tách addin đó cho bạn.

 

[khongnho1993]

Tôi thường dùng addin in hàng loạt để làm việc này. Để lúc nào rảnh tôi tách addin đó cho bạn.

ok b, mình cảm ơn trước nhé!!

 

[qtm1987]

ok b, mình cảm ơn trước nhé!!

Như đã hứa, hôm nay cuối tuần rảnh tôi bổ sung thêm tool in hàng loạt vào file của bạn. Trên máy tôi thì không phát sinh lỗi, nhưng có thể máy bạn sẽ có (Bạn tự kiểm tra lại nhé)

 

[khongnho1993]

Như đã hứa, hôm nay cuối tuần rảnh tôi bổ sung thêm tool in hàng loạt vào file của bạn. Trên máy tôi thì không phát sinh lỗi, nhưng có thể máy bạn sẽ có (Bạn tự kiểm tra lại nhé)

Mình đã test file chạy không lỗi gì cả, một lần nữa thanks bạn rất nhiều!!