返回目录:excel表格制作
你当 EXCEL 是什么呀,操作系统?
假设你的图片文件夹是在D盘的img下面,图片格式是jpg
选定A2单元格:
= HYPERLINK("[D:\img\" & A2 & ".jpg]",A2)
然后直接向下拖。
如果嫌拖得太累了,那就用vba吧。
如下:
假设这些数据放在第一个sheet里面
在sheet1(右下第一个标签)右键->查看代码
双击这个(如图)
添加以下代码:完事后要重新打开下表格。
Private Sub Workbook_Open()
Sheet1.Activate
Dim i As Integer
Dim j As Integer
For i = 2 To 100 Step 1 <----可以修e69da5e6ba907a686964616f362改100,末行号(箭头后面的要去掉哈,粘贴进入时,切记切记。下同)
For j = 1 To 100 Step 1 <------可以修改100,末列号
Dim name As String
name = Trim(Sheet1.Cells(i, j).Text)
If name = "" Then
Else
Sheet1.Cells(i, j) = "D:\img\" & name & ".jpg"
Sheet1.Cells(i, j).Hyperlinks.Add Anchor:=Cells(i, j), Address:="D:\img\" & name & ".jpg"
End If
Next
Next
End Sub
方法/步骤
打开Excel文件,默认有三个工作表
切换到百Sheet2工作表下,然后插入一张图片,如"元宵节快乐"
切换到Sheet1工作表下,选中“查看图片度”单元格,右键在下拉回列表中选择"超链接"
打开超链接对话框,点击答本文档中的位置,然后选择其中一个单元格引用,点击确定按钮,关闭对话框
在工作表中“查看图片”单元格的查看图片则变成可点击的链接
点击"查看图片",则会跳转到当前文件的另外一个工作表中
7
如果想回到文件首页,点击第一个工作表Sheet1即可
“打开图片文件夹”与“插入图片”是两回事呀,你究竟想干什么?