如何用vba设置超链接

标签实现超链接，如：

Sheet1.Select

Range("A1").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

单元格实现超链接，如：

Sheet1.Range("A1") = "http://www.nkmyjy.com"

Sheet1.Select

Range("A1").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

图片超链接，如：

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _

    ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ 

    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long ) As Long

Private Sub Image1_Click()

    ShellExecute Application.hwnd, "open", "D:\1.jpg", vbNullString, vbNullString, 1

End Sub

首先要在此工作簿中，建立一个名叫“首页”的工作表，然后执行下面代码即可。

Sub 链接()

Sheets("首页").Select

'显示所有工作表

For i = 1 To Sheets.Count

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

Next

'超链接

For i = 1 To Sheets.Count

t = Cells(i, 1)

Cells(i, 1).Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=t &"!A1", ScreenTip:="进入", TextToDisplay:=t

Next

End Sub

Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。

超级链接在本质上属于一个网页的一部分，它是一种允许我们同其他网页或站点之间进行连接的元素。各个网页链接在一起后，才能真正构成一个网站。所谓的超链接是指从一个网页指向一个目标的连接关系，这个目标可以是另一个网页，也可以是相同网页上的不同位置，还可以是一个图片，一个电子邮件地址，一个文件，甚至是一个应用程序。而在一个网页中用来超链接的对象，可以是一段文本或者是一个图片。当浏览者单击已经链接的文字或图片后，链接目标将显示在浏览器上，并且根据目标的类型来打开或运行。

---