☰

将单元格文本链接到同名文件

tag-icon • tag-icon microsoft-excel macros vba hyperlink
将单元格文本链接到同名文件

我在 Excel 中有一个工作簿，其中一列中我输入了图像的名称。

我想创建一个宏/vba 代码，这样当我在列中输入文件名时，例如 IMG_1234，它将自动超链接到一个文件，例如 file:///\public\Pictures\IMG_1234.JPG

然后，当有人点击该链接时，它将加载一个显示图片的新窗口。

我在宏中找到了可以回答我的问题的一些代码...但是我想知道是否可以这样做以便它自动更新而不必每次都运行宏...

Sub PictureLink()

MyPath = "\\\public\Pictures\"
StartRow = 8
EndRow = 200
MyEnd = ".JPG"

x = 0

For i = StartRow To EndRow
    If Len(Cells(i, 4).Value) > 0 Then
        MyFileName = ""
        MyFileName = Dir(MyPath & Cells(i, 4).Text & MyEnd, vbNormal + vbDirectory)

        If MyFileName <> "" Then
            x = x + 1
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 4), _
                        Address:=MyPath & Cells(i, 4).Text & MyEnd
        End If
    End If
Next i

End Sub

希望有人可以帮助我修改它以便它能够自动完成。

多谢

答案1

像这样重命名您的宏：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  ' your code here
End Sub

并使用Target访问单元格。

相关内容