THANHPHAN01
Thành viên mới
- Tham gia
- 11/7/19
- Bài viết
- 5
- Được thích
- 0
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..Nhưng phải biết về code VBA.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ó thể nhờ bạn chỉ giáo giúp mình với. Cảm ơn bạnCá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..Nhưng phải biết về code VBA.
Thanks bạn, mình làm rồi màBạn tham khảo bài viết dưới thử xem sao:
Tra cứu hình ảnh trong Excel, tại sao không?
TRA CỨU HÌNH ẢNH TRONG EXCEL, TẠI SAO KHÔNG? Người dùng Excel đã quá quen thuộc với các hàm tra cứu như VLOOKUP, INDEX và MATCH để tìm kiếm thông tin từ 1 danh sách. Nhưng làm thế nào để thực hiện việc tra cứu mà kết quả trả về là 1 hình ảnh? Điều này đòi hỏi thêm một chút sáng tạo, vì 1...www.giaiphapexcel.com
Bạn tham khảo bài viết dưới thử xem sao:
Tra cứu hình ảnh trong Excel, tại sao không?
TRA CỨU HÌNH ẢNH TRONG EXCEL, TẠI SAO KHÔNG? Người dùng Excel đã quá quen thuộc với các hàm tra cứu như VLOOKUP, INDEX và MATCH để tìm kiếm thông tin từ 1 danh sách. Nhưng làm thế nào để thực hiện việc tra cứu mà kết quả trả về là 1 hình ảnh? Điều này đòi hỏi thêm một chút sáng tạo, vì 1...www.giaiphapexcel.com
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ó thể nhờ bạn chỉ giáo giúp mình với. Cảm ơn bạn
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 saoBạn tham khảo bài viết dưới thử xem sao:
Tra cứu hình ảnh trong Excel, tại sao không?
TRA CỨU HÌNH ẢNH TRONG EXCEL, TẠI SAO KHÔNG? Người dùng Excel đã quá quen thuộc với các hàm tra cứu như VLOOKUP, INDEX và MATCH để tìm kiếm thông tin từ 1 danh sách. Nhưng làm thế nào để thực hiện việc tra cứu mà kết quả trả về là 1 hình ảnh? Điều này đòi hỏi thêm một chút sáng tạo, vì 1...www.giaiphapexcel.com
Cảm ơn rất nhiều ạ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 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
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 thử nhé.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ảm ơn rất nhiều ạ
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ạn thử nhé.
Cảm ơn bạn, khi mình đổi mã hàng thì hình vẫn không thay đổi bạn ahMì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é !
Bạn đính kèm cái file đó lên thử?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
À, thì ra là vậy. Cảm ơn bạn nhiều nè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 D1217, bạn nhấn phím F2 rồi enter, ảnh nó sẽ tự cập nhật theo.
DIỄN ĐÀN GIẢI PHÁP EXCEL