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

[tuan_anhbm]

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.

 

[dailykem]

cám ơn bạn đã gửi file cho mọi người xem
nhất là phần vb hướng dẫn rất rõ ràng cho người mới biết vb
nhưng khi chuyển mã nhân viên thì chỉ có ảnh thay đổi còn tên và năm sinh, ....
lại không thay đổi. Phải ấn Enter vào hàm Vlookup thì nó mới thay đổi đúng theo mã nhân viên
chân thành cảm ơn
có bác nào rảnh đi uống cafe với tui nhỉ
mình ở Hà Nội
dt 0983271819

 

[gatre2005]

Em nhờ các bác một chút được không ạ. Chả là em có mẫu gần giống với của các bác em cũng muốn làm như vậy.
Đầu tiên là tạo Form nhập liệu, để nó lưu vào một table data nguồn sau đó nó xuất ra report là CV nguồn như em đã soạn bác nào biết chỉ cách làm cho em với. đây là file attact của em:
View attachment tao report cv.xls

 

[hotboy1111]

Hi Tuấn Anh!
Mình cũng dùng thử nhưng công ty mình tới gần 100 nhân viên,
của bạn nút chuyển chỉ đến 15 rồi quay về 1, không biết trên 15 và hình thì code sửa như thế nào?
Thanks.

 

[hoangtutoi]

cái này không thực linh hoạt, giống như ta sử dụng chức năng Mailing

 

[tantan123]

Cai nay toi 200 nv ma ban

 

[tantan123]

Khi mình thay đổi mã nhân viên thì tất cả đều thay đổi mà hình lại không thay đổi mong các tiền bối chỉ dùm em với

 

[yeudoi]

Hình vẫn thay đổi đấy chứ bạn. Bạn tải file hình về và giải nén bỏ chung nó cùng thư mục với file quản lý nhân viên bấm vào nút truớc sau là có hình thôi

 

[Tran van Quang]

Cảm ơn bạn rất nhiều, mình đã làm được phần dữ liệu nhưng không thể nạp ảnh được. mình đã xóa các ảnh mẫu, add ảnh nhân viên vào thư mục "Hinh" nhưng không hiển thị ở phần Quản lý nhân viên. Nhờ bạn hươngns dẫn giúp mình nhé.

 

[Tran van Quang]

Cảm ơn bạn rất nhiều nhé, file này thật là hay, nhưng mình không thể nạp ảnh được, mình đã xóa ảnh mẫu ở thư mục "Hinh" và add ảnh nhân viên vào, nhưng vẫn không hiển thị. xin bạn hướng dẫn giúp mình với.

 

[phucbugis]

Cảm ơn bạn rất nhiều nhé, file này thật là hay, nhưng mình không thể nạp ảnh được, mình đã xóa ảnh mẫu ở thư mục "Hinh" và add ảnh nhân viên vào, nhưng vẫn không hiển thị. xin bạn hướng dẫn giúp mình với.

Mình cũng gặp trường hợp tương tự như bạn, và đã xử lý được.
Sau khi download 2 file của bạn tuan_anhbao vào 1 thư mục. Bạn Extract file rar đó xong thì sẽ cho ra 2 thư mục Hinh, bạn đưa ra thư mục Hinh bên trong ra ngoài cùng đường dẫn với file QuanLyNhanVien. Mở file QLNV thì sẽ dùng được các JPG đó.
Thân !

 

[truongran]

Bro nào giúp em với, em down về rồi, muốn tuỳ biến thêm 1 ít mà gà mờ quá mong bro giúp.
Em muốn thêm 1 hoặc 2 cột nữa, ví dụ tên cha , tên mẹ nhân viên. Nhưng khi thêm cột thì Sheet Thông Tin ko load hình đươc. Vấn đền thứ 2 là em muốn làm thêm 1 nút ( như nút Trước, Sau ), nút lọc, ví dụ lọc Sức khoẻ Tốt hoặc Ko.
Em chân thành cảm ơn

 

[phucbugis]

Em muốn thêm 1 hoặc 2 cột nữa, ví dụ tên cha , tên mẹ nhân viên. Nhưng khi thêm cột thì Sheet Thông Tin ko load hình đươc.

Tại sheet ThongTin, bạn vào sửa dòng này là được từ 11 ->13

Code:

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([A2], Target) Is Nothing Then
    Set Rng = Sheets(1).Range(Sheets(1).[A5], Sheets(1).[A1000].End(xlUp))
    [B][COLOR=#ff0000]Picname = ThisWorkbook.Path & "\Hinh\" & Rng.Find(Target).Offset(, 13)[/COLOR][/B]
    'Xoa anh da chon o lan truoc di
    Sheets(2).Shapes([A3].Address).Delete
    'Dinh kich thuoc anh
    [A3].Select
    With ActiveSheet.Pictures.Insert(Picname)
        '.Name = Target.Offset(1, 0).Address
        .Name = [A3].Address
        '.Left = Target.Offset(1, 0).Left: Top = Target.Offset(1, 0).Top
        .Left = [A3].Left: Top = [A3].Top
        .Width = 110 '(pixcels) <-- dieu chinh be rong
        .Height = 115 '(pixcels) <-- dieu chinh chieu cao
    End With
'Di chuyen hinh vao trong khung:
    ActiveSheet.Shapes("$A$3").IncrementTop 2#
    ActiveSheet.Shapes("$A$3").IncrementLeft 2.5
End If
Application.ScreenUpdating = True
End Sub

Vấn đề 2: thì bạn dùng Data-Filter là được thôi.

 

[truongran]

phucbugis

Cảm ơn bro nhiều nha, em gà mờ mà hjhj

 

[phucbugis]

phucbugis

Cảm ơn bro nhiều nha, em gà mờ mà hjhj

Bạn chịu khó ngày nào cũng vào đây thì trở nên Pro thôi

 

[vanruka]

chào cả nhà.
em cám ơn vì file rất hay. Nhưng mà em thay hình không được ạ.
em rất gà nên mong cả nhà chỉ cho em dễ hiểu với ạ.
em xin cám ơn ạ

 

[phucbugis]

chào cả nhà.
em cám ơn vì file rất hay. Nhưng mà em thay hình không được ạ.
em rất gà nên mong cả nhà chỉ cho em dễ hiểu với ạ.
em xin cám ơn ạ

bạn đang hỏi về file, code của người nào vậy ?
(nếu là file của bạn thì bạn nên Up nó lên diễn đàn để mọi người xem ntn luôn nhé !)

 

[tinhmanager]

Em chào anh!
Em đã giản nén file Hinh và cho vào cùng file với fiel QuanLyNhanvien (2 file này nằm trong file chung em tự đặt là "phanmemqlythongtinnv", nhưng hình ảnh nhân viên không thay đổi khi em click trước, sau trong sheet 2: "ThongTin". Và em cũng chưa chiều giữa flie Quanlynhanvien với file Hinh nó liên kết với nhau bằng cách nào. Mọi người giúp em với ạ. huhu

 

[phucbugis]

Em chào anh!
Em đã giản nén file Hinh và cho vào cùng file với fiel QuanLyNhanvien (2 file này nằm trong file chung em tự đặt là "phanmemqlythongtinnv", nhưng hình ảnh nhân viên không thay đổi khi em click trước, sau trong sheet 2: "ThongTin". Và em cũng chưa chiều giữa flie Quanlynhanvien với file Hinh nó liên kết với nhau bằng cách nào. Mọi người giúp em với ạ. huhu

- bạn đã cho kích hoạt Macro khi mở File chưa (click Enable Contents) ?
- bạn có biết lập trình VBA chưa?
- bạn đã cài phần mềm TeamView chưa?

'----
khi bạn muốn hỏi cụ thể 1 ai đó thì có thể dùng Trả lời với trích dẫn hoặc ghi rõ tên người muốn hỏi

 

[tranngoc_1234]

Hi anh, chị. Em cũng muốn làm một file giống như vậy nhưng em không biết chỉnh sửa code. Là em chưa biết về VBA.hi. Anh tuan_anhbm có thời gian sửa giúp em file dưới đây với. Em cảm ơn nhiều! Có thể email cho em ạ:Tranngochr2013@gmail.com