菜鸟提问，如果在excel中使用VBA实现如下功能-关于超链接

这是一个工作表事件，请添加到对应工作表。

注：工作表名称，请只写在A列

Private Sub Worksheet_Change(ByVal Target As Range)

If TargetColumn = 1 Then

    Dim aa As Worksheet

    For Each aa In Worksheets

        If aaName = TargetValue Then

            TargetHyperlinksAdd Anchor:=Selection, Address:="", SubAddress:= _

        TargetValue & "!A1", TextToDisplay:=TargetValue

        End If

    Next

End If

End Sub

首先, 你选择了一个货号的话, 是不是在下面网站的文本框里就会出现对应的网址

如果是的话, 你想在这个窗体里面显示这个网址对应的吗

如果是这样的话, 我觉得, 直接用代码控制image控件的地址就好了

如果是想在IE里面打开的话, 可以参考下面的代码:

check_path = ">

Sub test()

Dim filePath As String

Dim targetRange As Range

Set targetRange = Intersect(ActiveSheetRange("a:a,c:c"), ActiveSheetUsedRange)

For Each cl In targetRange

filePath = "F:\桌面\新建文件夹" '输入文件夹路径

filePath = filePath & "\" & clText & "" 

If Dir(filePath) = "" Then

clOffset(0, 1) = "未找到"

Else

clOffset(0, 1) = cl

ActiveSheetHyperlinksAdd anchor:=clOffset(0, 1), Address:=filePath

End If

Next

End Sub

运行前先备份

以上就是关于菜鸟提问，如果在excel中使用VBA实现如下功能-关于超链接全部的内容，包括:菜鸟提问，如果在excel中使用VBA实现如下功能-关于超链接、VBA中怎么打开一个超链接 链接不是固定的，请大虾指教！、EXCEL VBA 实现 同一个文件下图片对应超链接等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！