运行以下代码
将会出现以下对话框
然后,你输入一个地址,以后点击A列最后一个单元格,将会跳转到对应的地址,从而实现链接的效果。
解释一下以上代码:
Dim mygoto As String 声明数据类型
mygoto = InputBox("请输入地址") 将用户输入的地址存入变量
If mygoto = "" Then Exit Sub 如果不输入就退出
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets(1).Range("a1048576").End(xlUp).Offset(1), Address:="", SubAddress:= _
mygoto, ScreenTip:="测试", TextToDisplay:="将会跳转"
添加超链接
Anchor 也就是哪个单元格需要做超链接,这里用offset可以永远指定最后一个单元格。
Address: 指定网址
Subaddress: 指定本文档位置,这里变量mygoto,用户输入a100,指定a100
Screentip: 提示文字
Texttodisplay: 显示的文字
子曰:用之则行,不用则藏。
意思是说,如果你用我的这些建议,就马上行动,知行合一,如果你不用,就赶紧收藏,以绝后患。
领取专属 10元无门槛券
私享最新 技术干货