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

 

[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

 

[be_09]

Các bạn thử nghiên cứu vào làm trên UserForm để nhìn cho nó đã mắt hơn.

 

[le_vis]

Các bạn thử nghiên cứu vào làm trên UserForm để nhìn cho nó đã mắt hơn.

Bạn be09 ơi, nếu có thể bạn thể hiện luôn đi và cho phép Protecsheet và có thêm các chức năng mới gì đó để anh em học tập đi . lâu nay mình không tài nào gửi đính kèm File từ máy lên được chẳng hiểu lý do tại sao nữa ???

 

[be_09]

Bạn be09 ơi, nếu có thể bạn thể hiện luôn đi và cho phép Protecsheet và có thêm các chức năng mới gì đó để anh em học tập đi . lâu nay mình không tài nào gửi đính kèm File từ máy lên được chẳng hiểu lý do tại sao nữa ???

Mấy ngày nghĩ lễ nhưng không có thời gian rảnh, nên chưa thể làm theo yêu cầu của bạn.

Theo tôi quản lý nhân viên thì tùy theo ngành, nghề mà cách theo dõi cũng khác nhau, khi theo dõi nó còn nhiều thứ khác nữa, ví dụ: Trình độ học vấn, Quyết định số, hệ số, bậc lương được hưởng, Quốc tịch, tôn giáo, quan hệ gia đình (chồng, vợ con cái, người thân..v..v....) nó còn lằng nhằng nhiều thứ nữa chứ không làm đơn giản như những File trên.

Khi nào rảnh rỗi tôi sẽ nghiên cứu làm 1 File hoàn chỉnh như vấn đề đặt ra và tải lên để giúp anh em theo dõi về quản lý nhân sự có cái mà dùng.

Chúc tất các thành viên GPE hưởng ngày lễ an lành, vui vẽ.

 

[DMQ]

Anh be09 có họ "Hưá" , nên cách đây một năm, Ảnh có hứa là khi nào rảnh sẽ làm cho em cái Form, nhưng rồi chả thấy gí hết. Chắc Ảnh bận việc quá, mà em cũng thâý Ảnh chỉ có Form Quản lý công văn đi và đến, và cái Form gì về Tài nguyên môi trường thôi chứ chả có gì.Trong khi đó có người không hứa nhưng vẫn sẵn sàng giúp mọi lúc.

 

[be_09]

Anh be09 có họ "Hưá" , nên cách đây một năm, Ảnh có hứa là khi nào rảnh sẽ làm cho em cái Form, nhưng rồi chả thấy gí hết. Chắc Ảnh bận việc quá, mà em cũng thâý Ảnh chỉ có Form Quản lý công văn đi và đến, và cái Form gì về Tài nguyên môi trường thôi chứ chả có gì.Trong khi đó có người không hứa nhưng vẫn sẵn sàng giúp mọi lúc.

Như bài #44, anh nêu:

Mấy ngày nghĩ lễ nhưng không có thời gian rảnh, nên chưa thể làm theo yêu cầu của bạn.

Cho thấy anh bận rộn rất nhiều việc, nên có nhiều khi hứa mà không giúp để lâu quá lại quên, bây giờ thấy anh em nhắc nhỡ thấy ái náy quá.

Trước đây anh thường đi công tác huyện nên đôi khi tối rảnh rỗi nhưng không có Laptop mang theo thì cũng đành bó tay, hiện nay anh đã có rồi nên anh sẽ cố gắng thực hiện như lời đã hứa.

 

[SA_DQ]

Xin cảm ơn bác Ndu, bạn hpkhuong, và các bạn khác . . . đã 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

Để gọn nhẹ, xin đề nghị bạn tách CSDL hiện có thành 2 trang tính;
Một trang gồm các trường từ cột [Ghi nhớ] trở về trước, tạm gôi là fần chung (hay là tổng quát)
Còn fần sau cột này là fần chi tiết ta nên cho vô trang tính khác riêng ra;
Tất nhiện giữa 2 trang tính tổng quát & chi tiết sẽ có sự quan hệ 1-Nhiều (Có nghĩa lá 1 dòng dữ liệu bên 'Tổng quát' sẽ liên hệ với nhiều hơn 1 dòng bên 'Chi tiết'
Làm như vậy bạn sẽ giảm đán kể dung lượng file & vận hành an toàn hơn CSDL của bạn

Điều quan trọng ở đây là mã quan hệ này cần khoa học súc tích;

Để vậy mả nhân viên cũng nên khoa học & súc tích không kém.
Các mã loại này trong excel không nên là những kí số như bạn đang iêu cầu, mà chuỗi chứa ít nhất 1 kí tự
Vì nếu xài các kí số thì cũng fải bỏ không xài được các con số 0 trước như 00123; mà fải bắt đầu là 10123
Nếu bạn xài kí tư chen vô thì độ dài chỉ cần A001 -> Z999 đã là hơn bao nhiêu lần trong quỹ mã NV so với khoảng (10000 - 99999) của bạn rồi.

Hẹn dịp khác gặp lại!

 

[mkdlufu]

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

Thật tuyệt vời. Cảm ơn bác rất nhiều. Bác có thể giải thích giúp dòng màu đỏ đó được không.Tại sao dòng cũ không có tác dụng. Em muốn hiểu rõ chút chút để áp dụng nhiều công việc khác. Hì hì.

 

[giaiphap]

Thật tuyệt vời. Cảm ơn bác rất nhiều. Bác có thể giải thích giúp dòng màu đỏ đó được không.Tại sao dòng cũ không có tác dụng. Em muốn hiểu rõ chút chút để áp dụng nhiều công việc khác. Hì hì.

Bạn bỏ đi dòng màu đỏ này và chạy code của bạn sẽ hiểu rõ.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Picname As String
Application.ScreenUpdating = False
'[COLOR=#ff0000][B]On Error Resume Next[/B][/COLOR]
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\" & Rng.Find(Target.Value).Offset(, -5)
    'Xoa anh da chon o lan truoc di
    MsgBox Picname
    Exit Sub
    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

 

[mkdlufu]

Bạn bỏ đi dòng màu đỏ này và chạy code của bạn sẽ hiểu rõ.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Picname As String
Application.ScreenUpdating = False
'[COLOR=#ff0000][B]On Error Resume Next[/B][/COLOR]
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\" & Rng.Find(Target.Value).Offset(, -5)
    'Xoa anh da chon o lan truoc di
    MsgBox Picname
    Exit Sub
    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

He he, cảm ơn bác đã chỉ bảo, em cũng đã lờ mờ hiểu. Em làm phiền nốt việc nữa là em muốn liệt kê toàn bộ thông tin của 1 mã số ở sheet 3 xuống bên dưới ở sheet 1( có mã số có 6 dòng thông tin nhưng có mã số chỉ 1 dòng thông tin). Em nghiên cứu cả ngày hôm qua nhưng chưa được như ý muốn.

 

[nguyenthuy13388]

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 ạ.

Một lựa chọn khác cho bạn không dùng VBA

 

[Phan Thanh Nga]

Chào cả nhà, mình mới làm mảng nhân sự. Công ty mình cũng mới, muốn xin cả nhà mẫu quản lý nhân sự về: đi làm muộn thì phạt thế nào, nghỉ ko phép thì bị nhắc nhớ hay buộc thôi việc. Bạn nào có cho mình xin 1 file làm mẫu nhé. cảm ơn cả nhà nhiều ạ

 

[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 khi cài protect sheet thì làm sao để hiện tấm hình ra ?

 

[giaiphap]

Cho mình hỏi khi cài protect sheet thì làm sao để hiện tấm hình ra ?

Thì trước khi chèn hình bạn phải UnProject sheet, sau khi chèn xong bạn tiếp tục Project sheet.

 

[gaubongcuaanh]

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​

Tập tin đính kèm

• 
  HoSoCBCNV_().rar (1.05 MB, 262 lần tải)

Bạn cho mình pass code của ứng dụng này với : hunglsvn@gmail.com cảm ơn bạn nhiều.

 

[SA_DQ]

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​

Bạn cho mình pass code của ứng dụng này với : hunglsvn@gmail.com cảm ơn bạn nhiều.

Nếu fải góp í với bạn thì quan trọng nhất sẽ là cách thức tạo mã NV duy nhất; Sao cho vừa ngắn gọn, nhưng có tính tương tác cao;
Thứ hai, CSDL cũa bạn sẽ có rất nhiều dòng trống
Nên tách ra làm 2 {Table}
2 bảng này liên hệ với nhau 1-nhiều

 

[be_09]

Anh be09 có họ "Hưá" , nên cách đây một năm, Ảnh có hứa là khi nào rảnh sẽ làm cho em cái Form, nhưng rồi chả thấy gí hết. Chắc Ảnh bận việc quá, mà em cũng thâý Ảnh chỉ có Form Quản lý công văn đi và đến, và cái Form gì về Tài nguyên môi trường thôi chứ chả có gì.Trong khi đó có người không hứa nhưng vẫn sẵn sàng giúp mọi lúc.

Bài này lâu rồi, nay có thành viên khơi màu nên tôi cũng ý kiến thêm.

Như đã hứa làm cái UserForm để quản lý.

Nhưng từ đó đến nay cũng chưa hoàn thiện xong, nếu đưa lên sử dụng thì sẽ có nhiều trục trặc, rối rắm, nếu làm xong tôi sẽ mở Topic mới với dạng UserForm để load hình theo tên từng nhân viên mà không cần đường dẫn, có thể lấy hình bất cứ nơi đâu.

Các bạn hãy chờ thêm một thời gian nữa, vì hiện tại tôi đang sửa nhà đã dọn bàn ghế chỗ khác quá chật chội nên không có chỗ ngồi đành ngồi dưới đất mà trả lời bài viết nay thấy cũng quá là bất tiện.

 

[DMQ]

Tới nay đã 3 tháng, và thấy bác be09 cũng thường xuyên vào GPE từ đó đến nay, mà chưa thấy file bằng UserForm để quản lý

Bài này lâu rồi, nay có thành viên khơi màu nên tôi cũng ý kiến thêm.

Như đã hứa làm cái UserForm để quản lý.

Nhưng từ đó đến nay cũng chưa hoàn thiện xong, nếu đưa lên sử dụng thì sẽ có nhiều trục trặc, rối rắm, nếu làm xong tôi sẽ mở Topic mới với dạng UserForm để load hình theo tên từng nhân viên mà không cần đường dẫn, có thể lấy hình bất cứ nơi đâu.

Các bạn hãy chờ thêm một thời gian nữa, vì hiện tại tôi đang sửa nhà đã dọn bàn ghế chỗ khác quá chật chội nên không có chỗ ngồi đành ngồi dưới đất mà trả lời bài viết nay thấy cũng quá là bất tiện.

không biết nhà của Bác be09 đã sửa xong chưa????
Bác lại "Hứa" nữa rồi.

 

[be_09]

Tới nay đã 3 tháng, và thấy bác be09 cũng thường xuyên vào GPE từ đó đến nay, mà chưa thấy file bằng UserForm để quản lý

không biết nhà của Bác be09 đã sửa xong chưa????
Bác lại "Hứa" nữa rồi.

Đúng là tôi có hứa làm nhưng lực bất tòng tâm, vì hiện nay có 1 số thành viên GPE làm trong ngành gửi File qua nhờ làm giúp cũng khá nhiều (việc chuyên môn là rất cần thiết) nên với lời hứa này hiện nay tôi cũng chưa rảnh để hoàn thiện, mong các bạn thông cãm.

Cụ thể 1 số việc chuyên môn theo mẫu quy định như sau:

1/ Theo dõi việc tiếp nhận hồ sơ 1 cửa, tạo biên nhận hồ sơ, lập danh sách luân chuyển hồ sơ, theo dõi kết quả thực hiện.

2/ Theo dõi việc thực hiện lập thủ tục của các bộ phận, tạo mẫu hợp đồng chuyển nhượng quyền sử dụng đất, hợp đồng cho tặng quyền sử dụng đất, phiếu chuyển thuế về thu trước bạ, về thuế thu nhập cá nhân..v..v...

3/ Theo dõi về đăng ký, xét cấp giấy chứng nhận hàng quyền sử dụng đất, về biến động đất đai hàng năm của từng địa phương.

4/ Áp giá về bồi thường và tái định cư khi nhà nước thu hồi đất.

5/ Theo dõi xử lý đơn khiếu nại, tố cáo và Văn bản chỉ đạo trong lĩnh vực đất đai.

6/ Theo dõi các quyết định về kết luận về thanh tra, kiểm tra và xử phạt trong lĩnh vực đất đai.

Nói chung là LU XU BU QUÁ mà khả năng thì cũng có giới hạn.

 

[tamdang272]

Em muốn tạo thêm nút tìm kiếm sau mã số nhân viên để có thể tìm kiếm nhân viên theo mã số hoặc theo tên.
Bác nào có code nút tìm kiếm không chỉ em với ạ.
Em cám ơn nhiều nhiều!
Email: tamdang272@gmail.com

 

[ChanhTQ@]

Bạn xem tạm file này trong khi chờ đợi

 

[tamdang272]

Thank bác nhiều. Cơ mà k xem được code thì làm sao biết em sai ở đâu được. em mới vọc vạch thôi ạ

 

[tamdang272]

Bạn xem tạm file này trong khi chờ đợi

Thank bác nhiều. Cơ mà k xem được code thì làm sao biết em sai ở đâu được. em mới vọc vạch thôi ạ

 

[tamdang272]

Pro nào giúp em với.
Em vọc vạch thế nào máy báo virus và giờ thì macro trống trơn luôn rồi.
Ảnh cũng không nhảy nữa
Bác nào có lòng sửa giúp em với công sức cả ngày vọc vạch của em biến mất tiêu rồi

 

[nguyễn trọng nghĩa]

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.

anhcầnthayđổitênhìnhlạilàsẽđượcthôi

 

[sts]

Mình muốn lọc theo mã số NV nhưng ko đc vậy nhỉ? vì tên Cn trùng nhau nhiều.
Và mình muốn lập 1 file theo dõi Cn nghỉ trong tháng và tổng hợp cả năm để đến cuối năm mình tính tiền thưởng , phép cho Cn mà chưa làm đc.
Bác nào có kinh nghiệm trong vj này giúp em với ạ
Em cảm ơn nhiều

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.

 

[sts]

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???

sao HPKHUONG ko đưa file lên luôn đi chứ cứ COde như vậy nhìn rối quá ko hiểu đc, mình cũng đang cần file như vậy mà đọc chỉ dẫn của các tiền bối mà hoa mắt quá, ui tai ko ra.
mong Thành viên già cỗi nào có nhiều kinh nghiệm up lên cho bà con tham khảo ạ

 

[hunghienphonglinh]

làm thế nào để tạo được ô "Trước"; " sau" vậy ban. Mình cũng đang nghiên cứu để ứng dụng vao quản lý nhân viên của cơ quan mình. nhưng khong biết làm táp đó như của ban

 

[kingsouth]

Mọi người giúp mình với Trong file HosoCBCNV() trong sheet Form ô Nhập Mã số bắt buộc nhập định dạng Text. Bây giờ em muốn Nhập định Dạng General ví dụ (51c45545). Cám ơn mọi người

 

[SA_DQ]

Trong file HosoCBCNV() trong sheet Form ô Nhập Mã số bắt buộc nhập định dạng Text. Bây giờ em muốn Nhập định Dạng General ví dụ (51c45545).

51c45545 vẫn là dạng Text đấy thôi!
Hay bạn muốn vừa nhập dạng số, vừa có thể nhập dạng Text?
Để vậy, chí ít bạn đưa cái SheetForm í lên diễn đàn xem sao.

 

[kingsouth]

Trong Sheet Form Ô "D3" định dạng Text Số, Mình muốn Nhập vừa Chữ vừa Số ví dụ "51C45545"
Cám ơn các bạn nhiều

 

[SA_DQ]

Vấn đề của bạn trang SheetForm của bạn sẽ chứa dữ liệu nhập để nhầm mục đích lưu vô CSDL;
Thêm nữa, ô [D3] này sẽ là mã định danh của dòng CSDL 1 người nào đó;
Mình khuyên bạn hãy chọn 1 thứ dữ liệu cho 1 trường thôi; Ta không thể tạo mã duy nhất cho người này là những kí số, còn người khác là kí tự có chứa số đi chăng nữa.
Nếu bạn vẫn quyết tâm làm vậy thì giữa bạn & mình sẽ không còn gì để nói ơới nhau nữa cả, thật đáng tiếc

Nhìn qua CSDL lưu của bạn mình xin có vài ý thế này:

(1) Bạn có thể nghiêm cứu tạo SCDL quan hệ;
Nôm na nó sẽ là vầy:
Dữ liệu từ cột đến cột [y] (bạn đang đánh số 24) ta chỉ nhập 2 dòng mà thôi (Hiện tại đó là dòng 4 & D13;
(Mình gọi bảng dữ liệu này là fần chung)
Còn fần chi tiết hiện đang là vùng từ cột bạn đang đánh số 25 đến cột số 32; Tuy nhiên bảng chi tiết này (như mình gọi) còn thiếu (cột) mã quan hệ với bảng chung;
Nghĩa là các dòng từ dòng 4 đến 12 đều fải được gắn mà 101
Các dòng dưới chúng nó cần gán mã 102
Vế CSDL quan hệ bạn có thể tham khảo ở đây: http://www.giaiphapexcel.com/dienda...quản-lý-nhập-xuất-tờ-tiền.130610/#post-821100

(2) Mình khuyên bạn xài bộ mã nhân sự như sau

'
 Mã NV   Họ & Tên      '
NVH00  Ngô Thị Việt Hà
NVH01  Nguyễn Viết Hoàng
DQF00  Dương Quí Đức
FJF00   Đỗ Đồng
ADL00  Âu Dương Lân
. . .    . . . .

Ưu điểm trước tiên là nó có tính tương tác cao giữa người quản lí (nhân sự) & người chịu quản lý.

(3) Các mối quan hệ (như chồng, cha, mẹ,. . . . ) nên xài 1 danh mục để nhập; Đều này nhắm mục đích cốt lõi là tránh nhập sai chính tả
Ngoài ra việc chọn bỡi chuột sẽ có thể nhanh hơn gõ fím (nhất là lúc xỉn).

Rất vui nếu được bạn quan tâm những góp í của mình & chúc khỏe!

 

[kingsouth]

Vấn đề của bạn trang SheetForm của bạn sẽ chứa dữ liệu nhập để nhầm mục đích lưu vô CSDL;
Thêm nữa, ô [D3] này sẽ là mã định danh của dòng CSDL 1 người nào đó;
Mình khuyên bạn hãy chọn 1 thứ dữ liệu cho 1 trường thôi; Ta không thể tạo mã duy nhất cho người này là những kí số, còn người khác là kí tự có chứa số đi chăng nữa.
Nếu bạn vẫn quyết tâm làm vậy thì giữa bạn & mình sẽ không còn gì để nói ơới nhau nữa cả, thật đáng tiếc

Nhìn qua CSDL lưu của bạn mình xin có vài ý thế này:

(1) Bạn có thể nghiêm cứu tạo SCDL quan hệ;
Nôm na nó sẽ là vầy:
Dữ liệu từ cột đến cột [y] (bạn đang đánh số 24) ta chỉ nhập 2 dòng mà thôi (Hiện tại đó là dòng 4 & D13;
(Mình gọi bảng dữ liệu này là fần chung)
Còn fần chi tiết hiện đang là vùng từ cột bạn đang đánh số 25 đến cột số 32; Tuy nhiên bảng chi tiết này (như mình gọi) còn thiếu (cột) mã quan hệ với bảng chung;
Nghĩa là các dòng từ dòng 4 đến 12 đều fải được gắn mà 101
Các dòng dưới chúng nó cần gán mã 102
Vế CSDL quan hệ bạn có thể tham khảo ở đây: http://www.giaiphapexcel.com/diendan/threads/tạo-csdl-quan-hệ-trên-excel-fần-2-bài-1-csdl-để-quản-lý-nhập-xuất-tờ-tiền.130610/#post-821100

(2) Mình khuyên bạn xài bộ mã nhân sự như sau

'
 Mã NV   Họ & Tên      '
NVH00  Ngô Thị Việt Hà
NVH01  Nguyễn Viết Hoàng
DQF00  Dương Quí Đức
FJF00   Đỗ Đồng
ADL00  Âu Dương Lân
. . .    . . . .

Ưu điểm trước tiên là nó có tính tương tác cao giữa người quản lí (nhân sự) & người chịu quản lý.

(3) Các mối quan hệ (như chồng, cha, mẹ,. . . . ) nên xài 1 danh mục để nhập; Đều này nhắm mục đích cốt lõi là tránh nhập sai chính tả
Ngoài ra việc chọn bỡi chuột sẽ có thể nhanh hơn gõ fím (nhất là lúc xỉn).

Rất vui nếu được bạn quan tâm những góp í của mình & chúc khỏe!

Hj caqm o

Vấn đề của bạn trang SheetForm của bạn sẽ chứa dữ liệu nhập để nhầm mục đích lưu vô CSDL;
Thêm nữa, ô [D3] này sẽ là mã định danh của dòng CSDL 1 người nào đó;
Mình khuyên bạn hãy chọn 1 thứ dữ liệu cho 1 trường thôi; Ta không thể tạo mã duy nhất cho người này là những kí số, còn người khác là kí tự có chứa số đi chăng nữa.
Nếu bạn vẫn quyết tâm làm vậy thì giữa bạn & mình sẽ không còn gì để nói ơới nhau nữa cả, thật đáng tiếc

Nhìn qua CSDL lưu của bạn mình xin có vài ý thế này:

(1) Bạn có thể nghiêm cứu tạo SCDL quan hệ;
Nôm na nó sẽ là vầy:
Dữ liệu từ cột đến cột [y] (bạn đang đánh số 24) ta chỉ nhập 2 dòng mà thôi (Hiện tại đó là dòng 4 & D13;
(Mình gọi bảng dữ liệu này là fần chung)
Còn fần chi tiết hiện đang là vùng từ cột bạn đang đánh số 25 đến cột số 32; Tuy nhiên bảng chi tiết này (như mình gọi) còn thiếu (cột) mã quan hệ với bảng chung;
Nghĩa là các dòng từ dòng 4 đến 12 đều fải được gắn mà 101
Các dòng dưới chúng nó cần gán mã 102
Vế CSDL quan hệ bạn có thể tham khảo ở đây: http://www.giaiphapexcel.com/diendan/threads/tạo-csdl-quan-hệ-trên-excel-fần-2-bài-1-csdl-để-quản-lý-nhập-xuất-tờ-tiền.130610/#post-821100

(2) Mình khuyên bạn xài bộ mã nhân sự như sau

'
 Mã NV   Họ & Tên      '
NVH00  Ngô Thị Việt Hà
NVH01  Nguyễn Viết Hoàng
DQF00  Dương Quí Đức
FJF00   Đỗ Đồng
ADL00  Âu Dương Lân
. . .    . . . .

Ưu điểm trước tiên là nó có tính tương tác cao giữa người quản lí (nhân sự) & người chịu quản lý.

(3) Các mối quan hệ (như chồng, cha, mẹ,. . . . ) nên xài 1 danh mục để nhập; Đều này nhắm mục đích cốt lõi là tránh nhập sai chính tả
Ngoài ra việc chọn bỡi chuột sẽ có thể nhanh hơn gõ fím (nhất là lúc xỉn).

Rất vui nếu được bạn quan tâm những góp í của mình & chúc khỏe!

Cám ơn bạn đã góp ý. Bạn nói đúng ô mã số mình nên quản lý 1 loại mã. Nhưng cái mình đg cần quản lý là số xe vừa có số và chữ nên mog bạn giúp định dạng lại ô D3 hiểu chữ và số. Mình dùng lại file Hosocbcnv() . thanks bạn

 

[Hoang2013]

. . . . Nhưng cái mình đg cần quản lý là số xe vừa có số và chữ nên mog bạn giúp định dạng lại ô D3 hiểu chữ và số. Mình dùng lại file Hosocbcnv() . thanks bạn

Để quản lý biển số xe trên lãnh thổ VN, bạn fải liệt kê mọi khả năng biển số xe đã ban hành
Của bộ quốc fòng, bộ Ngoại giao, xe chuyên dùng, xe kéo rơ móc,. . . . .
Mình hình như chúng có mẫu số chung là có chứa kí tự trong nới. (Số của rơ móc thì hình như là kí số không thôi?)
Chuyên này bạn nên tiếp tục lập danh sách chúng đi.

Có vướng gì đó mới đem lên diễn đàn xin ý kiến khắc f ục

 

[kingsouth]

Để quản lý biển số xe trên lãnh thổ VN, bạn fải liệt kê mọi khả năng biển số xe đã ban hành
Của bộ quốc fòng, bộ Ngoại giao, xe chuyên dùng, xe kéo rơ móc,. . . . .
Mình hình như chúng có mẫu số chung là có chứa kí tự trong nới. (Số của rơ móc thì hình như là kí số không thôi?)
Chuyên này bạn nên tiếp tục lập danh sách chúng đi.

Có vướng gì đó mới đem lên diễn đàn xin ý kiến khắc f ục

Cái đó mình biết mà chỉ Mong các bạn giúp mình một việc thôi đó là định dạng lại ô "D3" sao chữ và số nhập và xuất vào Data là được cám ơn các bạn nhiều

 

[ilshintech]

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.

Thêm cái này ở đâu như nào ạ em chả biết gì hết cả xin cảm ơn,

 

[be_09]

Thêm 1 File sử dụng hàm để các bạn tiện tham khảo thêm.

 

[thihuyen9797]

Ad ơi mình nhập dữ liệu là ngày thánh năm trong sheet 1 nhưng hiển thị ở sheet 2 là số thì khắc phục như nào ạ, mình cảm ơn

 

[Anhhong123]

Em đã tải file về để sử dụng, thật sự rất hữu ích, nhưng còn 1 vấn đề đó là ở sheet data em co cho ảnh bé lại, đến lúc trích xuất hình ảnh sang sheet kia, em muốn phóng to ảnh lên dẫn tới việc ảnh bị vỡ + mờ. Ảnh thời điểm ban đầu mới chèn vào vẫn còn rõ nét, khoảng 5p sau hoặc tắt file đi ảnh lại về chất lượng kém. Ai đi qua đọc được bài giúp đỡ em với, thanks mọi người

Thêm 1 File sử dụng hàm để các bạn tiện tham khảo thêm.