如何实现 汇总表 跟 各个分表 的互相链接跳转

szscxy

如何实现 汇总表 跟 各个分表 的互相链接跳转

结果如表所示

分表名称是 其总计行数值 在汇总表中的所对应的行列名称命名的

实际中产品比较多，一个个手比较麻烦

盼各位大虾指教

TFQWFN

期待高手了

doitbest

Sub 汇总加链接()
For Each x In Sheets(1).UsedRange.Offset(1, 1).Resize(Sheets(1).UsedRange.Rows.Count - 1, Sheets(1).UsedRange.Columns.Count - 1)
If x <> "" Then
Sheets(1).Hyperlinks.Add Anchor:=x, Address:="", SubAddress:= _
        "'" & Sheets(1).Cells(x.Row, 1) & "－－" & Sheets(1).Cells(1, x.Column) & "'!" & Sheets(Sheets(1).Cells(x.Row, 1) & "－－" & Sheets(1).Cells(1, x.Column)).[f65536].End(xlUp).Address
End If
Next
End Sub
Sub 分表加链接()
For i = 2 To Sheets.Count
Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).[f65536].End(xlUp), Address:="", SubAddress:= _
       "'" & Sheets(1).Name & "'!" & Sheets(1).Cells(Application.Match(Split(Sheets(i).Name, "－－")(0), Sheets(1).Columns(1), 0), Application.Match(Split(Sheets(i).Name, "－－")(1), Sheets(1).Rows(1), 0)).Address
Next i
End Sub
可以将两个程序合并

[ 本帖最后由 doitbest 于 2011-4-9 15:29 编辑 ]

szscxy

谢谢doitbest 大虾
学习了

相濡以沫，