NHỜ HỖ TRỢ XỬ LÝ FILE CHẤM CÔNG (1 người xem)

[huyloicnvt]

Xin chào các anh chị,
em đang gặp 1 vấn đề với bảng công của em.
bình thường em sẽ lọc bảng công theo tựng BỘ PHẬN LỚN từ bộ phận lớn lọc ra BỘ PHẬN CẤP TRÊN lọc ra TỔ.
mà khổ nổi dữ liệu nặng quá, mỗi lần lọc để in em mất rất nhiều thời gian.
bác nào có cao kiến để xử lý vấn đề này được không hỗ trợ em với ạ.
em xin cảm ơn.
file chấm công của em ở dưới file đính kèm ạ.

 

[SA_DQ]

Theo mình bạn nên xây dựng CSDL lại theo đúng thuần phong mĩ tục
Cụ thể bạn nên có các danh mục, như ví dụ 1 danh mục quan trọng mà bạn gọi là 'Bộ Phận Lớn' như sau:

BỘ PHẬN LỚN 大部门

STT

FIND

Mã

TV

Cà chớn

生产部 bộ phận sản xuất

1​

4​

A​

bộ phận sản xuất​

生产部​

缝纫 may

3​

3​

B​

may​

缝纫​

研发- RD

11​

4​

C​

RD​

研发-​

人事行政部 hành chính nhân sự

47​

6​

D​

hành chính nhân sự​

人事行政部​

质量部 bộ phận chất lượng

57​

4​

E​

bộ phận chất lượng​

质量部​

工务部 bộ phận công vụ

83​

4​

F​

bộ phận công vụ​

工务部​

仓储部 bộ phận kho

145​

4​

G​

bộ phận kho​

仓储部​

生管部_bộ phận sinh quản

219​

7​

H​

phận sinh quản​

生管部_bộ​

业务部 nghiệp vụ

245​

4​

I​

nghiệp vụ​

业务部​

系统开发部 Phát Triển Hệ Thống

281​

6​

J​

Phát Triển Hệ Thống​

系统开发部​

木料生产 gỗ

371​

5​

K​

gỗ​

木料生产​

财务部 tài vụ

379​

4​

L​

tài vụ​

财务部​

计划部 bộ phận kế hoạch

417​

4​

M​

bộ phận kế hoạch​

计划部​

采购部 thu mua

909​

4​

N​

thu mua​

采购部​

Sau đó trong CSDL ta xài mã cho toàn bộ 'BFL' này

???

Nếu bạn có nhu cầu, mình sẽ giúp bạn tạo thêm cột [Mã BFL] này trong CSDL;
Sau khi đã có cột này cùng với danh mục [Mã BF lớn] ta nên ẩn đi cột hiện tại.

 

[Phụ Hồ Lên Phú Hộ]

Em cũng quang tâm đến vụ này. Anh @SA_DQ làm ví dụ cho em học với

 

[SA_DQ]

Xin mời bạn tham khảo bước I:

Sub ThemMaBoFanLon()
 Dim Rng As Range, sRng As Range, Cls As Range
 Dim MyAdd As String
 Dim Rws As Long, J As Long
 
 Sheets("GPE").Select             '@@    '
 Application.ScreenUpdating = False
 With Sheets("HSNV")            '@@    '
    Rws = .[H8].CurrentRegion.Rows.Count
    Set Rng = .[H8].Resize(Rws)
    For Each Cls In Range([J2], [J2].End(xlDown))
        Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlPart)
        If sRng Is Nothing Then
            Cls.Interior.ColorIndex = 38
        Else
            MyAdd = sRng.Address
            Do
                sRng.Offset(, 1).Value = Cls.Offset(, -1).Value
                Set sRng = Rng.FindNext(sRng)
            Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
        End If
    Next Cls
 End With
 Application.ScreenUpdating = True
End Sub

 

[Phụ Hồ Lên Phú Hộ]

Xin mời bạn tham khảo bước I:

Sub ThemMaBoFanLon()
Dim Rng As Range, sRng As Range, Cls As Range
Dim MyAdd As String
Dim Rws As Long, J As Long

Sheets("GPE").Select             '@@    '
Application.ScreenUpdating = False
With Sheets("HSNV")            '@@    '
    Rws = .[H8].CurrentRegion.Rows.Count
    Set Rng = .[H8].Resize(Rws)
    For Each Cls In Range([J2], [J2].End(xlDown))
        Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlPart)
        If sRng Is Nothing Then
            Cls.Interior.ColorIndex = 38
        Else
            MyAdd = sRng.Address
            Do
                sRng.Offset(, 1).Value = Cls.Offset(, -1).Value
                Set sRng = Rng.FindNext(sRng)
            Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
        End If
    Next Cls
End With
Application.ScreenUpdating = True
End Sub

trong file em đâu thấy sheet GPE va HSNV đâu ta

 

[SA_DQ]

Trang HSNV là trang chính đó; Còn trang GPE thì mình đã đưa ở bài trước; (& đó là 2 cột trước cột [Cà chớn]

& xin mời bạn tham khảo bước II kế tiếp 2ua hình ảnh sau":

Mã BFL	TV	Cà chớn	Mã BFT	BỘ PHẬN CẤP TRÊN 上级部门
A​	bộ phận sản xuất​	生产部​	IA​	业务部 nghiệp vụ
E​	may​	缝纫​		丝绵填充 nhồi gòn
F​	RD​	研发-​		人事行政部 hành chính nhân sự
M​	hành chính nhân sự​	人事行政部​	DA​	仓储部 bộ phận kho
G​	bộ phận chất lượng​	质量部​	KA​	工务部 bộ phận công vụ
K​	bộ phận công vụ​	工务部​		布分包 đánh số vải
D​	bộ phận kho​	仓储部​		布裁剪 cắt vải
B​	phận sinh quản​	生管部_bộ​		座垫填充 nhồi gòn vào nệm
I​	nghiệp vụ​	业务部​		成品包装 đóng gói
H​	Phát Triển Hệ Thống​	系统开发部​		成品组装 Đóng ghế
J​	gỗ​	木料生产​		木料CNC
C​	tài vụ​	财务部​	JA​	木料直切 cắt gỗ
L​	bộ phận kế hoạch​	计划部​		沙发套QS may QS
N​	thu mua​	采购部​		海绵切割 cắt mút
			AA​	生产部 bộ phận sản xuất
			BA​	生管部_bộ phận sinh quản
				皮分包 đánh số da
				皮裁剪 cắt da
			FA​	研发- RD
				粘胶 dán keo
			HA​	系统开发部 Phát Triển Hệ Thống
			EG​	纫缝六线 may Line6
			EA​	缝纫 may
			EB​	缝纫一线 may Line1
			EH​	缝纫七线 may Line7
			ED​	缝纫三线 may Line3
			EJ​	缝纫九线 may Line9
			EC​	缝纫二线 may Line2
			EF​	缝纫五线 may Line5
			EW​	缝纫准备组 Tổ Dây kéo
			EL​	缝纫十一线 may line11
			EN​	缝纫十三线-may N13
			EL​	缝纫十二线 may line11
			EM​	缝纫十二线 may line12
			EO​	缝纫十四线-may N14
			EK​	缝纫十线 may Line10
			EE​	缝纫四线 may Line4
			LA​	计划部 bộ phận kế hoạch
			CA​	财务部 tài vụ
			GA​	质量部 bộ phận chất lượng
			NA​	采购部 thu mua

 

[Phụ Hồ Lên Phú Hộ]

anh đưa em vào ma trận rồi

 

[SA_DQ]

Bạn tưởng tượng 1 xí nghiệp dệt may có hàng ngàng CNV;
Cơ cấu tổ chức (theo bọn Tàu) gọi là BFL (bộ phận lớn), thứ đến là BFCT (bộ phận cấp trên) & cuối cùng dưới BFCT là các tổ
Ta thì quen: Phân xưỡng, chuyền (trong ngành may), hay phân xưỡng & cuối cùng là tổ ở các FX
Ví dụ để cho 6 chuyền hoạt động thì chuyện nào cũng có tổ bảo trì sửa chữa (nhỏ) khi chuyền đang hoạt động bổng hư nhỏ thì tiến hành S/c
. . . .
Để 6 chuyền đó hoạt động cũng cần phòng nhân sự (thu nạp CNV), Tài vụ lo đồng ra đồng vào & vật tư (để S/x) & bán hàng S/X ra,. . . .

Các chuyền cũng như các phòng ban & đội ta ấn định các mã A, B, . . . . .,N (ví dụ A là BGĐ,. . . . )
Trong các chuyền có các ca (BFCT), hay đội, như FX Cơ điện có Đội S/c vừa, đội S/C điện Cônghiệp, điện tử,. . . .
. . . . .

Tương tự như đơn vị HC nước ta có Tỉnh => Huyện => Xã, (hình như 1 vài đặc biệt nơi không có cấp Xã ,. . . )

Chúc các bạn ngày mới tốt lành!

[Nói thêm về 2 cột cuối của #6]: Có 1 số hàng chưa có mã vì phải chờ tác giả bài đăng xác định chúng thuốc BFL nào .

 

[huyloicnvt]

Bác @SA_DQ đưa em vào ma trận rồi.
nhưng em thích, em muốn học.
nếu bác có thời gian thì chỉ cho em với ạ, học thêm được kiến thức ạ.
em cảm ơn!

 

[SA_DQ]

Bác @SA_DQ đưa em vào ma trận rồi.
nhưng em thích, em muốn học. . . . . . , học thêm được kiến thức ạ.

Để 'Kiện toàn' CSDL của bạn theo ý mình, bạn cần 1 trang tính, có tên là 'DMuc' để chứa tất tần tật các danh sách có cùng dạng như sau

 Mã  |   Tên Danh Mục
Ví dụ: (Danh sách bộ phận lớn)
A  | Bộ phận Sản xuất
B  | Ban Giám đốc
C  | Phòng nhân sự
D  | Phòn (ban) Tài vụ
.. |  . . . . . .

. . . Các danh sách khác như Bộ phận cấp trên, DS các tổ, thậm chí DS nghề nghiệp; bậc thợ, . . . . .

Những DS này bạn phải tự thân thực hiện & thân ái!

 

[huyloicnvt]

Bác có thể cho em zalo để tiện trao đổi được không ạ

 

[SA_DQ]

Thì bạn cứ liên lạc thông qua tin nhắc của diễn đàn cũng OK rồi!

 

[huyloicnvt]

Để 'Kiện toàn' CSDL của bạn theo ý mình, bạn cần 1 trang tính, có tên là 'DMuc' để chứa tất tần tật các danh sách có cùng dạng như sau

 Mã  |   Tên Danh Mục
Ví dụ: (Danh sách bộ phận lớn)
A  | Bộ phận Sản xuất
B  | Ban Giám đốc
C  | Phòng nhân sự
D  | Phòn (ban) Tài vụ
.. |  . . . . . .

. . . Các danh sách khác như Bộ phận cấp trên, DS các tổ, thậm chí DS nghề nghiệp; bậc thợ, . . . . .

Những DS này bạn phải tự thân thực hiện & thân ái!

anh ơi, cái tổ nó nhiều quá những hơn 400 hạng mục, có cách nào để gán mã cho nó không anh.

 

[SA_DQ]

Tuy có 400 tổ, nhưng mình chắc là không độc lập;
Nếu các tổ cùng 1 đơn vị quản lý nó, các tổ này chứa mã của đơn vị chủ quản thêm nữa là được.
Vấn đề còn lại là các chuyền nào có nhiều tổ nhất thì ta đánh số thôi, ví dụ
ABC00; Ở đây A mà mã đơn chị cấp cao nhất;
B - mã đơn vị trung gian (trên cấp tổ)
C - mã của loại tổ, như C: Cắt, . . . .U: Ủi, M: may; R: Ráp,. . .

Xin lưu ý bạn là trong 1 trường (cột) dữ liệu không nên có 2 thứ tiếng

 

[Phụ Hồ Lên Phú Hộ]

Thì bạn cứ liên lạc thông qua tin nhắc của diễn đàn cũng OK rồi!

Sao em không gởi tin nhắn cho anh được vậy nhỉ

 

[huyloicnvt]

@SA_DQ em cũng không gửi được tin nhắn cho anh á