Gọi Ảnh trong excel

[ngoquangvietvt]

em có 1 file nhân sự(đính kèm)
em muốn khi nhập mã có thể hiển thị hình ảnh nhân viên.
anh chị có thể vui lòng giúp em không,em xin cám ơn nhiều .
hiên em phải nhập bằng tay và in thành bản ảo,nhân sự ít có thể làm nhưng nếu quá nhiều làm rất phê mà tìm củng khó nữa.
Nếu không phait topic này xin mod vui long chuyển dùm em,em xin cám ơn nhiều.

 

[Hai Lúa Miền Tây]

Bạn tham khảo bài viết sau nhé
http://www.giaiphapexcel.com/forum/showthread.php?18652-Quản-lý-nhân-viên-có-hình-ảnh

 

[ngoquangvietvt]

cám ơn bạn nhiều.
sau 1 hồi tìm hiểu mình khẳng định ,mình quên hoàn toàn ngôn ngữ vb roài.khó xơi quá.
nếu bạn nào có thể làm mẩu bằng file mình đính kèm thì tuyệt quá.
bạn nào có thể giúp mình không.
mình xin cám ơn.

 

[Hai Lúa Miền Tây]

cám ơn bạn nhiều.
sau 1 hồi tìm hiểu mình khẳng định ,mình quên hoàn toàn ngôn ngữ vb roài.khó xơi quá.
nếu bạn nào có thể làm mẩu bằng file mình đính kèm thì tuyệt quá.
bạn nào có thể giúp mình không.
mình xin cám ơn.

Thôi thì dùng Image vậy.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [i1]) Is Nothing Then
     On Error Resume Next
          Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & _
                "Hinh" & "\" & Range("h2").Value & ".jpg")
    End If
    
End Sub

Bạn tải file về giải nén và mở file nhé.

Lưu ý:
- Sheet Data của bạn thêm 1 cột là tên hình nhé.
- Tạo 1 folder riêng trong thư mục để chứa hình

 

[ngoquangvietvt]

Mình Xin xin Chân Thành Cảm ơn bạn nhiều lắm xin cám ơn

 

[ngoquangvietvt]

hic,mình xin làm phiền bạn 1 lần nữa.
làm thế nào để tạo filter như bạn làm vậy.
mình không làm được.
mình xin cám ơn.

 

[Hai Lúa Miền Tây]

hic,mình xin làm phiền bạn 1 lần nữa.
làm thế nào để tạo filter như bạn làm vậy.
mình không làm được.
mình xin cám ơn.

Đó là Validation chứ không phải filter, bạn tìm hiểu ở trang sau nhé
http://www.giaiphapexcel.com/forum/showthread.php?37911-Hướng-dẫn-sử-dụng-Data-Validation
http://www.giaiphapexcel.com/forum/showthread.php?98-Hiểu-thêm-về-Validation.

 

[ngoquangvietvt]

Cám ơn bạn rất nhiều.
mình lại làm phiền bạn thêm 1 lần nữa.
gọi ảnh tự động như thế này có thể chỉnh sửa kích thước ảnh được không bạn.
mình đang mày mò mà vẩn chưa chỉnh sửa đựơc,mình xin cám ơn bạn.

 

[Hai Lúa Miền Tây]

Cám ơn bạn rất nhiều.
mình lại làm phiền bạn thêm 1 lần nữa.
gọi ảnh tự động như thế này có thể chỉnh sửa kích thước ảnh được không bạn.
mình đang mày mò mà vẩn chưa chỉnh sửa đựơc,mình xin cám ơn bạn.

Bạn có thể nói rõ hơn được không? Bạn muốn chỉnh cái khung hình lớn nhỏ theo ý hay là chỉnh độ phân giải của ảnh ?

 

[ngoquangvietvt]

Mình Muốn Chỉnh Sửa Khung hình Lớn Nhỏ Theo ý .
Mình thử Chỉnh Mà Không được.
Bạn Giúp Mình Nhé.
mình xin cám ơn.

 

[Hai Lúa Miền Tây]

Mình Muốn Chỉnh Sửa Khung hình Lớn Nhỏ Theo ý .
Mình thử Chỉnh Mà Không được.
Bạn Giúp Mình Nhé.
mình xin cám ơn.

Bạn làm hướng dẫn theo hình nhé





Sau đó click vào hình kéo ra vào theo ý.
Xong rồi click lại vào nút Design theo hình 2 là được.

 

[ngoquangvietvt]

Mình cám ơn bạn rất nhiều .
cám ơn.
thật sự cám ơn bạn.

 

[ngoquangvietvt]

Xin anh domfootwear hướng dẩn tận tình.
em tạo thêm 1 sheet rồi làm thêm 1 valadition ,em chép mã vb sang sheet mới.
em dùng vlookup để gọi nhưng em chỉ gọi được có mổi cái tên hình.
xin anh hướng dẩn tận tình cho em,em xin cám ơn nhiều ạh.
xin anh bỏ chút thời gian quý báu giúp em

 

[Hai Lúa Miền Tây]

Xin anh domfootwear hướng dẩn tận tình.
em tạo thêm 1 sheet rồi làm thêm 1 valadition ,em chép mã vb sang sheet mới.
em dùng vlookup để gọi nhưng em chỉ gọi được có mổi cái tên hình.
xin anh hướng dẩn tận tình cho em,em xin cám ơn nhiều ạh.
xin anh bỏ chút thời gian quý báu giúp em

Bạn có thể gửi cái file mà bạn làm lên đây coi thử nhé.
Cũng có thể bạn chưa tắt chế độ Design

 

[ngoquangvietvt]

Nhờ anh giúp đở

vấn đề là em o hiểu cách đưa hình của vb nên em o biết phải sửa những gì
em muốn hiểu để có thể ứng dụng.
em cám ơn anh
http://www.mediafire.com/?6sjfa0jm54e5hzq
em không đính kèm được nên anh vui lòng down bằng mf nhé.
em cám ơn anh.

 

[Hai Lúa Miền Tây]

vấn đề là em o hiểu cách đưa hình của vb nên em o biết phải sửa những gì
em muốn hiểu để có thể ứng dụng.
em cám ơn anh
http://www.mediafire.com/?6sjfa0jm54e5hzq
em không đính kèm được nên anh vui lòng down bằng mf nhé.
em cám ơn anh.

1.) Bạn không chỉnh lại cái cell chứa kết quả của Vlookup tên hình thì làm sao nó load hình cho được ? Cell chứa kết quả Vlookup của bạn là D3 mà code của bạn tham chiếu đến tên hình ở cell H2
2.) Bạn chưa vẽ cái khuôn hình vào
Bạn chỉnh lại như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [i1]) Is Nothing Then
     On Error Resume Next
          Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & _
                "Hinh" & "\" & Range("[B][COLOR=red]D3[/COLOR][/B]").Value & ".jpg")
    End If
    
End Sub

* Hoặc có thể đưa cái đó vào biến luôn, khỏi dùng cell phụ.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [d1]) Is Nothing Then
     On Error Resume Next
      [COLOR=red] Dim str As String[/COLOR]
       [COLOR=red] str = Application.WorksheetFunction.VLookup([d1], Sheets("ds").Range("A4:N$1100"), 14, 0)[/COLOR]
          Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & _
                "Hinh" & "\" &[COLOR=red] str[/COLOR] & ".jpg")
    End If
    
End Sub

 

[ngoquangvietvt]

sau khi em chuyển thành D3,vẽ khuôn hình.
vẩn chưa được,xin anh xem và hướng dẩn giùm em.
em cám ơn anh.

http://www.mediafire.com/?9vowdfafiwef2b2

 

[Hai Lúa Miền Tây]

sau khi em chuyển thành D3,vẽ khuôn hình.
vẩn chưa được,xin anh xem và hướng dẩn giùm em.
em cám ơn anh.

http://www.mediafire.com/?9vowdfafiwef2b2

Ngay chổ Validation của bạn là D1 chứ không phải I1 như code của bạn. Chỉnh lại như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [[B][COLOR=red]D1[/COLOR][/B]]) Is Nothing Then
     On Error Resume Next
          Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & _
                "Hinh" & "\" & Range("D3").Value & ".jpg")
    End If
    
End Sub

 

[nam2806]

Thôi thì dùng Image vậy.
Lưu ý:
- Sheet Data của bạn thêm 1 cột là tên hình nhé.
- Tạo 1 folder riêng trong thư mục để chứa hình

Thiệt là hết ý. Dùng file này để tìm chi tiết, phụ tùng theo mã số thì tiện lợi không gì bằng. Cả ơn bạn nhiều.

 

[ngoquangvietvt]

Em làm được rồi,em cám ơn anh nhiều.
anh chỉ em cách đưa 100% bức ảnh vào khung đã vẽ sẳn luôn nha anh.
em cám ơn.