excel VBA 两工作表两个区域相同单元格相互建立超链接

两工作表两个区域相同单元格相互建立超链接

 

效果图：

 

Public Sub link()
'parkzeng
Dim str_sht As String
Dim str_sht_1 As String
Dim sht_rg As String
Dim sht_rg_1 As String


str_sht = InputBox("两工作表的两区域相互建立超链接         请输入第一个区域的工作表名称：", "工作表名称输入")
sht_rg = InputBox("两工作表的两区域相互建立超链接         请输入第一个区域，如 B4:B10", "区域输入")

str_sht_1 = InputBox("两工作表的两区域相互建立超链接         请输入第二个区域的工作表名称：", "工作表名称输入")
sht_rg_1 = InputBox("两工作表的两区域相互建立超链接         请输入第二个区域，如 C2:C5", "区域输入")

'str_sht = "Sheet1"
'str_sht_1 = "Sheet2"

'sht_rg = "