Trang 2 của 6 Đầu tiênĐầu tiên 1234 ... CuốiCuối
Kết quả 11 đến 20 của 54

Chủ đề: File excel quản lý nhân viên

  1. #11
    dangvanthao Guest
    Trích dẫn Gửi bởi 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.
    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 ! [IMG]images/smilies/biggrin.png[/IMG]

  2. #12
    sevenup024 Guest
    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

  3. #13
    tanhaiha Guest
    Trích dẫn Gửi bởi truongran
    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:

    Mã:
    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))
        Picname = ThisWorkbook.Path & "\Hinh\" & Rng.Find(Target).Offset(, 13)
        '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. [IMG]images/smilies/a43.gif[/IMG]

  4. #14
    tronbonet Guest
    phucbugis

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

  5. #15
    Ngày tham gia
    Aug 2015
    Bài viết
    3
    Trích dẫn Gửi bởi truongran
    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 [IMG]images/smilies/a01.gif[/IMG]

  6. #16
    Ngày tham gia
    Aug 2015
    Bài viết
    1
    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 ạ

  7. #17
    Trích dẫn Gửi bở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 ạ
    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é !)

  8. #18
    thuthuy1991 Guest
    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

  9. #19
    caynguqua Guest
    Trích dẫn Gửi bởi 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
    - 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? [IMG]images/smilies/a01.gif[/IMG]

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

  10. #20
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    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

Trang 2 của 6 Đầu tiênĐầu tiên 1234 ... CuốiCuối

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •