|
发表于 2017-6-28 08:33
来自手机
|
显示全部楼层
lor染 发表于 2017-6-27 12:20
没看懂,是用了宏吗?图片那里是怎么设置的?...一个从来没用过宏之类的小白求教
用了宏,放在了“引用”工作表中具体的代码及注释
如下:
Private Sub Worksheet_Change(ByVal Target As Range) '工作表该变事件,当“引用”工作表中单元格内容有变化时,则执行
If Target.Column = 1 Then '如果A栏的单元格有变化,则执行下面的语句
Application.ScreenUpdating = False '关闭屏幕刷新
Dim s As Shape, x As Range '定义s为图像,x为单元格
For Each s In Sheet1.Shapes '再“引用”工作表中的所有图片中循环
If s.Type = 13 Then s.Delete '如果图片的类型为13时,则删除图片
Next s
For Each x In Sheet1.Range("A2", [A1048576].End(3)) '再“引用”工作表中的A2到A栏中非空单元格的区域中循环
'如果“引用”工作表中货号在“数据源”工作表的A栏中能查找到,则把“数据源”工作表的A栏中对应的图片复制到“引用”工作表中图片栏中
If Not Sheet2.[A:A].Find(x, , , 1) Is Nothing Then Sheet2.[A:A].Find(x, , , 1).Offset(, 4).Copy x.Offset(, 4)
Next x
Application.ScreenUpdating = True '启用屏幕刷新
End If
End Sub |
评分
-
3
查看全部评分
-
|