Làm sao tạo marco tự chạy và load hình ảnh trên worksheet?

[nguyen_dang]

Chào Các Bạn trên Diễn đàn
Các Bạn vui lòng giúp minh: Tạo marco tự chạy khi click chọn tên ở Drop Down trong worksheet và hình sẽ được load theo tên của học sinh đó (hình sẽ biến mất khi close worksheet và sẽ load lại khi open workbook-để giảm "béo" cho file đó mà.)
Cám ơn Các Bạn. Chúc Các Bạn vui và khỏe

 

[ndu96081631]

Chào Các Bạn trên Diễn đàn
Các Bạn vui lòng giúp minh: Tạo marco tự chạy khi click chọn tên ở Drop Down trong worksheet và hình sẽ được load theo tên của học sinh đó (hình sẽ biến mất khi close worksheet và sẽ load lại khi open workbook-để giảm "béo" cho file đó mà.)
Cám ơn Các Bạn. Chúc Các Bạn vui và khỏe

Góp ý mấy việc:
- Danh sách học sinh ít nhất phải có MÃ --->Lở trùng tên, trùng lớp và trùng luôn năm sinh thì tìm bằng cách gì
- Tên hình có trong thư mục ít nhất cũng phải đặt trùng với MÃ ---> Nếu không thì dựa vào cái gì để load hình
- Tôi đã sửa lại và viết code như sau:

Sub HSHS()
  On Error Resume Next
  With Sheet1
    .Shapes("Pic1").Fill.Visible = msoFalse
    .Shapes("Pic1").Fill.UserPicture ThisWorkbook.Path & "\" & .Range("B7") & ".jpg"
  End With
End Sub

- Click phải vào Drop Down 1, chọn Assign macro, chọn HSHS trong hộp Macro name rồi OK
- Khi bạn chọn tên nào đó trong Drop Down list, macro sẽ tự chạy (không cần nút lệnh)
- Chú ý: Có mấy công thức được giấu tại B7:B10 nhé