File excel quản lý nhân viên (1 người xem)

[tuyentrang1247]

em cũng không thấy ảnh nhân viên nhảy theo số, nó cứ đứng yên một hình, mong các tiền bối giúp ạ

 

[tuyentrang1247]

Tại sao không load được ảnh vậy cán tiền bối ơi, giúp em mới, em rất thích bản này

 

[lanhlungngaytho]

các bác cho em hỏi em muốn tạo một exel quản lý nhân viên, khi em chỉ cần kích mã thẻ hay tên nhân viên đó sẽ ra hết anhr, quê quán, bằng cấp .... thì em lên làm như thế nào a? thanks các bác trước!

 

[tngan2412]

File excel quản lý hồ sơ nhân viên

Có 1 bạn vừa gửi mail nhờ tôi tùy biến 1 file quản lý thông tin nhân sự (có lẽ ngại nhờ mấy chuyện "lẻ tẻ" nên không post lên GPE, hay sao nữa thì cũng không hiểu?), file này dựa trên gợi ý của "tiền bối" anhtuan1066 (theo đường link bạn đó gửi), tôi tùy chỉnh 1 chút theo yêu cầu sử dụng.
File được rút gọn, gồm 2 sheet:
+ sheet1 (để nhập liệu) là danh sách nhân viên kèm các thông tin;
+ sheet2 (để view hoặc in) là tập hợp tất cả thông tin + hình ảnh nhân viên vào 1 trang.
Ứng với mỗi cái kích chuột thì toàn bộ thông tin về 1 nhân viên kèm hình ảnh nhân viên đó được hiển thị.
Tuy đơn giản vậy nhưng thấy cũng hay hay nên Upload chia xẻ với "bà con"…
Tất nhiên các bạn có thể tùy chỉnh theo ý muốn.
Nhận xét rút ra: Nếu có 1 chút kiến thức cộng với 1 chút sáng tạo, chúng ta có thể "thiên biến vạn hóa" để biến bảng tính excel khô khan thành những ứng dụng rất linh hoạt và hữu ích.
--------
Cách sử dụng:
- Các bạn lần lượt tải về cả file excel và thư mục chứa hình ảnh (Hinh): Khi xuất hiện cửa sổ File Download, kích nút "Save" để lưu vào đĩa cứng.
- Giải nén thư mục Hinh, không đổi tên và lưu chung địa chỉ file excel. Ví dụ file excel lưu tại địa chỉ: "D:\HoSoNhanVien\", thì thư mục Hinh cũng được lưu tại: "D:\HoSoNhanVien\Hinh".
- Mở file excel lên.

Hi bạn tuan_anhbm !
Nếu mình muốn add tất cả ảnh vào 01 sheet riêng trên cùng file QuanLyNhanVien thì được không ?

 

[lenamtran]

Cảm ơn chủ top đã chia sẻ!

 

[vanle33]

Các bác cho em hỏi, danh sách này giới hạn 200 nhân viên, nếu em muốn tăng số lượng lên 500 nhân viên thì thay đổi chỗ nào nhỉ?
Đa tạ các bác nhiều!

Ý bạn nói đến file ở #1?
Vậy danh sách giới hạn 200 nhân viên là ở sheet nào? Tôi chỉ thấy file trong #1 sheet "DanhSach" chỉ có 15 người.

 

[le_vis]

Xin lỗi bạn tuan_anhbm không biết có đúng không nhưng tôi có post lên GPE và gmail của anh Nghĩa nhưng chưa nhận được sự quan tâm của các bạn. File của tôi mang tiêu đề File quản lý nhân sự - Nhờ sửa code lỗi. Nếu được bạn quan tâm thì giúp tôi sửa phần code bị lỗi sau đó tôi mới tính đến việc ép thêm các báo cáo File của bạn rất hay. Nếu được giúp hết lỗi tôi sẽ nghiên cứu ép thêm phần hình như bạn đã chia sẻ - Xin cảm ơn các bạn nhiều

 

[le_vis]

Xin phép được sử dụng Code của tác giả tuan_anhbm ; và tôi đã chỉnh sửa lại theo File tôi T.kế và hướng dẫn của bạn nhưng không rõ vì lý do gì mà Code chạy không lỗi nhưng không loát chuyển được ảnh sang Sheet SoYeu_LL
Mong nhờ chủ Top cùng các bạn trong GPE giành cho xin chút thời gian xem hộ và hướng dẫn cách sửa. Trân trọng cảm ơn các bạn nhiều

 

[le_vis]

Cảm ơn bạn hpkhuong nhé.
Còn trong File tôi đưa lên tôi đã thử trong Code cũng là HoSoCBCNV rồi
Nhưng nó vẫn nằm yên chẳng chịu cựa quậy gì - Không hiểu sai ở đâu ?
Tôi sẽ thử theo cách của bạn. Có gì xin được báo cáo lại với bạn sau nhé . Cảm ơn bạn nhiều

 

[le_vis]

Tuyệt cú mèo bạn hpkhuong ơi. Cảm ơn bạn nhiều
Xin gửi lời cảm ơn tới Bác Ndu - Nhìn chung Code của bác từ trước tới nay xem ra quá nhiều võ, toàn những chiêu tuyệt vời. Nhanh - Chính xác - Chuẩn không cần chỉnh.
Xin cảm ơn các bạn.

 

[hieudtr]

Ad cho mình hỏi? Mình tải vê xong, bấm chọn mã nhân viên thì thây tên thay đổi, hình k thay doi, các Macro thì báo không chạy, fix ntn vậy ad?

Tks!

 

[le_vis]

Ad cho mình hỏi? Mình tải vê xong, bấm chọn mã nhân viên thì thây tên thay đổi, hình k thay doi, các Macro thì báo không chạy, fix ntn vậy ad?

Tks

Bạn tải bài nào ? lấy code của bạn hpkhuong thay cho code cũ. Kích hoạt macro lên - Chạy ổn đấy

 

[camthingocthanh]

Mong được các bạn giúp đỡ !

Thân chào các bạn!
Trong quá trình tìm kiếm cách là tự điển cho mấy bé của lớp học bọn mình. Mình biết các bạn có chương trình quản lý nhân viên qua hình ảnh. File này là mình copy từ các bạn chỉ sữa lại nội dung và hình ảnh. Do mình không biết viết code và rành vi tính lằm. Hổng biết có bạn nào giúp mình sửa cái chỉ thành 2 sheert như vầy ( trong file rất nhiều sheert mình không dám bỏ vì không rành) và hình to to lên tí được không khỏang nữa trang A4 khi mở vi tính tụi nhỏ dễ coi . Cám ơn vì đã đọc thư ! Xin lỗi nếu thư này làm phiền đến các bạn ! Mong giúp đở!

 

[thachtha]

Tuyệt cú mèo bạn hpkhuong ơi. Cảm ơn bạn nhiều
Xin gửi lời cảm ơn tới Bác Ndu - Nhìn chung Code của bác từ trước tới nay xem ra quá nhiều võ, toàn những chiêu tuyệt vời. Nhanh - Chính xác - Chuẩn không cần chỉnh.
Xin cảm ơn các bạn.

nếu bạn có file hoàn chỉnh thì có thể up lên không? Cám ơn

 

[le_vis]

Trước hết xin phép bác Ndu, bạn hpkhuong, và một số bạn khác nữa đã giúp đỡ trong quá trình xây dựng File này. Up thử lên các bạn tham khảo và bổ xung thêm và chỉnh sửa cho gọn nhẹ hơn nhé - Xin cảm ơn các bạn nhiều nhiều

 

[thachtha]

Trước hết xin phép bác Ndu, bạn hpkhuong, và một số bạn khác nữa đã giúp đỡ trong quá trình xây dựng File này. Up thử lên các bạn tham khảo và bổ xung thêm và chỉnh sửa cho gọn nhẹ hơn nhé - Xin cảm ơn các bạn nhiều nhiều

phần sơ yếu lý lịch của mã NV102 khi nhập họ hoặc tên thì không hiển thị chi tiêt? Bạn có thể chỉ
thank

 

[eros34]

phần sơ yếu lý lịch của mã NV102 khi nhập họ hoặc tên thì không hiển thị chi tiêt? Bạn có thể chỉ
thank

Bạn ơi, cái file HoSoCBCNV của bạn có thể sửa lại khi vào đầu tiên nó hiện phần sơ yếu lý lịch trước rồi dùng nút chuyển qua các phần khác được không. Để mặc định vào là hiện sơ yếu lý lịch với K4=0 ấy.
Với share mình file này luôn được ko, mình đang cần (cho mình cái pass 2 cái bị ẩn @@)

 

[hoangyen69]

Tôi thấy sao rối mắt với đống code trong file của bạn quá. Bức râu ông nọ cắm cằm bà kia sao bảo load cho đúng hình vào được.
Ở ngoài tên folder chứa hình là "HoSoCBCNV", còn trong code để là "HINH". Nó có ăn nhậu gì với nhau đâu mà bảo load được Pic.

Tôi có giải pháp khác thay thế, là chèn hình đúng vào cái Cell E3 chết tiệt ấy (bạn đã meger rồi đó).
Bạn Xóa cái code sự kiện trong sheet SoYeu_LL đi, dùng đoạn code sau paste vào module
Tại cell E3 bạn xài công thức sau: (và tất nhiên là hình ảnh có cùng 1 đuôi nha , ví dụ ở dưới công thức là .jpg)

 E3 =CommPic("HoSoCBCNV\"&$K$3&".jpg")

Code paste vào module

Function CommPic(ByVal Pic As String, Optional ByVal Cel As Range) As String
  Dim mRng As Range, comm As Comment
  On Error Resume Next
  Application.Volatile
  If Cel Is Nothing Then Set Cel = Application.ThisCell
  Cel(1, 1).Comment.Delete
  If Not CreateObject("Scripting.FileSystemObject").FileExists(Pic) Then
    Pic = ThisWorkbook.Path & "\" & Pic
  End If
  If CreateObject("Scripting.FileSystemObject").FileExists(Pic) Then
    If Cel(1, 1).Comment Is Nothing Then Cel(1, 1).AddComment
    Cel(1, 1).Comment.Text vbLf
    Set mRng = Cel(1, 1).MergeArea
    If mRng Is Nothing Then Set mRng = Cel(1, 1)
    Set comm = mRng(1, 1).Comment
    comm.Visible = True
    With comm.Shape
      .LockAspectRatio = msoFalse
      .Placement = xlMoveAndSize
      .Shadow.Visible = msoFalse
      .Line.Visible = msoFalse
      .AutoShapeType = msoShapeRectangle
      .Left = mRng.Left: .Top = mRng.Top
      .Width = mRng.Width: .Height = mRng.Height
      .Fill.UserPicture Pic
    End With
  End If
End Function

P/s: Function trên là học hỏi của anh NDU. Đảm bảo tốc độ nhanh hơn nhiều so với code sự kiện như trong file của bạn
Với Function trên, trên bảng tính. Bạn muốn chèn hình vào cell nào thì cữ gõ công thức như trên là nó chèn.........Quả thật rất là tuyệt đúng không???

Cho mình hỏi nếu mình xài chức năng Protect Sheet thì làm sao để load hình vào ô được, khi mình Protect Sheet thì hình không hiện ra

 

[mkdlufu]

Có 1 bạn vừa gửi mail nhờ tôi tùy biến 1 file quản lý thông tin nhân sự (có lẽ ngại nhờ mấy chuyện "lẻ tẻ" nên không post lên GPE, hay sao nữa thì cũng không hiểu?), file này dựa trên gợi ý của "tiền bối" anhtuan1066 (theo đường link bạn đó gửi), tôi tùy chỉnh 1 chút theo yêu cầu sử dụng.
File được rút gọn, gồm 2 sheet:
+ sheet1 (để nhập liệu) là danh sách nhân viên kèm các thông tin;
+ sheet2 (để view hoặc in) là tập hợp tất cả thông tin + hình ảnh nhân viên vào 1 trang.
Ứng với mỗi cái kích chuột thì toàn bộ thông tin về 1 nhân viên kèm hình ảnh nhân viên đó được hiển thị.
Tuy đơn giản vậy nhưng thấy cũng hay hay nên Upload chia xẻ với "bà con"…
Tất nhiên các bạn có thể tùy chỉnh theo ý muốn.
Nhận xét rút ra: Nếu có 1 chút kiến thức cộng với 1 chút sáng tạo, chúng ta có thể "thiên biến vạn hóa" để biến bảng tính excel khô khan thành những ứng dụng rất linh hoạt và hữu ích.
--------
Cách sử dụng:
- Các bạn lần lượt tải về cả file excel và thư mục chứa hình ảnh (Hinh): Khi xuất hiện cửa sổ File Download, kích nút "Save" để lưu vào đĩa cứng.
- Giải nén thư mục Hinh, không đổi tên và lưu chung địa chỉ file excel. Ví dụ file excel lưu tại địa chỉ: "D:\HoSoNhanVien\", thì thư mục Hinh cũng được lưu tại: "D:\HoSoNhanVien\Hinh".
- Mở file excel lên.

Cảm ơn bác đã chia sẻ một bài rất hữu ích. Em đã xem và học hỏi áp dụng cho công việc của mình nhưng mãi mà không cho hiện hình lên được. Bác kiểm tra giúp xem em sai ở chỗ nào hay thiếu sót ở đâu thì sửa giúp em và chỉ dẫn luôn để em học hỏi thêm. Công việc là cho hiện ảnh lên ở sheet 1 khi nhập mã sô lấy từ sheet 2. Ở đây em có 5 hình làm ví dụ khi em có 200 hình thì có tương tự không? Em cảm ơn trước ạ.

 

[giaiphap]

Cảm ơn bác đã chia sẻ một bài rất hữu ích. Em đã xem và học hỏi áp dụng cho công việc của mình nhưng mãi mà không cho hiện hình lên được. Bác kiểm tra giúp xem em sai ở chỗ nào hay thiếu sót ở đâu thì sửa giúp em và chỉ dẫn luôn để em học hỏi thêm. Công việc là cho hiện ảnh lên ở sheet 1 khi nhập mã sô lấy từ sheet 2. Ở đây em có 5 hình làm ví dụ khi em có 200 hình thì có tương tự không? Em cảm ơn trước ạ.

Bạn sửa code của bạn chổ màu đỏ là được.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Picname As String
Application.ScreenUpdating = False
On Error Resume Next
If Not Intersect([F4], Target) Is Nothing Then
    Set Rng = Sheets(2).Range(Sheets(2).[F7], Sheets(2).[F1000].End(xlUp))
    Picname = ThisWorkbook.Path & "\Anhthohan\" & [COLOR=#ff0000][B]Rng.Find(Target, , xlValues, xlWhole, , , True).Offset(, -5)[/B][/COLOR]


    'Xoa anh da chon o lan truoc di
    Sheets(1).Shapes([D6].Address).Delete
    'Dinh kich thuoc anh
    [D6].Select
    With ActiveSheet.Pictures.Insert(Picname)
        '.Name = Target.Offset(1, 0).Address
        .Name = [D6].Address
        '.Left = Target.Offset(1, 0).Left: Top = Target.Offset(1, 0).Top
        .Left = [D6].Left: Top = [D6].Top
        .Width = 310 '(pixcels) <-- dieu chinh be rong
        .Height = 315 '(pixcels) <-- dieu chinh chieu cao
    End With
'Di chuyen hinh vao trong khung:
    ActiveSheet.Shapes("$D$6").IncrementTop 2#
    ActiveSheet.Shapes("$D$6").IncrementLeft 2.5
End If
Application.ScreenUpdating = True
End Sub