急 ！如何将一个EXCEL表格的图片 引用给到另外一个表格？

barrybiz

因为工作需要，需要做很多数据的填写。 例如 产品编码 10001 ，对应产品的一些 尺寸信息， 还有图片。对于数据信息，可以直接VLOOKUP 来引用， 但是图片就引用不了，请问要怎么设置公式 才能够在将一个EXCEL 表格的图片引用到另外一个表格。

这个是原始表格，


我另外建立一个表格，在输入产品编号10001 的时候，左边图片也可以对应到 第一个表格的图片。 （数值可以通过VLOOKUP，图片不知道如何来弄）

jiaxinl

可参考这里http://club.excelhome.net/forum. ... ead&tid=1354091

jiaxinl

可参考这里

barrybiz

jiaxinl 发表于 2017-7-13 21:25
可参考这里

你好 ， 我看了你的帖子，就是我需要的，能加下你的 QQ 么， 拜托了 我不是很懂这个怎么做到的。

jiaxinl

barrybiz 发表于 2017-7-15 17:36
你好 ， 我看了你的帖子，就是我需要的，能加下你的 QQ 么， 拜托了 我不是很懂这个怎么做到的。

输入产品编号  返回图片及产品型号    返回产品型号没有使用公式

以下是代码及注释：
Private Sub Worksheet_Change(ByVal Target As Range)  '工作表改变事件，当“表格2”工作表中单元格内容有变化时，则执行
    If Target.Column = 2 Then '如果产品编号B栏的单元格有变化,则执行下面的语句
    Application.ScreenUpdating = False  '关闭屏幕刷新
    Dim s As Shape, x As Range  '定义s为图像,x为单元格
    For Each s In Sheet2.Shapes  '再“表格2”工作表中的所有图片中循环
        If s.Type = msoPicture Then s.Delete '如果图片的类型为msoPicture时，则删除图片
    Next s
    Sheet2.Range("C:C").ClearContents  '清空 “表格2”工作表中的产品型号C栏中单元格的内容
    For Each x In Sheet2.Range("B1", [B1048576].End(3))  '再“表格1”工作表中的产品编号B1到B栏中非空单元格的区域中循环
        If Not Sheet1.[B:B].Find(x, , , 1) Is Nothing Then '如果“表格2”工作表中产品编号在“表格1”工作表的B栏中能查找到
            Sheet1.[B:B].Find(x, , , 1).Offset(, -1).Copy x.Offset(, -1) '复制图片 则把“表格1”工作表的B栏中对应的图片复制到“表格2”工作表中图片栏中
            Sheet1.[B:B].Find(x, , , 1).Offset(, 1).Copy x.Offset(, 1)   '复制产品规格  则把“表格1”工作表的B栏中对应的产品规格复制到“表格2”工作表中产品规格栏中
        End If
    Next x
    Application.ScreenUpdating = True  '启用屏幕刷新
    End If
End Sub

barrybiz

还是不行， 我下载了你给我的文件 但是没什么用啊， 那个能不能加下我好友， 我这边权限不到，加不到你。 能给个联系方式么 ？ QQ 啊 什么的都可以 谢谢 急啊

barrybiz

jiaxinl 发表于 2017-7-16 08:14
输入产品编号  返回图片及产品型号    返回产品型号没有使用公式

以下是代码及注释：

哥们， 我Q 1815910584， 能加下么

stone0687

谢谢，很实用

ryan7189

jiaxinl 发表于 2017-7-16 08:14
输入产品编号  返回图片及产品型号    返回产品型号没有使用公式

以下是代码及注释：

thank you very much

momo0202

怎个代码怎么用啊，正是我需要的，可是不会用啊