根据用户输入跳转到指定单元格

运行以下代码

Private Sub CommandButton1_Click()Dim mygoto As Stringmygoto = InputBox("请输入地址")If mygoto = "" Then Exit SubActiveSheet.Hyperlinks.Add Anchor:=Worksheets(1).Range("a1048576").End(xlUp).Offset(1), Address:="", SubAddress:= _mygoto, ScreenTip:="测试", TextToDisplay:="将会跳转"End Sub

解释一下以上代码：

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: 显示的文字

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。