EXCEL宏代码 常量改变量代码

763752858

  Range("D2").Select
  Application.Goto Reference:="Sheet2!R1C3"

问题:这个宏的作用是打开D2单元格内所对应的工作表超链接
D2是Sheet2的超链接，经常会改名
"Sheet2!R1C3"怎么把这个写成变量让它等于D2显示的工作表名字

763752858

求大佬帮助

任浪漫

763752858 发表于 2019-10-11 13:35
求大佬帮助

下面的代码是
首先跳转到活动工作表的D2单元格
然后跳转到活动工作表的“C1”单元格，
用一个字符串变量来连接活动工作表名称与后面的字符串
不知是不是你想要的结果

1. Dim Str_Link As String
   
2. Range("D2").Select
   
3. Str_Link = "'" & ActiveSheet.Name & "'" & "!R1C3"
   
4. Application.Goto Reference:=Str_Link

复制代码

763752858

任浪漫 发表于 2019-10-11 13:47
下面的代码是
首先跳转到活动工作表的D2单元格
然后跳转到活动工作表的“C1”单元格，

感谢帮助,怪我没说清楚
D2单元格是在Sheet1里的.
D2单元格里的文本是[Sheet2]←已经做好了指向Sheet2的超链接
然后这个宏就是要选中D2单元格,根据单元格内的超链接跳转到其他工作表
这个代码怎么写,谢谢

wtg321

d2里直接写：sheet2
Application.Goto Reference:=Range("D2") & "!R1C3"