[已解决]求助--输入文件名，如何自动建立超级链接？

kevin_li

输入文件名，自动与应该文件对应路径文件建立超级链接.jpg 图片管理.rar (126.34 KB, 下载次数: 32)

2011-12-3 11:39 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

Zipall

2011-12-3 11:54

右击工作表标签>查看代码>粘贴下面的代码:

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     With Target.Cells(1)
   
3.         If .Column = 1 And Len(.Value) > 0 Then
   
4.             p = "E:\图片管理" & .Value & ".jpg"
   
5.             .Hyperlinks.Add .Cells(1), p, , "单击打开"
   
6.         End If
   
7.     End With
   
8. End Sub

复制代码

跳转到最佳答案楼层

Zipall

右击工作表标签>查看代码>粘贴下面的代码:

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     With Target.Cells(1)
   
3.         If .Column = 1 And Len(.Value) > 0 Then
   
4.             p = "E:\图片管理" & .Value & ".jpg"
   
5.             .Hyperlinks.Add .Cells(1), p, , "单击打开"
   
6.         End If
   
7.     End With
   
8. End Sub

复制代码

rockxiong

直接超级链接达不到你的那个效果？{:101:}

kevin_li

Zipall 发表于 2011-12-3 11:54
右击工作表标签>查看代码>粘贴下面的代码:

不行呀，能告诉我具体怎么操作吗？~~~

Zipall

kevin_li 发表于 2011-12-3 12:10
不行呀，能告诉我具体怎么操作吗？~~~

粘贴代码后有没有试着在A列输入内容?