In tùy chọn (1 người xem)

[Excel365]

Nhờ các anh chị giúp em viết code In Từng Bộ phận trong 1 trang tính có nhiều Bộ phận.
Mỗi Bộ phận sẽ in riềng biệt.
Trân trọng cảm ơn

 

[Excel365]

Bạn chọn giá trị tại Cell AL1, Sheet Cơm để chạy lệnh in.
Chọn giá trị tại AL1 là ALL thì nó in hết cả bản,
Nếu muốn in bộ phận nào thì Đổ list chọn Phòng ban đó thì nó in........

Cảm ơn bạn nhiều
Nhưng Chọn giá trị tại AL1 là ALL thì nó in hết cả bản
Chỗ này không đúng ý mình rồi. Nếu như chọn All thì nó sẽ in hết tất cả các Bộ phận ở đây là nó sẽ in hết Bộ phận Ví du như sau nó sẽ In Kiểm hàng xong, rồi in tiếp KCS, tiếp là sẽ In Thống kê. (Thay vì mình sẽ chọn in từng bộ phận 1, thì ở đây mình sẽ chon All).

 

[Excel365]

Bạn lấy lại file #2

Cám ơn bạn nhiều, Cho mình hỏi, còn trường hợp đánh số TT ở cột thì làm sao hả bạn.
Từ code của bạn mình có thể đưa lên Form được ko bạn

 

[genius111]

Bạn chọn giá trị tại Cell AL1, Sheet Cơm để chạy lệnh in.
Chọn giá trị tại AL1 là ALL thì nó in hết cả bản,
Nếu muốn in bộ phận nào thì Đổ list chọn Phòng ban đó thì nó in........

hix. file hay quá, tiếc là em chẳng biết gì về VBA cả, định áp dụng cho form của em mà không biết làm thế nào hix

 

[genius111]

Gửi lên topic này, hoặc bạn tạo 1 topic khác, với file & nội dung cần giúp!

Em gửi file lên thì nhanh nhưng mà em muốn hiểu rõ cách làm để áp dụng cho nhiều biểu mẫu khác nữa. Giá bác giải thích cách làm của file trên cho mấy người gà mờ như em thì tốt quá hihi

 

[genius111]

Code tôi cũng mới học, nên chỉ biết sơ sơ nên không biết giải thích thế nào. bạn muốn hiểu thì search trên diễn đàn này đầy.......rồi học từ từ..........

em đang nghiên cứu file của bác, có gì em inbox hỏi bác nhé

 

[Excel365]

Bạn lấy lại file #2

Có 1 điều mình muốn là làm sao để cho AL1 nó sẽ tự động Cập nhật sách bộ phận luôn. Tại vì đôi khi khi có thể có nhiều hoặc ít hơn 6 bộ phận đó.

 

[Excel365]

Cái này tôi nghĩ với trình của bạn, bạn có thể hoàn toàn làm được mà, sao phải hỏi nhỉ?
+ AL1 là tôi dùng Data Validation/List, với Source là vùng =$AN$6:$AN$12, nếu nhiều hơn 6 bộ phận thì bạn đánh chính xác tên các bộ phận còn lại vào sau cell AN12 trở đi, cho tới hết. sau đó chỉnh lại Source cho AL1 là được mà
+ Kéo lại số thứ tự tương ứng cột AM
+ Cell AL2 tôi xài công thức Vlookup để tham chiếu khi chạy vòng lặp trong code nếu chọn ALL, cho nên bạn phải chỉnh lại vùng dò tìm của hàm Vlookup này theo vùng bạn mới vừa thêm
+Cell AL3 là dùng để ghi kết quả vòng lặp For i = 1 To 6
+ Chỉnh lại vòng lắp For i = 1 To 6 Bây giờ không phải là 6 mà là mấy thì bạn tự sửa cho tương ứng....



Hoặc lấy lại file post này

Cái vu đưa vô data Valadation thì mình làm được, nhưng còn vụ For i = 1 To 6 có cách nào để số 6 nó tự động luôn không bạn
Ps: Mình thấy rồi bạn ơi vụ For i = 1 To 6 có cách nào để số 6 nó tự động luôn không bạn
Cám ơn bạn nhiều

 

[Excel365]

Trên file Post #13 tôi có làm luôn cho bạn là To tới luôn rồi mà. Bạn xem lại xem...........
Kể cả name động cho Data validiton......

Ok, mình thấy rồi, cám ơn bạn nhiều