Tổng hợp và nhóm nhân viên

[cubinv]

Chào các Bạn trong diễn đàn
Mình có dữ liệu gồm cột: tên nhân viên, phòng/Phân xưởng và tổ sản xuất (phòng/phân xưởng thì đã sắp xếp theo nhóm riêng, còn tổ sản xuất thì hơi lộn xộn vì nhân viên trong phân xưởng thường có thay đổi về các tổ theo yêu cầu công việc), ở thời điểm bất kỳ mình muốn tổng hợp thành 1 sheet mới trong đó đã sắp xếp và nhóm nhân viên vào từng phòng/ban, tổ sản xuất tương ứng và tính tổng số người hiện có. Chi tiết theo file đính kèm, rất mong các Bạn trong giúp mình nhé, cảm ơn mọi người!

 

[SA_DQ]

Bạn nghiên cứu bảng dưới đây xem & thử áp dụng trước khi viết Code,. . .

Đơn vị

Mã

Bộ phận

Mã

Tổ/Mã

Mã vị trí

Gián tiếp

G

Ban Giám đốc

A

0

GA0

Trục tiếp

T

Phòng 1

B

1

GB0

Phòng 2

C

2

GC0

Phòng 3

D

3

GD0

Phân xưởng 1

E

4

TE0

Phân xưởng 2

F

(TE1. . .)

Phân xưởng 3

G

TF0

(TF1. . .)

TG0

(TG1,. . .)

Nghĩa là mỗi vị trí công tác trong cơ quan của bạn đều có mã (duy nhất)Khi thay đổi vị trí công tác đều phải thay mã vị trí theo ngay!
& mình cho rằng từ đây sẽ tổng hợp tiện hơn

 

[cubinv]

Bạn nghiên cứu bảng dưới đây xem & thử áp dụng trước khi viết Code,. . .

Em đã thêm mã công việc vào file theo gợi ý của Anh, nhờ Anh và các Bạn trong diễn đàn giúp em nhé

 

[SA_DQ]

Việc thiết kế tiếp theo là ở trang 'Mong muốn':
Đó là thêm vào N -số những dòng trống sau những vị trí của từng mã
Ví dụ: BGĐ N=2
Các phòng khối gián tiếp N=3;
Các tổ của từng phân xưỡng N=4
Các số N này quyết định do thực tế ở đơn vị bạn;
Sau đó sẽ đến phần viết chương trình
a./ Chép những người có mã công việc sang trang 'mong muốn'
b./ Duyệt & ẩn đi những dòng trống trong 'mong muốn'

Bạn thấy phương án này OK thì thêm số dòng trống cho các bộ phận nha!

 

[cubinv]

Việc thiết kế tiếp theo là ở trang 'Mong muốn':
Đó là thêm vào N -số những dòng trống sau những vị trí của từng mã
Ví dụ: BGĐ N=2
Các phòng khối gián tiếp N=3;
Các tổ của từng phân xưỡng N=4
Các số N này quyết định do thực tế ở đơn vị bạn;
Sau đó sẽ đến phần viết chương trình
a./ Chép những người có mã công việc sang trang 'mong muốn'
b./ Duyệt & ẩn đi những dòng trống trong 'mong muốn'

Bạn thấy phương án này OK thì thêm số dòng trống cho các bộ phận nha!

Em chưa hiểu ý Anh lắm, tức là sau mỗi người cuối cùng của một bộ phận (Ban GĐ, Phòng, Tổ) sẽ thêm số dòng trống tương ứng với số nhân viên hiện có phải không Anh?

 

[SA_DQ]

Trong 1 tổ chức nhân sự, việc biến động là không thể không luờng trước;
Vì vậy thay vì Phòng 1 hiện có là 6 người, ví dụ; Ta sẽ thêm 3 hay 4 dòng trống;
Con số 3 hay 4 này do thực tế biến động trong cơ quan bạn quyết định;

Sau đó, Macro sẽ chép số người trong từng tổ sẽ còn dôi vài (hay chí ít 1 dòng trống)
Khâu cuối của macro là tìm những dòng trống này & ẩn (chúng) nó đi; Ngõ hầu làm đẹp báo cáo 1 cách luôn luôn!

 

[cubinv]

Trong 1 tổ chức nhân sự, việc biến động là không thể không luờng trước;
Vì vậy thay vì Phòng 1 hiện có là 6 người, ví dụ; Ta sẽ thêm 3 hay 4 dòng trống;
Con số 3 hay 4 này do thực tế biến động trong cơ quan bạn quyết định;

Sau đó, Macro sẽ chép số người trong từng tổ sẽ còn dôi vài (hay chí ít 1 dòng trống)
Khâu cuối của macro là tìm những dòng trống này & ẩn (chúng) nó đi; Ngõ hầu làm đẹp báo cáo 1 cách luôn luôn!

Em đã sửa file (thêm dòng trống cuối mỗi phòng/tổ) theo hướng dẫn của Anh, demo tạm như vậy nhờ Anh xem giúp em nhé.

 

[SA_DQ]

Tạm thời bạn tham khảo 2/5 chặng đường từ file đính kèm;
Còn 2 cột chưa có dữ liệu & khâu ẩn các dòng trống ( O Dữ liệu)


Số dòng trống đó macro thực hiện sẽ OK, nhưng cách nó làm sẽ là thêm số dòng chắc như bắp; như đều là 13 cả,

 

[cubinv]

Tạm thời bạn tham khảo 2/5 chặng đường từ file đính kèm;
Còn 2 cột chưa có dữ liệu & khâu ẩn các dòng trống ( O Dữ liệu)


Số dòng trống đó macro thực hiện sẽ OK, nhưng cách nó làm sẽ là thêm số dòng chắc như bắp; như đều là 13 cả,

Em cảm ơn Anh đã dành thời gian giúp em, em muốn nhờ Anh sửa code tự động chèn thêm dòng giúp em, sau đó em sẽ tự sửa/xóa thủ công, như vậy em sẽ giảm được thời gian đếm và chèn số dòng vào các mục trước khi chạy code.

 

[SA_DQ]

Bạn xem file này của mình; Nếu ưng ý thì chúc bạn vui vẻ!

 

[cubinv]

Bạn xem file này của mình; Nếu ưng ý thì chúc bạn vui vẻ!

Em cảm ơn Anh rất nhiều, để em chạy thử nếu có nội dung nào cần hỗ trợ em sẽ nhờ Anh sau nhé.

 

[cubinv]

Bạn xem file này của mình; Nếu ưng ý thì chúc bạn vui vẻ!

Em chào Anh và các bạn trong diễn đàn:
- Code Anh viết đã đáp ứng tốt yêu cầu công việc của em, tuy nhiên em muốn nhờ Anh bổ sung thêm 1 đoạn code xóa hết dữ liệu cũ từng phòng/phân xưởng trong sheet "TongHop" (như ảnh đính kèm) trước khi code ghi dữ liệu mới để tránh trường hợp dư người sau khi đã điều chuyển đi nơi khác.
- Anh chỉ giúp em các khắc phục lỗi ngày tháng năm sinh bị định dạng sai sau khi chạy code mặc dù em đã để dấu nháy đơn (') ở ký tự đầu tiên (VD: file data định dạng '01/02/1999, sau khi chạy code định dạng thành 02/01/1999).
Em cảm ơn Anh, chúc Anh và các bạn trong diễn đàn có ngày nghỉ Lễ vui vẻ!

 

[SA_DQ]

. . . .
(1) - Code Anh viết đã đáp ứng tốt yêu cầu công việc của em, tuy nhiên em muốn nhờ Anh bổ sung thêm 1 đoạn code xóa hết dữ liệu cũ từng phòng/phân xưởng trong sheet "TongHop" (như ảnh đính kèm) trước khi code ghi dữ liệu mới để tránh trường hợp dư người sau khi đã điều chuyển đi nơi khác.
(2) - Anh chỉ giúp em các khắc phục lỗi ngày tháng năm sinh bị định dạng sai sau khi chạy code mặc dù em đã để dấu nháy đơn (') ở ký tự đầu tiên (VD: file data định dạng '01/02/1999, sau khi chạy code định dạng thành 02/01/1999).
Em cảm ơn Anh, chúc Anh và các bạn trong diễn đàn có ngày nghỉ Lễ vui vẻ!

(1) Câu lệnh xóa như yêu cầu đã có;

(2) Mình thì chư rõ thế nào là bị định dạng sai; & đừng bao giờ cho là Excel sai này nọ; Sai hay không là do ta hay chung ta mà thôi.
Vả chăng file có chỗ nào ghi dữ liệu ngày-tháng-năm đâu kia chứ?

(3) Chúc vui vẻ nha!

 

[cubinv]

(1) Câu lệnh xóa như yêu cầu đã có;

(2) Mình thì chư rõ thế nào là bị định dạng sai; & đừng bao giờ cho là Excel sai này nọ; Sai hay không là do ta hay chung ta mà thôi.
Vả chăng file có chỗ nào ghi dữ liệu ngày-tháng-năm đâu kia chứ?

(3) Chúc vui vẻ nha!

Em cảm ơn Anh, có lẽ em đã thao tác sai, để em kiểm tra lại ạ

 

[cubinv]

.