[已解决][求助]请问,如何在电子表格中,将工作表进行链接?(

凡妇俗女

请问,如何在电子表格中,将工作表进行链接?(实现一张工作表与后面的工作表链接)

[此贴子已经被jx1680000于2008-12-29 10:15:45编辑过]

最佳答案

月排行榜 / 总排行榜

jx1680000

2008-12-29 10:13

普通的，CTRL+K建立超链就好

跳转到最佳答案楼层

jx1680000

普通的，CTRL+K建立超链就好

zjxia889

Sub Ŀ¼Á´½Ó() '¹¤×÷±íÁ´½Ó
Dim R%, i%, f As Object
    Application.ScreenUpdating = False
    On Error Resume Next
    If InStr(1, ActiveSheet.Name, "Ŀ¼") = 0 Then 'Èç¹ûµ±Ç°²»ÊÇĿ¼¹¤×÷±íÔòÔö¼Ó
        Sheets.Add
        ActiveSheet.Name = "Ŀ¼"
        Else
        Set f = Columns(1).Find("*") '¼ì²éAÁÐÊÇ·ñÓÐÊý¾Ý,ÈçÓÐÔòÔö¼ÓÒ»ÁÐ
        If Not f Is Nothing Then
            Columns(1).Insert
        End If
    End If
    For i = 1 To Sheets.Count
        R = R + 1
        Cells(R, 1) = Sheets(i).Name
        ActiveSheet.Hyperlinks.Add Cells(R, 1), "#'" & Sheets(i).Name & "'!A1", ScreenTip:=Sheets(i).Name
    Next i
    Application.ScreenUpdating = True
End Sub

[此贴子已经被作者于2008-12-29 10:14:37编辑过]

zjxia889

为什么有中文时,都会乱码,其实就是后面FOR开始几句有用,其实主要是生成个目录表

七色云彩

插入/超链接/书签

风雨云

=HYPERLINK（）

这函数也可以的……

凡妇俗女

谢谢，我先试一试。

 

[em34]

凡妇俗女

谢谢

凡妇俗女

谢谢.