Nhờ giúp. Copy ảnh trong 1 ô sang ô khác

[Duong.bach]

Mình muốn copy cột A và ảnh trong cột B như hình bên dưới sang cột A và ảnh sang cột C ở sheet khác.
Size dòng và cột của 2 sheet là khác nhau, và ảnh khi sang cột C tương ứng vẫn nằm gọn trong ô đó.
Nhờ mọi người code giúp mình với. Cám ơn tất cả !

 

[Duong.bach]

Ai đó có thể giúp mình với

 

[Maika8008]

Gợi ý: bạn ghi macro
1. Kéo rộng cột và cao dòng ở sheet kia cho giống với sheet này
2. Copy từ cột A này sang cột A kia.
3. Copy từ cột B này sang cột C kia.
Thế là bạn đã có đoạn code gần gần như ý.

 

[Duong.bach]

Gợi ý: bạn ghi macro
1. Kéo rộng cột và cao dòng ở sheet kia cho giống với sheet này
2. Copy từ cột A này sang cột A kia.
3. Copy từ cột B này sang cột C kia.
Thế là bạn đã có đoạn code gần gần như ý.

Về độ rộng sheet ko cố định nên ko kéo cho nó giống nhau được, Với khi ghi macro nó chỉ lặp lại đúng cái ảnh đó, còn ảnh của mình là có thay đổi

 

[Maika8008]

Chép cả cột thì tất cả ảnh đều chép sang đúng vị trí. Còn độ rộng, tôi thấy hình ví dụ của bạn có các ô liền nhau thì bằng y nhau, sao không kéo giống được?

 

[Duong.bach]

Chép cả cột thì tất cả ảnh đều chép sang đúng vị trí. Còn độ rộng, tôi thấy hình ví dụ của bạn có các ô liền nhau thì bằng y nhau, sao không kéo giống được?

cám ơn bạn. Do mình cần tổng hợp dữ liệu hàng ngày vào 1 sheet nên ko chép cột được. Nếu có code để mình mở rộng chứ macro thì ko thực hiện được.
Có code dc mà theo độ rộng cột hàng ngẫu nhiên ko bạn?

 

[HeSanbi]

cám ơn bạn. Do mình cần tổng hợp dữ liệu hàng ngày vào 1 sheet nên ko chép cột được. Nếu có code để mình mở rộng chứ macro thì ko thực hiện được.
Có code dc mà theo độ rộng cột hàng ngẫu nhiên ko bạn?

Bạn sang ứng dụng lấy dữ liệu thời tiết của tôi để xem code. Code bên đấy tôi dùng để copy icon thời tiết, phù hợp với mong muốn của bạn. Chỉ cần sửa lại một chút.

 

[Duong.bach]

Bạn sang ứng dụng lấy dữ liệu thời tiết của tôi để xem code. Code bên đấy tôi dùng để copy icon thời tiết, phù hợp với mong muốn của bạn. Chỉ cần sửa lại một chút.

cho mình xin link với

 

[HeSanbi]

cho mình xin link với

Trang chủ: bài viết nổi bật

 

[Duong.bach]

Trang chủ: bài viết nổi bật

khả năng của mình ko đủ để tìm được code trong file Nhờ bạn chỉ giúp

 

[Binbo2020]

C tương ứng vẫn nằm gọn trong ô đó

Thử chọn ảnh trước khi copy xong tích vào cái dòng cuối cùng như ảnh xem được không, mình copy tay thì được không dùng code nên không biết đúng không

 

[Duong.bach]

Thử chọn ảnh trước khi copy xong tích vào cái dòng cuối cùng như ảnh xem được không, mình copy tay thì được không dùng code nên không biết đúng không
View attachment 258587

Cái này chỉ là bạn copy cột hoặc hàng nó sẽ đi theo thôi. Chứ mục đích của mình là copy ảnh trong ô này, dán sang ô có kích thước khác ( nhỏ hơn ) nhưng ảnh vẫn nằm gọn trong ô đó

 

[HeSanbi]

1. CopyIconName - từ shape name
2. NewIcon - sang tên mới
3. SheetIcon - Sheet chứa ảnh
4. SheetPaste - Sheet dán ảnh
5. Left - vị trí trái
6. Top - vị trí trên
7. Width - rộng
8. Height - Cao

Sub IconCopy(ByVal CopyIconName As String, _
             ByVal NewIcon As String, _
           ByVal SheetIcon As Excel.Worksheet, _
  Optional ByVal SheetPaste As Excel.Worksheet, _
  Optional ByVal Left As Long, _
  Optional ByVal Top As Long, _
  Optional ByVal Width As Long = 25, _
  Optional ByVal Height As Long = 25)
  On Error Resume Next
  If SheetPaste Is Nothing Then Set SheetPaste = SheetIcon
 
  Dim IM As Object, k As Integer, ek As Integer, o
  Set o = SheetPaste.Shapes(NewIcon)
  If VBA.Err.Number = 0 Then
    o.visible = True
    GoTo E
  End If
  SheetIcon.Shapes(CopyIconName).Duplicate:
  ek = -((SheetIcon Is SheetPaste) - 1)
  For Each IM In SheetPaste.Shapes
    If IM.Name = CopyIconName Then
      k = k + 1
      If k = ek Then
        IM.Name = NewIcon
        Set o = IM
        Exit For
      End If
    End If
  Next
  With o
    .LockAspectRatio = -1
    .Placement = 1
    .visible = True
    .OnAction = "IconCopy_click"
E:
    .Left = Left
    .Top = Top
    .Width = Width
    .Height = Height
  End With
End Sub
Private Sub IconCopy_click()
End Sub