LỌC HÌNH ẢNH TỪ SHEET NÀY SANG SHEET KHÁC

THANHPHAN01

Thành viên mới
Tham gia ngày
11 Tháng bảy 2019
Bài viết
5
Được thích
0
Điểm
13
Tuổi
19
Xin chào cả nhà. Mình làm bảng báo giá cộng thức xong hết rồi nhưng tới đoạn lọc hình ảnh từ sheet DMHangHoa sang sheet BangBaoGia không được. Nghiên cứu mấy diễn đàn cũ nhưng càng làm càng rối. Mong các anh chị cao nhân chỉ giáo. Xin cảm ơn!
 

File đính kèm

quick87

(/ội...
Tham gia ngày
8 Tháng tư 2008
Bài viết
310
Được thích
278
Điểm
710
Xin chào cả nhà. Mình làm bảng báo giá cộng thức xong hết rồi nhưng tới đoạn lọc hình ảnh từ sheet DMHangHoa sang sheet BangBaoGia không được. Nghiên cứu mấy diễn đàn cũ nhưng càng làm càng rối. Mong các anh chị cao nhân chỉ giáo. Xin cảm ơn!
Bạn tham khảo bài viết dưới thử xem sao:

 

snow25

Thành viên gắn bó
Tham gia ngày
24 Tháng bảy 2018
Bài viết
2,670
Được thích
2,587
Điểm
360
Xin chào cả nhà. Mình làm bảng báo giá cộng thức xong hết rồi nhưng tới đoạn lọc hình ảnh từ sheet DMHangHoa sang sheet BangBaoGia không được. Nghiên cứu mấy diễn đàn cũ nhưng càng làm càng rối. Mong các anh chị cao nhân chỉ giáo. Xin cảm ơn!
Cái này mình nghĩ theo hướng như vậy.Trước hết khi chúng ta lấy hình ảnh từ ngoài vào trong excel sẽ dùng code VBA để lấy hình vào rồi đổi tên cái hình ảnh theo tên sản phẩm.Khi nào cần thì gọi ra thôi.Cũng nhanh.:D.Nhưng phải biết về code VBA.
 

THANHPHAN01

Thành viên mới
Tham gia ngày
11 Tháng bảy 2019
Bài viết
5
Được thích
0
Điểm
13
Tuổi
19
Cái này mình nghĩ theo hướng như vậy.Trước hết khi chúng ta lấy hình ảnh từ ngoài vào trong excel sẽ dùng code VBA để lấy hình vào rồi đổi tên cái hình ảnh theo tên sản phẩm.Khi nào cần thì gọi ra thôi.Cũng nhanh.:D.Nhưng phải biết về code VBA.
Có thể nhờ bạn chỉ giáo giúp mình với. Cảm ơn bạn
Bài đã được tự động gộp:

Bạn tham khảo bài viết dưới thử xem sao:

Thanks bạn, mình làm rồi mà
Bạn tham khảo bài viết dưới thử xem sao:

 

THANHPHAN01

Thành viên mới
Tham gia ngày
11 Tháng bảy 2019
Bài viết
5
Được thích
0
Điểm
13
Tuổi
19
Bạn tham khảo bài viết dưới thử xem sao:

Cảm ơn bạn, mình làm mà lay hoay mãi chưa ra. Cố gắng chiến hết đêm nay xem sao
Bài đã được tự động gộp:

Cái này phải viết code VBA.Nếu mai rỗi mình code cho nhé.Hôm nay đến giờ về rồi.
Cảm ơn rất nhiều ạ
 

quick87

(/ội...
Tham gia ngày
8 Tháng tư 2008
Bài viết
310
Được thích
278
Điểm
710
Cảm ơn bạn, mình làm mà lay hoay mãi chưa ra. Cố gắng chiến hết đêm nay xem sao
Mình làm thử cho bạn, thiết kế lại chút sheet danh mục hàng hóa, code mình sử dụng của thầy @ndu96081631


221052

PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim DataRng As Range, fRng As Range, Pic As Picture, pItem As Picture
  On Error Resume Next
  If Target.Column = 4 Then
    If Target.Row >= 12 Then
      If Target.Count = 1 Then
        ActiveSheet.Shapes(Target.Address).Delete
        On Error GoTo ExitSub
        Set DataRng = Sheet3.Range("B8:C1000")
        Set fRng = DataRng.Find(Target.Value, , , xlWhole)
        If Not fRng Is Nothing Then
          fRng.Offset(, 1).Copy
          Target.Parent.Pictures.Paste
          For Each pItem In Sheet4.Pictures
            If pItem.Name Like "Picture*" Then
              Set Pic = pItem: Exit For
            End If
          Next
          With ActiveSheet.Shapes(Pic.Name)
            .LockAspectRatio = False
            .Top = Target.Top: .Left = Target.Offset(, 0).Left
            .Height = Target.Height: .Width = Target.Offset(, 0).Width
            .Name = Target.Address
          End With
ExitSub:
          Application.CutCopyMode = 0
        End If
      End If
    End If
  End If
End Sub
Bạn áp dụng xem được không nhé !
 

File đính kèm

snow25

Thành viên gắn bó
Tham gia ngày
24 Tháng bảy 2018
Bài viết
2,670
Được thích
2,587
Điểm
360

File đính kèm

THANHPHAN01

Thành viên mới
Tham gia ngày
11 Tháng bảy 2019
Bài viết
5
Được thích
0
Điểm
13
Tuổi
19
Cảm ơn bạn nhiều lắm. Mình muốn thêm mấy chục mã hàng nữa, nhờ bạn cho mình xin công thức được không ạ?
Bài đã được tự động gộp:

Mình làm thử cho bạn, thiết kế lại chút sheet danh mục hàng hóa, code mình sử dụng của thầy @ndu96081631


View attachment 221052

PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim DataRng As Range, fRng As Range, Pic As Picture, pItem As Picture
  On Error Resume Next
  If Target.Column = 4 Then
    If Target.Row >= 12 Then
      If Target.Count = 1 Then
        ActiveSheet.Shapes(Target.Address).Delete
        On Error GoTo ExitSub
        Set DataRng = Sheet3.Range("B8:C1000")
        Set fRng = DataRng.Find(Target.Value, , , xlWhole)
        If Not fRng Is Nothing Then
          fRng.Offset(, 1).Copy
          Target.Parent.Pictures.Paste
          For Each pItem In Sheet4.Pictures
            If pItem.Name Like "Picture*" Then
              Set Pic = pItem: Exit For
            End If
          Next
          With ActiveSheet.Shapes(Pic.Name)
            .LockAspectRatio = False
            .Top = Target.Top: .Left = Target.Offset(, 0).Left
            .Height = Target.Height: .Width = Target.Offset(, 0).Width
            .Name = Target.Address
          End With
ExitSub:
          Application.CutCopyMode = 0
        End If
      End If
    End If
  End If
End Sub
Bạn áp dụng xem được không nhé !
Cảm ơn bạn, khi mình đổi mã hàng thì hình vẫn không thay đổi bạn ah
 

quick87

(/ội...
Tham gia ngày
8 Tháng tư 2008
Bài viết
310
Được thích
278
Điểm
710
Cảm ơn bạn nhiều lắm. Mình muốn thêm mấy chục mã hàng nữa, nhờ bạn cho mình xin công thức được không ạ?
Bài đã được tự động gộp:


Cảm ơn bạn, khi mình đổi mã hàng thì hình vẫn không thay đổi bạn ah
Bạn đính kèm cái file đó lên thử?
Khi thay đổi mã hàng bên sheet: "DMHangHoa", bạn qua sheet: "BangBaoGia", tại ô bất kỳ trong vùng D12:D17, bạn nhấn phím F2 rồi enter, ảnh nó sẽ tự cập nhật theo.
 

THANHPHAN01

Thành viên mới
Tham gia ngày
11 Tháng bảy 2019
Bài viết
5
Được thích
0
Điểm
13
Tuổi
19
Bạn đính kèm cái file đó lên thử?
Khi thay đổi mã hàng bên sheet: "DMHangHoa", bạn qua sheet: "BangBaoGia", tại ô bất kỳ trong vùng D12:D17, bạn nhấn phím F2 rồi enter, ảnh nó sẽ tự cập nhật theo.
À, thì ra là vậy. Cảm ơn bạn nhiều nè
 

Phamvanchat

Thành viên mới
Tham gia ngày
10 Tháng mười 2018
Bài viết
18
Được thích
5
Điểm
165
Tuổi
30
Em xin phép đào mộ topic cái ạ, mong các anh chị đi trước hỗ trợ.

File (A) File gốc đã làm chỉ còn thiếu hình là hoàn thành (30 sheet là 30 của tháng)


File (B) là file hình ảnh được xuất ra từ phần mềm sắp xếp theo stt như trong file ( lưu ý: Ngày đầu tiên thì hình stt cuối cũng - cứ thế lên đến ngày cuối cùng thì stt là 1)
Em muốn làm sao để cho hình ở file B nó tự động vào các ô ở cột B của file A và tự động dãn vừa khít với cell (hiện tại em copy thủ công rất mất thời gian)

Mong nhận được sự giúp đỡ và góp ý của các anh chị

Chân thành cám ơn và chúc mọi người đầu tháng mạnh khỏe.
 

File đính kèm

Top Bottom