Tự động thay đồi hình ảnh theo danh sách và insert copy đc

[vitbau86]

Em có 1 vấn đề thế này:
em muốn copy insert các hàng xuống dưới để chọn giá trị khác thì hình ảnh cũng đc copy xuống tương ứng và cũng thay đổi đc

 

[techmodule]

Em chào thầy, khi sử dụng hàm này, thì khi thay đổi giá trị của biến Pic trong hàm về giá trị rỗng thì nó vẫn hiển thị ảnh cũ, vậy có cách nào xử lí không ạ.
Em xin cảm ơn

Em đã tìm ra câu trả lời, không rõ có tối ưu không
Viết thêm 1 hàm con này

Option ExplicitFunction Xoaanh(anh As String, Cel As Range) As String
On Error Resume Next
Application.Volatile
If anh = "" Then Cel(1, 1).Comment.Delete
End Function

Sau đó mình dùng như sau:

=IF(A15<>"";CommPic(link(B15);D15);Xoaanh(B15;D15))

hàm link có nội dung

Function link(piclink As String) As Stringlink = ThisWorkbook.Path & "\hinhanh\" & piclink & ".jpg"
If piclink = "" Then link = ""
End Function

Với cách làm này đảm bảo khi thay đổi giá trị của B15 là "" thì ảnh cũ sẽ bị xóa, như vậy mới hoàn thiện được
Ý kiến của em như vậy, thầy có thể góp ý cho em hoàn thiện hơn được không ạ

 

[hoanhdm]

[FONT=Tahoma, Calibri, Verdana, Geneva, sans-serif]Chả là tôi cũng có nhu cầu chèn hình ảnh vào bảng tính (vấn đề này đã làm Ok), nhưng lại phát sinh vấn đề là hình ảnh có nhiều kiểu (nằm ngang, thẳng đứng, kích thước ảnh khác nhau, ..). Vậy mình mình hỏi bạn có cách nào để khi mình chèn hình ảnh vào thì chèn đúng theo bản gốc hình ảnh hay không? Tức là khung ảnh sẽ không phải theo định dạng có sẵn của Cell mà có thể: Nếu hình gốc theo chiều ngang thi khi chèn vào không bị kéo giản chiều dọc và ngược lại.[/FONT]
[FONT=Tahoma, Calibri, Verdana, Geneva, sans-serif]Nếu có thể thì mong bạn giúp mình vấn đề này nhé.[/FONT]
[FONT=Tahoma, Calibri, Verdana, Geneva, sans-serif]Thanks[/FONT]

 

[triphu0202]

File báo lỗi #NAME?

Thưa thầy cho em hỏi chút ạ, em chèn các thông số như hướng dẫn mà file của em báo lỗi ạ.
Thầy chỉ giúp em với ạ
Em xin cảm ơn

 

[trongn]

Thầy ơi,
Em đang tạo một cái Comment có hình ảnh nhưng không thể tạo đường dẫn động cho nó được hả thầy. Giống như là hình tùy mình chọn vậy. theo một đường dẫn không nhất định vậy đó thầy.

 

[nghiemcongdien]

Em chào Thầy
Em làm theo file mẫu của Thầy, thì đã chèn đc ảnh em muốn chèn vào rồi.
Tuy nhiên ảnh của em là mã vạch, nó có viền và độ phân giải của ảnh thấp nên không dùng súng bắn đc.
Thầy có thể làm mẫu cho em để em có thể dùng súng bắn đc mã vạch này ko ạ. (ảnh gốc thì bắn đc ạ)
Ngoài ra em thấy bảo khi đã chèn ảnh OK rồi thì có thể dùng hàm hàm khác để tham chiếu ảnh đó ra file khác, sheet khác thì phải nhưng em làm thử thì ko đc ạ
Em xin cảm ơn

 

[tranduc88]

Dễ òm!
Chình lại code tí xíu

Function CommPic(Pic As String, Cel As Range) As String
  On Error Resume Next
  Application.Volatile
  Cel(1, 1).Comment.Delete
  If Cel(1, 1).Comment Is Nothing Then Cel(1, 1).AddComment
  Cel(1, 1).Comment.Text vbLf
  With Cel(1, 1).Comment.Shape
    .Left = Cel.Left: .Top = Cel.Top: .Visible = True
    .Width = Cel.Width: .Height = Cel.Height
    .Fill.UserPicture Pic
  End With
End Function

Bảo đảm merge bao nhiêu cell thì ảnh sẽ "trải ra" bấy nhiêu cell

dạ, thưa thầy. file mẫu thầy hướng dẫn rất hữu ích với công việc của em. Tuy chỉ có 1 cái là em vẫn ko làm được, là khi e copy nguyên ảnh và giá trị biến rồi insert thêm cột thì file lỗi ko hiển thị được ảnh nữa. e ko hiểu lắm (mù tịt). Mong thầy khai sáng chút kiến thức ạ. Tiện thể cho e hỏi nhỏ, với một người đi làm như em chỉ có thời gian nghiên cứu buổi đêm thì thầy có lớp học online nào dạy excell nâng cao VBA không ạ!