Cần giúp: Chèn tự động ảnh vào comment trên excel

[thnghiachau]

Em chào các bác.
cách chèn ảnh vào comment em cũng có biết. Và cách làm ấy là thủ công chèn từng ảnh một vào tùng commment.
Các các cho em hỏi là có cách nào chèn tự động không ah. Kiểu như khi mình nhập tên cảu môt file ảnh (VD anh1) vào ô excel ấy thì tự động thêm cái ảnh ấy vào comment của ô đó không ah.
E, xin cám ơn.

Chịu khó đọc hết cái topic này từ trên xuống thì thấy ngay

 

[fso56]

Ngắn gọn vầy đi:

Private Sub Image2Comment(ByVal PicPath As String, ByVal PicCel As Range)
  Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  On Error Resume Next
  PicCel.Comment.Delete
  If fso.FileExists(PicPath) Then
    On Error GoTo 0
    PicCel.AddComment vbLf
    PicCel.Comment.Shape.Fill.UserPicture PicPath
  End If
End Sub
Sub Main()
  Dim PicPath As String, cel As Range
  PicPath = ThisWorkbook.Path & "\"
  For Each cel In Range("A2:A2000")
    Image2Comment PicPath & cel.Text & ".png", cel
  Next
End Sub

Em chào thầy.
Code này em làm thì được rồi. Nhưng có một vấn đề là khi em thêm một ảnh mới vào thì lại phải chạy lại code thì mới có tác dụng. Còn không chạy lại code thì không tự động them ảnh vào comment.
Thầy có cách nào sửa lại một chút để khi em thêm ảnh vào thì nó tự động thêm ảnh vào comment của ô đó.
Em xin cám ơn

 

[thnghiachau]

Em chào thầy.
Code này em làm thì được rồi. Nhưng có một vấn đề là khi em thêm một ảnh mới vào thì lại phải chạy lại code thì mới có tác dụng. Còn không chạy lại code thì không tự động them ảnh vào comment.
Thầy có cách nào sửa lại một chút để khi em thêm ảnh vào thì nó tự động thêm ảnh vào comment của ô đó.
Em xin cám ơn

Bạn nói thêm ảnh vào là vào đâu?

 

[batman1]

Bạn nói thêm ảnh vào là vào đâu?

Có lẽ thế này ...
Trích bài 20

Kiểu như khi mình nhập tên của môt file ảnh (VD anh1) vào ô excel ấy thì tự động thêm cái ảnh ấy vào comment của ô đó

 

[thnghiachau]

Có lẽ thế này ...
Trích bài 20

Vậy thì bạn viết event cell change những cell mà bạn muốn thôi

 

[batman1]

Vậy thì bạn viết event cell change những cell mà bạn muốn thôi

Đấy là người ta muốn chứ tôi có muốn gì đâu?

 

[thnghiachau]

Đấy là người ta muốn chứ tôi có muốn gì đâu?

Vậy làm mình tưởng bạn biết bạn ấy muốn vậy và bạn nói lại cho mình nghe ah

 

[fso56]

Bạn nói thêm ảnh vào là vào đâu?

Em cám ơn bác.
Trong thư mục ảnh bây giờ mình có thêm ảnh 00340 khi mình ghi tên là 00340 vào ô A14 thì tự động phần comment của ô A14 có ảnh 00340

 

[batman1]

Vậy làm mình tưởng bạn biết bạn ấy muốn vậy và bạn nói lại cho mình nghe ah

Tôi thấy bạn hỏi một điều mà tôi biết họ đã viết rõ rồi nên trích lại cho bạn biết thôi.
Mà đọc bài 21 thì thấy bạn cũng đã đọc bài 20. Thế mà bạn còn hỏi.
Thôi, tôi không đôi co với bạn làm gì. Chắc chắn vấn đề của chủ thớt tôi hiểu và làm được. Không cần sự chỉ bảo của bạn

 

[thnghiachau]

Tôi thấy bạn hỏi một điều mà tôi biết họ đã viết rõ rồi nên trích lại cho bạn biết thôi.
Mà đọc bài 21 thì thấy bạn cũng đã đọc bài 20. Thế mà bạn còn hỏi.
Thôi, tôi không đôi co với bạn làm gì. Chắc chắn vấn đề của chủ thớt tôi hiểu và làm được. Không cần sự chỉ bảo của bạn

Thành thật xin lỗi bạn... Mình sai rồi.
Bạn nói làm mình đã đọc lại, và đúng là thớt đã nói rõ và mình đã không đọc kỹ.
Mình thật sự không phải chỉ bảo bạn đâu, xin bạn đừng hiểu nhầm, mình sai vì nghĩ là bạn @fso56 hỏi và mình trả lời theo quán tính mà thôi.
Lúc bạn viết bài #26 mình mới thấy đó là bạn @batman1 đã viết!
Một lần nũa xin lỗi vì làm bạn phiền lòng. Mong bạn bỏ qua sai sót của mình.

 

[htin1997]

Không biết đã đóng Topic này chưa, có tiện không khi mà mình không mở mở topic mới.
Em muốn nhờ mọi người thêm comment vào activecell có ảnh là clipboard thì có được không ạ? Cám ơn mọi người.

 

[Maika8008]

Không biết đã đóng Topic này chưa, có tiện không khi mà mình không mở mở topic mới.
Em muốn nhờ mọi người thêm comment vào activecell có ảnh là clipboard thì có được không ạ? Cám ơn mọi người.

Đọc chủ đề và thử ghi macro tôi thấy lấy ảnh từ clipboard không được. Bạn có thể đi đường vong bằng cách dán ra Paint lưu lại rồi lấy Path đưa vào code.

 

[htin1997]

Đọc chủ đề và thử ghi macro tôi thấy lấy ảnh từ clipboard không được. Bạn có thể đi đường vong bằng cách dán ra Paint lưu lại rồi lấy Path đưa vào code.

Dạ, thực tế con đang đi đường vòng đây.