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

最新推荐文章于 2024-10-19 11:27:17 发布

zengxu_!!!

最新推荐文章于 2024-10-19 11:27:17 发布

阅读量1.5k

点赞数 1

分类专栏： VBA 文章标签： zengxu vba 超链接两区域两表

本文链接：https://blog.csdn.net/Parkzeng/article/details/103193917

版权

使用VBA在Excel中实现两个工作表的特定区域，相同单元格之间互相建立超链接，以增强数据交互和导航功能。

摘要由CSDN通过智能技术生成

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

效果图：

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 = "A1:A3"
'sht_rg_1 = "A1:A5"


Dim sht As Worksheet
Dim sht_1 As Worksheet
Set sht = ThisWork