作者:乔山办公网日期:
返回目录:excel表格制作
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '鼠标双击事件636f7079e799bee5baa6365
Dim Name As String
If Target.Column = 1 And Target.Row >= 1 Then
Name = Range(Selection.Address).Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="铝圈贴花\" & Name, TextToDisplay:=Name
End If
If Target.Column = 2 And Target.Row >= 1 Then
Dim NameZ As String
kehu = Cells(Target.Row, Target.Column - 1).Value
Name = Range(Selection.Address).Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="铝圈贴花\" & kehu & "\" & Name & ".jpg", TextToDisplay:=Name
End If
End Sub
dim i as range‘是复设置制超联的单元格知
dim h as string‘是设置超联的单元格显示的内容道
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _SubAddress:=i, TextToDisplay:=h
首先百要在此工作簿中,建立一个名叫“度首页”的工作表,然后执行下面代码即版可。
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
按照以下代码,可来以给F10这个单元格追加一个自指向新浪网的超链接。zd
Range("F10").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://.cn/", TextToDisplay:="访问新浪网"
Range("F10").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True