EXCEL单元格自动匹配同文件名图片，实现超链接，求助高手。

[liqijian]

我想在EXCEL表中的某一列，输入一个数字编号，如“023026”，鼠标点击后可以超链接至EXCEL同文件夹下的名为023026的图片文件，并打开。请问类似的功能如何实现。
或者：用什么办法在点击EXCEL某一个单元格时，能弹出某个指定的图片。

[断肠人在刷牙1]

可以研究一下Hyperlink函数

[断肠人在刷牙1]

首先，假设你的“023026”写在A1单元格，并且假设你的图片均为.jpg格式。
那你在B1单元格输入以下公式，=HYPERLINK(LEFT(CELL("filename",$A$1),FIND("[",CELL("filename",$A$1))-1)&A1&".jpg")，就会自动生成一个指向本EXCEL所在文件夹下的“023026.jpg”文件的链接。
然后公式下拉。

[weixin_44814225]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '设置工作表单击事件
If Target.Column = 3 And Target <> "" Then '工作表第3列单击且单元格数据不为空时运行
Dim S As Shape
For Each S In ActiveSheet.Shapes
If S.Name = "P1" Then S.Delete
Next
ActiveSheet.Pictures.Insert(Target.Text & ".BMP").Select'插入BMP位图

Selection.Name = "P1"
Selection.Left = Target.Left + Target.Width

End If
End Sub