Tìm kiếm hình ảnh trong ô excel

[vietcongwse]

Xin Chào Anh/Chị,

Có Anh/Chị nào biết code tìm kiếm trên Userform để lấy ra được hình ảnh từ ô excel nhất định không ạ.

Để chi tiết hơn Anh/chị xem đính kèm, em mong muốn sau khi chọn được mã hình ảnh, kết quả hiển thị ra được hình ảnh cần.

Rất mong Anh/Chị hỗ trợ,

Cám ơn các thành viên giaiphapexcel

 

[ndu96081631]

Xin Chào Anh/Chị,

Có Anh/Chị nào biết code tìm kiếm trên Userform để lấy ra được hình ảnh từ ô excel nhất định không ạ.

Để chi tiết hơn Anh/chị xem đính kèm, em mong muốn sau khi chọn được mã hình ảnh, kết quả hiển thị ra được hình ảnh cần.

Rất mong Anh/Chị hỗ trợ,

Cám ơn các thành viên giaiphapexcel

Thử file này xem sao nhé. Hên thì được, xui thì... thôi

 

[vietcongwse]

Thử file này xem sao nhé. Hên thì được, xui thì... thôi

Cám ơn Bác,

file sử dụng OK ạ, có cách nào giữ nguyên dung lượng của hình ảnh không ạ. hình ảnh sau khi mở lên bị mờ.
Nhờ Bác hướng dẫn thêm.

 

[ndu96081631]

Cám ơn Bác,

file sử dụng OK ạ, có cách nào giữ nguyên dung lượng của hình ảnh không ạ. hình ảnh sau khi mở lên bị mờ.
Nhờ Bác hướng dẫn thêm.

Thử lại file này xem có rõ hơn không

 

[vietcongwse]

Thử lại file này xem có rõ hơn không

Cảm ơn Bác, mọi thứ đã rõ ràng.

Em thấy đề tài này khá mới và khó thực hiện, bác có thể chia sẻ hoặc hướng dẫn cách viết trong trường này được không ạ.
Em nhìn code bác viết, không hiểu hết được nội dung và ý nghĩa của từng lệnh.

 

[ndu96081631]

Cảm ơn Bác, mọi thứ đã rõ ràng.

Em thấy đề tài này khá mới và khó thực hiện, bác có thể chia sẻ hoặc hướng dẫn cách viết trong trường này được không ạ.
Em nhìn code bác viết, không hiểu hết được nội dung và ý nghĩa của từng lệnh.

Thật ra bạn cũng không cần phải hiểu toàn bộ code, chỉ cần biết áp dụng là được. Cụ thể trong file có hàm:

PicLookup(Giá trị tìm kiếm, Vùng tìm kiếm, Cột tìm kiếm)

Cách dùng gần như giống y chang hàm VLOOKUP, bạn cứ theo đó áp dụng là được rồi.
Cụ thể tôi đã áp dụng hàm trong UserForm của bạn như sau:

Private Sub ComboBox1_Change()
  Dim oPic As Object
  Set oPic = PicLookup(ComboBox1.Value, Sheet1.Range("B4:C100"), 2)
  If Not oPic Is Nothing Then Me.Image1.Picture = oPic
End Sub

Đơn giản vậy thôi mà