Liên kết hình ảnh đến ô (1 người xem)

[mrlevanbatb]

Chào các anh chị!
E có một câu hỏi muốn nhờ anh chị chỉ giúp.
Nội dung câu hỏi của e là: Khi e nhập mã số của hình ảnh vào 1 ô nào đó thì hình ảnh đó tự động hiện ra.
Anh chị có thể mở file đính kèm để biết thêm chi tiết nhé.
Mong hồi âm của các anh chị.

 

[maikhoi]

Bạn xem file này, rồi bắt chước làm theo.
Đặt name: Pic có công thức
=INDEX(Pictures!$A$1:$D$1,,MATCH(Main!$B$1,{"Hoangdanh282vn","Over_AC","ttphong2007","Tedaynui"},0))
Rồi copy 1 hình vào sheet Main, chọn nó, tại dòng công thức gõ =Pic

Xem file sẽ dễ hiểu hơn.

Nguồn: http://www.giaiphapexcel.com/forum/showthread.php?17441-Name-động-và-hình-ảnh

 

[mrlevanbatb]

cách làm của bạn cũng hay, nhưng áp dụng vào trường hợp của tớ thì chưa hợp lý lắm.
VÌ cái ô TÊN đối với bài của tớ thì đó là một hàm VLOOKUP cho ra kết quả là TÊN đó ,chứ cái TÊn đó không phải có sẵn để chọn như trong ví dụ của bạn. bạn có cách khác không giúp tớ với.

 

[Quang_Hải]

Bạn xem như thế này có xài được không nha

 

[Quang_Hải]

File kia code bị khoá rồi, bạn xem file này

 

[mrlevanbatb]

E đã kiểm tra cách của a quanhai1969, nhưng áp dụng vào bài của e thì không được anh ah`.
Dù sao cũng thank a nhiều.
Hi vọng sẽ có a c nào giúp được em.
i am waiting.......

 

[Quang_Hải]

Áp dụng không được chỗ nào? 1 cột là mã số, 1 cột là hình rồi.

 

[Quang_Hải]

Đã sửa code theo yêu cầu của bạn rồi đấy. Chèn 4 hình vào 4 ô A8,A19,A26 và A35

 

[mrlevanbatb]

A Hải ah`, E kiểm tra file của a rồi. Có 1 số vấn đề như sau anh ah` :
Yêu cầu của bài toán là : Khi e nhập mã số của hình ảnh vào bất kì Ô nào thuộc các hàng số 8, háng 17, hàng 26 và hàng 35( Ví dụ A8; B8; C8; D8;…..A17; B17; C17; D17…….A26; B26; C26; D26,…..A35; B35; C35;D35,…..X35…. thì hình ảnh hiện ta tương ứng. Và 2 Ô(hay nhiều Ô) có giá trị trùng nhau thì vẫn hiện ra hình ảnh giống nhau ở 2 Ô(hay nhiều Ô) đó.
Khi e check lại file của a thì có 2 vấn đề là :
Thứ nhất: Hình ảnh chỉ được hiện lên khi em nhập giá trị vào các ô A8; A17; A26; A35. Còn các Ô khác thì không được (Ví dụ B8; B17; C26; D35), cái này chắc do anh chưa hiểu ý trong yêu cầu bài đó.
Thứ 2 : Khi e điền mã số trùng nhau ở 2 (hoặc nhiều ô) khác nhau thì chỉ hiện ra 1 hình ảnh ở 1 Ô mà thôi.
Mong a xem lại giúp em.
Cảm ơn a nhiều nhiều…

 

[Quang_Hải]

Xem code này nhé
Private Sub CHENHINH_Click()
Dim r, n, c
Dim Pic As String
Application.ScreenUpdating = False
On Error Resume Next
n = [A65536].End(3).Row
For r = 8 To 35 Step 9
For c = 1 To Cells(r, 256).End(2).Column
Pic = Cells(r, c).Value & ".jpg"
Shapes(Pic).Delete
Next: Next
For r = 8 To 35 Step 9
For c = 1 To Cells(r, 256).End(2).Column
Pic = Cells(r, c).Value & ".jpg"
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Pic)
.Name = Pic
.Left = Cells(r, c).Left: .Top = Cells(r, c).Top
.Width = Cells(r, c).Width: .Height = Cells(r, c).Height
End With
Next: Next
Application.ScreenUpdating = True
End Sub

 

[mrlevanbatb]

Tuyệt vời!!!!
Thank anh nhiều nhiều!

 

[mrlevanbatb]

Code a cho chạy rất tốt anh ah`.
Có 1 điều nữa là : E dùng code đó để làm cho 1 sheet khác thì e không biết thiết lập cái CommandButton như thế nào để khi click chuột vào đó thì ảnh sẽ hiện ra.
Anh giúp em với.

 

[Quang_Hải]

Trước đây mình cũng vậy đó, không biết mang code sang sheet khác nên đành phải copy file có code, đổi tên file và copy dữ liệu dán vào file này. Rồi tự nghiên cứu, đọc thật nhiều code của các thành viên trên diễn đàn. Đọc mãi cũng phải hiểu ra ít nhiều. Phần khó nhất mình đã giúp bạn rồi, phần còn lại phải cố lên nha, sách vba trên diễn đàn cũng nhiều lắm. Vài lời trao đổi, nếu có gì không phải xin bỏ qua.

 

[mrlevanbatb]

Vâng.Phần khó nhất thì a đã giúp được e rồi.E sẽ chịu khó đọc thêm nhiều hơn.
Thank you again......

 

[Trần Văn Bình]

bạn xem trang này
http://www.giaiphapexcel.com/forum/showthread.php?66723-Gi%C3%BAp-ho%C3%A0n-thi%E1%BB%87n-Th%E1%BB%91ng-k%C3%AA-bi%E1%BB%83n-b%C3%A1o-hi%E1%BB%81u

 

[hic1802]

Chào bạn,
nếu mình muốn xóa các ảnh cũ bị ảnh mới đè lên thì phải làm ntn? xin góp ý

File kia code bị khoá rồi, bạn xem file này