VBA 设置超链接

Sub setLinks()

Dim r As Range

Dim a As Range

Dim s As String

Set a = Range("A1:A5")

For Each r In a

rSelect

s = rValue

If s <> "" Then

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

s & "!A1", TextToDisplay:=s

End If

Next r

End Sub

只要把上面方法里的Set a = Range("A1:A5")里的范围改成你“目录”中的A6-A13,A133-A139……这些内容所在单元格的范围就行了。

Sub 表名()

    For i = 1 To SheetsCount

        Cells(i, 1) = Sheets(i)Name

    Next

End Sub

我拿2003来说吧，你右击单元格后有个“超链接”选项，选了后会d出一个对话框。对话框的左边有4个项，第一个是链接到其他Excel表的，第二个是链接到正在用的表的任何工作薄的单元格。你试下看，很简单的

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

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

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

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

check_path = ">

Sub ABC()

Dim Sph

Sph = Dir("D:\data\" & Cells(1, 1) & "", 16)

If Sph = "" Then Exit Sub

Sph = "D:\data\" & Sph & "\"

Dir Sph, 16

Dir

Do

co = co + 1

sph1 = Dir()

If sph1 = "" Then Exit Do

Cells(2, co) = sph1

ActiveSheetHyperlinksAdd Cells(2, co), Sph & sph1

Loop

For i = 1 To co - 1

If Dir(Sph & Cells(2, i) & "\") <> "" Then

ro = 3

Do

fi = Dir()

If fi = "" Then Exit Do

Cells(ro, i) = fi

ActiveSheetHyperlinksAdd Cells(ro, i), Sph & Cells(2, i) & "\" & fi

ro = ro + 1

Loop

End If

Next

End Sub

以上代码可满足你的要求。有问题请追问

以上就是关于VBA 设置超链接全部的内容，包括:VBA 设置超链接、求一个vba代码，提取所有的工作表名，超链接、请问VBA如何实现单元格的超链接方式等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！