Tự động thay đồi hình ảnh theo danh sách và insert copy đc (1 người xem)

[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

 

[ndu96081631]

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

Áp dụng theo bài viết này xem:
http://www.giaiphapexcel.com/forum/showthread.php?51408-Chèn-hình-vào-cell-bằng-hàm-tự-tạo

 

[vitbau86]

em thử làm theo bài ý rồi, nhưng hình ảnh sẽ chèn vào comment , nên chỉ to đúng kích cỡ của 1 cell thôi ---> rất bé. Nếu em để list trải dài thành 4 dòng (merger lại) thì ảnh chỉ to bằng ô đầu tiên thôi

 

[ndu96081631]

em thử làm theo bài ý rồi, nhưng hình ảnh sẽ chèn vào comment , nên chỉ to đúng kích cỡ của 1 cell thôi ---> rất bé. Nếu em để list trải dài thành 4 dòng (merger lại) thì ảnh chỉ to bằng ô đầu tiên thôi

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

 

[vitbau86]

em đã làm thử nhưng chưa thấy gì cả, thầy làm giúp em nhé,
http://www.mediafire.com/download.php?3jzdklvwqmwzc51
(em ko up thêm đc file nữa nên đành up nên media)

 

[dhn46]

Bạn xem lại file nha vì hình ảnh của bạn định dạng *.jpg trong khi dữ liệu là *.png thì sao code chạy được
bạn có code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$D$4" Then
    Sheet3.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Target & ".jpg")
  End If
End Sub

mà không có image1 ...hic lỗi tùm lum

Bác Du ah. E test lại code của bác sao ảnh không trải ra toàn bộ cell merg
em làm thủ công Height = Cel.Height >> Height = Cel.Height*4 là ok
hi

 

[ndu96081631]

em đã làm thử nhưng chưa thấy gì cả, thầy làm giúp em nhé,
http://www.mediafire.com/download.php?3jzdklvwqmwzc51
(em ko up thêm đc file nữa nên đành up nên media)

Bạn làm sai thì kết quả sai thôi
Đã sửa lại cho bạn

 

[vitbau86]

vâng cám ơn thầy nhé, nhưng lại có 1 vấn đề này nữa, khi in ra thì lại ko có hình ảnh thầy à.
em thấy cách insert ảnh như cách sau rất hay http://www.mediafire.com/download.php?y1q4ggay5qolwms
thầy có thể xử lý theo ý đồ của em đc ko?

 

[ndu96081631]

vâng cám ơn thầy nhé, nhưng lại có 1 vấn đề này nữa, khi in ra thì lại ko có hình ảnh thầy à.
em thấy cách insert ảnh như cách sau rất hay http://www.mediafire.com/download.php?y1q4ggay5qolwms
thầy có thể xử lý theo ý đồ của em đc ko?

Có in comment hay không là do bạn thiết lập trong Page Setup





Còn code ở đường link bạn đưa ở trên cũng là do tôi viết. Thích xài cái nào là tùy bạn

 

[vitbau86]

cho em hỏi thêm là có thể bỏ cái đường viền màu đen của comment đc ko, in ra nó xấu

 

[ndu96081631]

cho em hỏi thêm là có thể bỏ cái đường viền màu đen của comment đc ko, in ra nó xấu
View attachment 68439

Thích thì xóa thôi! Đấy là cái bóng (Shadow)

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
    [B][COLOR=#0000cd].Shadow.Visible = msoFalse
    .Line.Visible = msoFalse[/COLOR][/B]
    .Left = Cel.Left: .Top = Cel.Top: .Visible = True
    .Width = Cel.Width: .Height = Cel.Height
    .Fill.UserPicture Pic
  End With
End Function

Chổ màu xanh là code thêm vào để ẩn line và shadow
--------------------
Lý ra, nếu bạn biết cách format bằng tay thì hoàn toàn có thể record macro để biết code viết gì

 

[vitbau86]

vâng cảm ơn thầy rất nhiều

 

[vitbau86]

em cũng thử với cái mũi tên màu đen trên góc phải:
" .Arrow.Visible =msoFalse"
sao nó ko biến mất nhỉ

 

[ndu96081631]

em cũng thử với cái mũi tên màu đen trên góc phải:
" .Arrow.Visible =msoFalse"
sao nó ko biến mất nhỉ

Bạn chỉ cần nhớ 1 chuyện thế này: Cái bạn muốn liệu có làm bằng tay được không?
Vậy bạn phải thí nghiệm xem để xóa mũi tên thì bạn sẽ làm thế nào? (bằng tay). Nếu làm được rồi hãy tính đến việc viết code
Gợi ý: Thay đổi kiểu Comment

 

[lamho27]

Tự động thay đổi hình trong validation

Kính thưa Thầy http://www.giaiphapexcel.com/forum/member.php?61139-ndu96081631http://www.giaiphapexcel.com/forum/member.php?61139-ndu96081631ndu96081631 và các bạn
Em có 1 file muốn làm giống như file trong " bảng tính " mà Thầy đã làm , nhưng em làm không được , nhờ Thầy và các bạn giúp giùm
Em cám ơn rất nhiều

 

[ndu96081631]

Kính thưa Thầy ndu96081631 và các bạn
Em có 1 file muốn làm giống như file trong " bảng tính " mà Thầy đã làm , nhưng em làm không được , nhờ Thầy và các bạn giúp giùm
Em cám ơn rất nhiều

Mô tả chỉ tiết đi, xem file chẳng hiểu mấy:
- Bạn muốn cho hình vào sheet nào? Cell nào?
- Điểu kiện liên quan thế nào đổi với tên hình?

 

[lamho27]

Tự động thay đổi hình trong validation

Kính thưa Thầy
Em muốn cho hình vào Sheet U2 Cell F36 và sheet U1-2 cells G9 , G18 , G27 và G36
Em đã fusionner lại các cell ; nhờ Thầy giúp giùm làm cho em mổi cell 1 cái validation de données nhưng khi in thì đừng cho thấy tên của validation de données- cám ơn Thầy

 

[ndu96081631]

Kính thưa Thầy
Em muốn cho hình vào Sheet U2 Cell F36 và sheet U1-2 cells G9 , G18 , G27 và G36
Em đã fusionner lại các cell ; nhờ Thầy giúp giùm làm cho em mổi cell 1 cái validation de données nhưng khi in thì đừng cho thấy tên của validation de données- cám ơn Thầy

Biết là chèn hình rồi, nhưng mà dựa vào điều kiện gì để chọn hình ---> Chả lẽ thích chèn hình nào thì chèn sao?

 

[lamho27]

Xin lổi Thầy , Em thêm các điều kiện sau đây :
Ở sheet U2 : nếu cell H24<3.5 = hình 01 ở cell F36 ; H24=3.5 = hình 02 ở cell F36; cell H24>3.5 = hình 03 ở cell F36
Ở sheet U1-2 : Nếu cell c13>1075 = hình 01 ở cell G9; cell13=1075 = hình 02 ở cell G9; cell13<1075 = hình 03 ở cell G9
Nếu cell c22>1275 = hình 01 ở cell G18; cell22=1275 = hình 02 ở cell G18; cell22<1275 = hình 03 ở cell G18
Nếu cell c31>1225 = hình 01 ở cell G27; cell31=1225 = hình 02 ở cell G27; cell31<1225 = hình 03 ở cell G27
Nếu cell c40>1225 = hình 01 ở cell G36 ; cell40=1225 = hình 02 ở cell G36; cell40<1225 = hình 03 ở cell G36

 

[techmodule]

Thích thì xóa thôi! Đấy là cái bóng (Shadow)

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
    [B][COLOR=#0000cd].Shadow.Visible = msoFalse
    .Line.Visible = msoFalse[/COLOR][/B]
    .Left = Cel.Left: .Top = Cel.Top: .Visible = True
    .Width = Cel.Width: .Height = Cel.Height
    .Fill.UserPicture Pic
  End With
End Function

Chổ màu xanh là code thêm vào để ẩn line và shadow
--------------------
Lý ra, nếu bạn biết cách format bằng tay thì hoàn toàn có thể record macro để biết code viết gì

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