Question

在excel表中输入编号自动生成对应的图片，已有对应的编号和图片列表。详情见下图

我需要在另一张excel中输入编码可以可以生产已有的一张excel中的对应的编码，编码是一样的，如，已有
现在就是要在另一张表格里输入编码能不能自动生成对应的图片？，如下表

请大师和高手赐教，谢谢





Answer 1

刚有现成的代码啊
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 And Target.Row > 1 Then
Dim fso, shp As Object
Dim rgTL As Range
Dim pname As String
pname = "d:\pic\" & Range("A" & Target.Row).Value & ".jpg"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(pname) Then
For Each shp In ActiveSheet.Shapes
Set rgTL = shp.TopLeftCell
If rgTL.Row = Target.Row Then shp.Delete
Next
Set rgTL = Range("C" & Target.Row)
Set shp = ActiveSheet.Pictures.Insert(pname)
shp.ShapeRange.Height = rgTL.Height
shp.Left = (rgTL.Width - shp.Width) / 2 + rgTL.Left
shp.Top = (rgTL.Height - shp.Height) / 2 + rgTL.Top
Else
MsgBox "不存在此名称的图片！"
GoTo e
End If
End If
e:
Set fso = Nothing
End Sub

追问

亲，我看不懂你说的是什么，可以用图文演示吗？谢谢！！

追答

这段意思是从固定目录提取相应文件名的图片到表里！

你要的结果像附件这样：

这是VBA代码，不是公式、引用、链接、透视表等，表格本身并无“痕迹”

Answer 2

超链接可以运用得到，但是会跳转到图片的页面