Excel工作表索引

我有下面的代码，工作得很好，但我正在尝试修改它，这样我就不用新的索引替换索引页的第1列，而是在Cell

C11

中启动范围。现在，新索引从索引表的单元格

A1

开始

代码如下：

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long

l = 1

    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With

上面是我希望在单元格C11和下面显示的内容…

    For Each wSheet In Worksheets
    If wSheet.Name <> Me.Name Then
        l = l + 1
            With wSheet
                .Range("A1").Name = "Start_" & wSheet.Index
                .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
                SubAddress:="Index", TextToDisplay:="Back to Index"
            End With

            Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
            SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
    End If
    Next wSheet

End Sub

工作表中每个工作表的

如果是wSheet.Name Me.Name然后
l=l+1
用wSheet
.Range（“A1”）.Name=“开始”&wSheet.Index
.Hyperlinks.Add锚定：=.Range（“A1”），地址：=“”_
子地址：=“索引”，文本显示：=“返回索引”
以
Me.Hyperlinks.Add锚点：=Me.Cells（l，1），地址：=“”_
子地址：=“开始”&wSheet.Index，TextToDisplay:=wSheet.Name
如果结束
下一页
端接头

我已经成功地修改了代码，这样每张纸上的索引链接就可以在单元格

A4

中顺利地找到，但是我不知道如何从单元格

C11

单元格（1，1）

指的是A1，

单元格（11，3）

指的是C11。

可能是这样的

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wSheet As Worksheet
Dim l As Long

    With Me
        .Columns(3).ClearContents
        .Cells(10, 3) = "INDEX"
        .Cells(10, 3).Name = "Index"
    End With
'The above is what I want to have show up in cell C11 and below...

    l = 10
    For Each wSheet In Worksheets
    If wSheet.Name <> Me.Name Then
        l = l + 1
            With wSheet
                .Range("A1").Name = "Start_" & wSheet.Index
                .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
                SubAddress:="Index", TextToDisplay:="Back to Index"
            End With

            Me.Hyperlinks.Add Anchor:=Me.Cells(l, 3), Address:="", _
            SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
    End If
    Next wSheet
End Sub

Private子工作表\u selection更改（ByVal目标作为范围）
将工作表设置为工作表
我和你一样长
和我一起
.栏目（3）.清晰内容
.单元格（10,3）=“索引”
.Cells（10,3）.Name=“索引”
以
'上面是我希望在单元格C11和下面显示的内容。。。
l=10
对于工作表中的每个工作表
如果是wSheet.Name Me.Name然后
l=l+1
用wSheet
.Range（“A1”）.Name=“开始”&wSheet.Index
.Hyperlinks.Add锚定：=.Range（“A1”），地址：=“”_
子地址：=“索引”，文本显示：=“返回索引”
以
Me.Hyperlinks.Add锚点：=Me.Cells（l，3），地址：=“”_
子地址：=“开始”&wSheet.Index，TextToDisplay:=wSheet.Name
如果结束
下一页
端接头

我不太明白，但C11是

。单元格（11,3）

。试着做一点实验。投赞成票以消除相当迂腐的反对票。这个问题既合理又周密。@AndyG手机参考资料是我不确定的一件事-谢谢。我已经用

.Cells（11,3）

替换了

.Cells（1,1）

，但仍然不太合适。。。我会继续努力的。Thanks@DougGlancy为了使用我的一张更好的照片，我不得不重新使用一个旧用户名：）这太棒了，几乎就在那里了，只是现在它显示在第3列，但仍然在第2行和以后。。。第一行没有“索引”。@Ben。。此代码在C10中显示“索引”标题。。和下面的工作表链接（我已经在excel 2007中测试过了）。。它怎么会出现在你的第二行？