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

Liên hệ QC

THANHPHAN01

Thành viên mới
Tham gia
11/7/19
Bài viết
5
Được thích
0
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

  • File test.xls
    94.5 KB · Đọc: 38
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:

 
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.
 
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:

 
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 ạ
 
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

  • InsertPicture_Qmr.xlsb
    144 KB · Đọc: 125
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
 
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.
 
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

  • A.xlsx
    122.5 KB · Đọc: 17
  • B.xls
    578.5 KB · Đọc: 14
Web KT
Back
Top Bottom