Question

EXCEL 事件Worksheet_Change，2个单元格分别能根据源单元格对应各自的图片

问题描述：目前已经可以实现，在C4中输入，在S11：AB18合并的单元格里显示图片，C4清除后，图片自动删除；在这个基础上，当Q11中有文字“正”、“反”、“左”、“右”，任一个字时，自动在P12：R13合并的单元格里显示对应的图片，当Q11中没有内容时，也能自动删除图片。请问如何添加代码，越详细越好。谢谢！！！





Answer 1

需要直接在你的代码上修改，可能中途需要提示，也就是要得到你的文件才干活。
如果信得过，请【百度云盘】（一个使用百度帐号登录的可以对话和传文件的应用软件）加友私下传文件。

追问

感谢，您有QQ吗？我直接把文件发给您，这个加好友，不太会操作。

追答

点左下角的+就可以添加好友

追问

已经添加了，分享了文件，麻烦您了！

追答

由于需要在【图片资料】表中搜索图片，而不是直接从文件导入，为了简化后面的操作，编写一段代码把【图片资料】中的图片的名字规范化，例如【图片 2】修改为【SQ-09-00003正出标】，如下图：

实现这个功能的代码：

Sub 规范图片资料中的图片名称()
    Dim s As Shape, r As Range
    For Each s In Sheets("图片资料").Shapes
        Set r = s.TopLeftCell
        s.Name = r.Offset(, -2) & r.Offset(, -1)
    Next s
End Sub

现在修改【打印生产单】表Worksheet_Change事件的代码，你现在的代码功能是如果修改了C4就加载对应的图片到S11:AB18，需要再增加一个判断，如果修改C4或者Q11就按照C4+Q11的数值去复制【图片资料】中的图片，增加代码为：

    If Target.Address = "$Q$11" Or Target.Address = "$C$4" Then '修改C4、Q11的时候调整P12的图片
        Sheets("图片资料").Pictures(Range("c4") & Range("q11")).Copy
        Range("p12").Select
        Selection.Paste
    End If

你原来的代码我给你规范了一下，修改后的表格代码如下图：

追问

原先的图片，C4中输入显示的图片（S11：AB18单元格显示），是以C4中输入的数字为名称保存的，而Q11是根据C4输入的数字，由vlookup带出来的文字“正出标”或“反出标”等，以“正出标”反出标”为名保存E:\CI\目录。要在P12：R13单元格里显示出来。C4中输入的数字，在Q11是正出标，显示正出标的图，如果Q11是反出标，则显示反出标的图。这是C4中的物料代码属性所决定，感谢您！