Code thay đổi hình ảnh (1 người xem)

[Nguoiay]

Chào cả nhà! Em muốn khi chọn mã hàng thì hình ảnh nó cũng thay đổi theo. Em đưa file lên đây và nhờ mọi người viết dùm cho em đoạn code xử lý việc này nhé!
Lần trước mình nhớ có lần gặp bài viết như thế này của anh @ndu sử dụng comment + code. Nhưng giờ tìm hoài không thấy!

 

[quanluu]

Chào cả nhà! Em muốn khi chọn mã hàng thì hình ảnh nó cũng thay đổi theo. Em đưa file lên đây và nhờ mọi người viết dùm cho em đoạn code xử lý việc này nhé!
Lần trước mình nhớ có lần gặp bài viết như thế này của anh @ndu sử dụng comment + code. Nhưng giờ tìm hoài không thấy!

Bạn coi bài này xem( không cần code gì cả)
http://www.giaiphapexcel.com/diendan/threads/114357.Tra-cứu-hình-ảnh-trong-Excel-tại-sao-không

 

[khuongvietphong]

Chào cả nhà! Em muốn khi chọn mã hàng thì hình ảnh nó cũng thay đổi theo. Em đưa file lên đây và nhờ mọi người viết dùm cho em đoạn code xử lý việc này nhé!
Lần trước mình nhớ có lần gặp bài viết như thế này của anh @ndu sử dụng comment + code. Nhưng giờ tìm hoài không thấy!

Ban Tải File này về, giải nén và lưu ở ngoài Destop nha.

Trong File khi cột mã hàng [B2:B6] được thay đổi là ảnh tự động thay đổi theo

 

[ndu96081631]

Chào cả nhà! Em muốn khi chọn mã hàng thì hình ảnh nó cũng thay đổi theo. Em đưa file lên đây và nhờ mọi người viết dùm cho em đoạn code xử lý việc này nhé!
Lần trước mình nhớ có lần gặp bài viết như thế này của anh @ndu sử dụng comment + code. Nhưng giờ tìm hoài không thấy!

Cái bạn đề cập chắc là muốn nói đến hàm CommPic? Vậy mời xem file
----------------------------------------

Ban Tải File này về, giải nén và lưu ở ngoài Destop nha.

Trong File khi cột mã hàng [B2:B6] được thay đổi là ảnh tự động thay đổi theo

Trong code của bạn tôi thấy cái này:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B2:B6]) Is Nothing Then
  Target.Offset(, 3).Select
    [B]ActiveSheet.Pictures.Insert("C:\Users\[COLOR=#ff0000]khuong viet phong[/COLOR]\Desktop\Bai hoi 1\" & Target.Value & ".jpg").Select[/B]
    Selection.ShapeRange.Height = 42.5196850394
    Selection.ShapeRange.Width = 82.2047244094
End If
End Sub

Chỗ màu đỏ là sao vậy trời?
Ngoài ra còn thiếu công đoạn xóa hình trước khi chèn nên chưa xài được (tình huống người ta đổi mã hàng nhiều lần trong cùng 1 cell thì sẽ xuất hiện nhiều hình chồng lên nhau)

 

[Nguoiay]

Anh @ndu96081631 ơi, không phải cái này ạ. Em nhớ có lần anh làm bằng comment cho cell và viết code để nó lọc theo mã ạ!