请教职工EXCEL高手一个工作薄
这个应该可以满足你的要求
在目录里面输入的单元格的内容必须跟需要链接到的表的名字一样
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
上面这段代码的意思是在工作表里选择的单元格发生变化的时候就会触发下面的代码运行
If Target。 Value <> "" Then 这句的意思是，如果选中的单元格的内容不是空的就会执行下面的代码
Selection。Hyperlinks(1)。SubAddress = Target。 Value & "!A1"
这句的意思是，将选中的单元格的超链接地址设置为 选中的单元格的值后...全部
这个应该可以满足你的要求
在目录里面输入的单元格的内容必须跟需要链接到的表的名字一样
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
上面这段代码的意思是在工作表里选择的单元格发生变化的时候就会触发下面的代码运行
If Target。
Value <> "" Then 这句的意思是，如果选中的单元格的内容不是空的就会执行下面的代码
Selection。Hyperlinks(1)。SubAddress = Target。
Value & "!A1"
这句的意思是，将选中的单元格的超链接地址设置为 选中的单元格的值后面加上 !A1,例如:选中的单元格的内容是 人事档案，那么超链接的地址就是 人事档案!A1,这样就达到你想要的目的了
Else
End If
End Sub。
收起
