Cần giúp đỡ file Excel quản lý nhân sự (2 người xem)

[tamdang272]

Em cần làm 1 phần mềm excel quản lý nhân sự có thể thực hiện các chức năng cơ bản như:
- Tổng hợp danh sách nhân viên theo từng bộ phận, địa điểm làm việc và số năm công tác
- Thống kê trình độ đào tạo, nam/nữ, nhân viên mới, nhân viên đã nghỉ việc...
- Hiển thị sơ yếu lý lịch nhân viên
- Tìm kiếm nhân viên theo tên, ngày sinh, ...
Và một số chức năng khác.
Em mới vào nghề nhân sự và trình độ tin học cơ bản, còn làm phần mềm trên excel và độ vi diệu của nó thì em mới chỉ biết đến mấy ngày nay khi lạc vào group GPE thôi nên mọi thứ bắt đầu từ số 0.
Em gửi file đính kèm em copy trong topic của bác tuan_anhbm và bác VuNgoc. Các sheet đào tạo, HĐLĐ, BHXH, thống kê là em tự thêm vào cho các bác dễ hình dung. Mong các anh/chị/em ai có kinh nghiệm, code, file... liên quan thì giúp đỡ em với.
Em cảm ơn nhiều nhiều.
Link 2 bài viết em xem được đây ạ:
http://www.giaiphapexcel.com/forum/showthread.php?40582-File-excel-quản-lý-nhân-viên
http://www.giaiphapexcel.com/forum/...mong-các-bạn-góp-ý&p=25186&posted=1#post25186

 

[tamdang272]

Tiện thể có bác nào ở Vinh- NA không cho em số điện thoại mong gặp mặt giao lưu trực tuyến học hỏi kinh nghiệm với ạ

 

[ChanhTQ@]

Xin góp í với bạn từ những điều nhỏ nhặt nhất:

1./ Thứ tự các trường (cột) trong trang "DanhSach":
Cái nào mãi không biến đổi thì nên để trước, như [Ho & Ten], [Nam Sinh], [Fai Tinh]
Những trường nào biến đổ thì nên đề sau, như [Đon Vi CT], [Chức vụ],. . .

2./ Tên trang tính không nên là tiếng Việt có dấu & nên súc tích nhất có thể;
Ví dụ: [DSach], [DaoTao],. . . .

3./ Mỗi cá nhân trong hồ sơ nên có mã duy nhất; Bạn có thể tham khảo cách tạo mã như sau:

[TABLE="width: 242"]
[TR]
[TD]Mã[/TD]
[TD]HỌ VÀ TÊN[/TD]
[/TR]
[TR]
[TD]FSH00[/TD]
[TD]Đặng Song Hào[/TD]
[/TR]
[TR]
[TD]HHT00[/TD]
[TD]Hoàng Thị Huyền Trang[/TD]
[/TR]
[TR]
[TD]HTH00[/TD]
[TD]Hoàng Thị Hoa[/TD]
[/TR]
[TR]
[TD]LJD00[/TD]
[TD]Lê Dương[/TD]
[/TR]
[TR]
[TD]LNA00[/TD]
[TD]Lâm Thị Ngọc ánh[/TD]
[/TR]
[TR]
[TD]LTM00[/TD]
[TD]Lê Thị Mai[/TD]
[/TR]
[TR]
[TD]NHB00[/TD]
[TD]Nguyễn Hồ Bắc[/TD]
[/TR]
[TR]
[TD]NTA00[/TD]
[TD]Ngô Tuấn Anh[/TD]
[/TR]
[TR]
[TD]NTN00[/TD]
[TD]Nguyễn Thị Nga[/TD]
[/TR]
[TR]
[TD]NTS00[/TD]
[TD]Ngũ Trọng Sáng[/TD]
[/TR]
[TR]
[TD]NTT00[/TD]
[TD]Nguyễn Thị Thanh Tâm[/TD]
[/TR]
[TR]
[TD]NTT01[/TD]
[TD]Nguyễn Thị Thơm[/TD]
[/TR]
[TR]
[TD]NVN00[/TD]
[TD]Nguyễn Thị Việt Nga[/TD]
[/TR]
[TR]
[TD]PVG00[/TD]
[TD]Phan Văn Giáp[/TD]
[/TR]
[TR]
[TD]TFD00[/TD]
[TD]Trần Đức Dương[/TD]
[/TR]
[TR]
[TD]TXL00[/TD]
[TD]Trần Xuân Lâm[/TD]
[/TR]
[/TABLE]

4./ Bạn còn thiếu 1 trang hỗ trợ để lưu dữ liệu 1 cách cô gọn nhất;
Trang tính này chứa các danh mục. Chúng gồm 2 cột trở lên; 1 cột là mã (A, B, C, D,. . . . ) & 1 cột là tên danh mục đó;
Như A: BGĐ; B: Tài vụ; C: KCS,. . . .
Lúc đó trong trang 'DSach' ta chỉ nhập mã đơn vị thôi, ta không nhập tên đơn vị làm gì. (Khi cần hiển thị tên đơn vị ta có thể xài hàm VLOOKUP() hay 1 số cách khác. . .)
Ta cũng lập bảng danh mục cho chức vụ hay những trường/cột tương tự.

5./ Trong trang 'DaoTao] có trường [Trình độ văn hóa]; Cái này mình cho là không đúng, Trong xã hội ta không ít tiến sỹ, Giáo sư nhưng vô văn hóa thấy bà cố luôn!

Bạn nên sửa lại CSDL theo 1 số í trên.

Những mong bạn sẽ đúng ngay từ đầu mà thôi!

 

[SA_DQ]

Lí ra bạn nên đưa file giả lập lên mới fải

& cái nữa là: Ta nên bàn trước tiên đến cấu trúc dữ liệu & cách thức nhập liệu cho CSDL
Còn các báo cáo danh sách này nọ là vấn đề nấu cơm; Mà có gạo mới có nồi cơm, bạn à!

Bạn tham khảo các làm danh sách theo đơn vị.
(Nhớ cho macro chạy nha)

Chúc ngày đầu tuần làm việc hiệu quả

 

[tamdang272]

1./ Thứ tự các trường (cột) trong trang "DanhSach":
Cái nào mãi không biến đổi thì nên để trước, như [Ho & Ten], [Nam Sinh], [Fai Tinh]
Những trường nào biến đổ thì nên đề sau, như [Đon Vi CT], [Chức vụ],. . .

2./ Tên trang tính không nên là tiếng Việt có dấu & nên súc tích nhất có thể;
Ví dụ: [DSach], [DaoTao],. . . .

3./ Mỗi cá nhân trong hồ sơ nên có mã duy nhất; Bạn có thể tham khảo cách tạo mã như sau:

[TABLE="width: 242"]
[TR]
[TD]Mã[/TD]
[TD]HỌ VÀ TÊN[/TD]
[/TR]
[TR]
[TD]FSH00[/TD]
[TD]Đặng Song Hào[/TD]
[/TR]
[TR]
[TD]HHT00[/TD]
[TD]Hoàng Thị Huyền Trang[/TD]
[/TR]
[TR]
[TD]HTH00[/TD]
[TD]Hoàng Thị Hoa[/TD]
[/TR]
[TR]
[TD]LJD00[/TD]
[TD]Lê Dương[/TD]
[/TR]
[TR]
[TD]LNA00[/TD]
[TD]Lâm Thị Ngọc ánh[/TD]
[/TR]
[TR]
[TD]LTM00[/TD]
[TD]Lê Thị Mai[/TD]
[/TR]
[TR]
[TD]NHB00[/TD]
[TD]Nguyễn Hồ Bắc[/TD]
[/TR]
[TR]
[TD]NTA00[/TD]
[TD]Ngô Tuấn Anh[/TD]
[/TR]
[TR]
[TD]NTN00[/TD]
[TD]Nguyễn Thị Nga[/TD]
[/TR]
[TR]
[TD]NTS00[/TD]
[TD]Ngũ Trọng Sáng[/TD]
[/TR]
[TR]
[TD]NTT00[/TD]
[TD]Nguyễn Thị Thanh Tâm[/TD]
[/TR]
[TR]
[TD]NTT01[/TD]
[TD]Nguyễn Thị Thơm[/TD]
[/TR]
[TR]
[TD]NVN00[/TD]
[TD]Nguyễn Thị Việt Nga[/TD]
[/TR]
[TR]
[TD]PVG00[/TD]
[TD]Phan Văn Giáp[/TD]
[/TR]
[TR]
[TD]TFD00[/TD]
[TD]Trần Đức Dương[/TD]
[/TR]
[TR]
[TD]TXL00[/TD]
[TD]Trần Xuân Lâm[/TD]
[/TR]
[/TABLE]

4./ Bạn còn thiếu 1 trang hỗ trợ để lưu dữ liệu 1 cách cô gọn nhất;
Trang tính này chứa các danh mục. Chúng gồm 2 cột trở lên; 1 cột là mã (A, B, C, D,. . . . ) & 1 cột là tên danh mục đó;
Như A: BGĐ; B: Tài vụ; C: KCS,. . . .
Lúc đó trong trang 'DSach' ta chỉ nhập mã đơn vị thôi, ta không nhập tên đơn vị làm gì. (Khi cần hiển thị tên đơn vị ta có thể xài hàm VLOOKUP() hay 1 số cách khác. . .)
Ta cũng lập bảng danh mục cho chức vụ hay những trường/cột tương tự.

5./ Trong trang 'DaoTao] có trường [Trình độ văn hóa]; Cái này mình cho là không đúng, Trong xã hội ta không ít tiến sỹ, Giáo sư nhưng vô văn hóa thấy bà cố luôn!

Bạn nên sửa lại CSDL theo 1 số í trên.

Những mong bạn sẽ đúng ngay từ đầu mà thôi!

Cám ơn góp ý của bác. Em sẽ sửa và update tiếp ạ.
Riêng sheet đào tạo phần trình độ văn hóa ở đây là kiểu 9/12, 12/12, 10/10...em ghi theo như trong sơ yếu lý lịch thường ghi ấy ạ

 

[ChanhTQ@]

9/10 hay 11/12, . . . . đó không fải là trình độ văn hóa.

Đó là trình độ học vấn!

Có nhiều khi người có trình độ học vấn cao, nhưng trình độ văn hóa chỉ ngang với lưu manh hay ma cô mà thôi!


Xin gởi bạn tham khảo thêm báo cáo theo độ tuổi nghề với khoảng rọng là 5 năm

 

[tamdang272]

9/10 hay 11/12, . . . . đó không fải là trình độ văn hóa.

Đó là trình độ học vấn!

Có nhiều khi người có trình độ học vấn cao, nhưng trình độ văn hóa chỉ ngang với lưu manh hay ma cô mà thôi!


Xin gởi bạn tham khảo thêm báo cáo theo độ tuổi nghề với khoảng rọng là 5 năm

À ra là thế.
Thank bác nhiều nhiều ạ

 

[tamdang272]

Cám ơn bác rất nhiều. Em đã sửa và đã ổn hơn chút.
Chúc bác buổi tối vui vẻ. Em tiếp tục cày kéo và hy vọng tiếp tục nhận được tư vấn của bác

 

[ChanhTQ@]

Bạn tiếp tục tham khảo cách mình thống kê độ tuổi theo đơn vị hay khoảng năm công tác theo bộ fận trong CQ.

 

[tamdang272]

Bạn tiếp tục tham khảo cách mình thống kê độ tuổi theo đơn vị hay khoảng năm công tác theo bộ fận trong CQ.

Em sửa file QLNS, trong quá trình làm bị lỗi nên xóa sheet "THop" ở file đang làm (Tạm gọi là file 1) và move sheet THop ở file của bác up lên (file 2) (em tải lại rồi move and copy ạ). Giờ mỗi lần mở, nếu chỉ mở file 1 thì sheet Thop không hiện các mã ĐV, phải mở file 2 thì mới thực hiện được.
Em tìm mãi mà không ra con trỏ nào trỏ về cái file 2 kia cả
Mong bác cố gắng giúp em với Thank bác nhiều nhiều!

 

[ChanhTQ@]

Các mã ĐV này có liện hệ với trang 'FuTro'; Mà cụ thể là vùng có tên 'DVi'

Bạn cần tạo 1 danh sách các đơn vị & gán vùng này 1 cái tên & làm nguồn cho ô Validation để chọn mã đơn vị.

 

[tamdang272]

Các mã ĐV này có liện hệ với trang 'FuTro'; Mà cụ thể là vùng có tên 'DVi'

Bạn cần tạo 1 danh sách các đơn vị & gán vùng này 1 cái tên & làm nguồn cho ô Validation để chọn mã đơn vị.

Thank bác. Em link được rồi nhưng giờ lại không load được danh sách theo bộ phận,chạy file của bác up vẫn bị thế
Báo lỗi ở 2 dòng em in đậm.

If Not Intersect(Target, [i2]) Is Nothing Then Set Sh = Sheets("CSDL")
Rws = Sh.[b2].CurrentRegion.Rows.Count
Sh.[b2].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("TONGHOP!Criteria"), CopyToRange:=Range("B4:F4"), Unique:=False

 

[ChanhTQ@]

Thực ra đó chỉ là 1 dòng lệnh dài, được ngắt ra thành 2 dòng;

Cái sai có thể ở mệnh đề CriteriaRange:=Range("TONGHOP!Criteria")
Thực ra đây là 2 ô [I1:I2] trong trang 'TongHop' mà excel tài lanh ấn tên của nó cho vùng này.
Còn 2 ô í có những gì thì bạn nên xem lại file gốc trên diễn đàn.

 

[tamdang272]

Thực ra đó chỉ là 1 dòng lệnh dài, được ngắt ra thành 2 dòng;

Cái sai có thể ở mệnh đề CriteriaRange:=Range("TONGHOP!Criteria")
Thực ra đây là 2 ô [I1:I2] trong trang 'TongHop' mà excel tài lanh ấn tên của nó cho vùng này.
Còn 2 ô í có những gì thì bạn nên xem lại file gốc trên diễn đàn.

Vấn đề là ở chỗ tải file gốc về lúc chạy vẫn không load được danh sách bác ạ

 

[tamdang272]

thêm lỗi này nữa bác ạ

 

[tamdang272]

Thực ra đó chỉ là 1 dòng lệnh dài, được ngắt ra thành 2 dòng;

Cái sai có thể ở mệnh đề CriteriaRange:=Range("TONGHOP!Criteria")
Thực ra đây là 2 ô [I1:I2] trong trang 'TongHop' mà excel tài lanh ấn tên của nó cho vùng này.
Còn 2 ô í có những gì thì bạn nên xem lại file gốc trên diễn đàn.

Oh yes yes
Em làm được rồi bác ơi.
Công nghệ Copy & paste thật vi diệu.

 

[tamdang272]

Thực ra đó chỉ là 1 dòng lệnh dài, được ngắt ra thành 2 dòng;

Cái sai có thể ở mệnh đề CriteriaRange:=Range("TONGHOP!Criteria")
Thực ra đây là 2 ô [I1:I2] trong trang 'TongHop' mà excel tài lanh ấn tên của nó cho vùng này.
Còn 2 ô í có những gì thì bạn nên xem lại file gốc trên diễn đàn.

Oh yes yes
Em làm được rồi bác ơi.
Công nghệ Copy & paste thật vi diệu.

 

[tamdang272]

Các bác cho em hỏi thêm, cũng bảng dữ liệu như trên giờ em muốn thêm chức năng tìm kiếm theo tên mà không cần phải tách cột họ và tên có được không ạ?
Em sử dụng đoạn code này của một bác nào đó trên diễn đàn (Em xin lỗi vì quên mất topic nào rồi ạ), khi tìm kiếm thì gõ họ hoặc gõ đầy đủ họ tên thì được nhưng gõ theo tên lại "Không có".
Mong các bác giúp em với ạ.

Private Sub Worksheet_Change(ByVal Target As Range)Dim sArr(), dArr(), I As Long, J As Long, K As Long, Tem As String
If Target.Address = "$G$1" Then
    Tem = UCase(Target)
    sArr = Sheet1.Range(Sheet1.[=A2], Sheet1.[A2].End(xlDown)).Resize(, 11).Value
    ReDim dArr(1 To UBound(sArr, 1), 1 To 11)
    For I = 1 To UBound(sArr, 1)
        If UCase(sArr(I, 3)) Like Tem & "*" Then
            K = K + 1
            For J = 1 To 11
                dArr(K, J) = sArr(I, J)
            Next J
        End If
    Next I
    [A5:K1000].ClearContents
    If K Then
        [A5].Resize(K, 11) = dArr
    Else
        MsgBox "Khong co."
    End If
End If
End Sub

 

[tamdang272]

Thực ra đó chỉ là 1 dòng lệnh dài, được ngắt ra thành 2 dòng;

Cái sai có thể ở mệnh đề CriteriaRange:=Range("TONGHOP!Criteria")
Thực ra đây là 2 ô [I1:I2] trong trang 'TongHop' mà excel tài lanh ấn tên của nó cho vùng này.
Còn 2 ô í có những gì thì bạn nên xem lại file gốc trên diễn đàn.

Bác Chanh ơi! Nhờ bác giúp em thêm chút nữa ạ
Em lưu toàn bộ hồ sơ gốc nhân viên bằng bản scan PDF, mỗi nhân viên 1 thư mục trong đó chứa các file như sơ yếu lý lịch, văn bằng, chứng chỉ, quyết định, hợp đồng lao động... khi cần tìm thông tin nhân viên thì nhấn vào họ tên của người đó để hiển thị. Tuy nhiên, hyper link đến từng tệp hoặc từng file kiểu họ và tên link đến sơ yếu lí lịch, số HĐ link đến HĐLĐ, ..... như thế rất rườm rà và 103 nhân viên lại 103 * n lần hyperlink thật sự rất vướng víu nên nhờ bác tư vấn giúp em xem có cách nào giúp công việc này gọn gàng hơn không ạ?
Em mới tập tọe hỏi hơi nhiều mong bác không chê em phiền phức. Cảm ơn bác nhiều nhiều! Rất mong có dịp được gặp gỡ, giao lưu với bác.

 

[ChanhTQ@]

Từ trước đến giờ mình chỉ biết quản lý nhân sự thông qua Access hay Excel thôi;
Quản bằng PDF thì mình chưa hề đụng tới.

Vậy nên không thể giúp bạn được rồi & mình cũng buồn về chuyện này!