excel 表格通过按钮选择调用其他工作表？

Question

我试了一下，提示超越下界，
我不是很懂的，很得请你调试，我qq859097171，我明天和你聊，我在追加50分，就这么多了。。。

Answer 1

代码：
Private Sub CommandButton1_Click()
Dim i As Integer
i = Application.WorksheetFunction.CountA(Worksheets("sheet1").Range("A:A"))
Dim number
number = i
Select Case number
Case 10
Worksheets("sheet2").Select
Case 15
Worksheets("sheet3").Select
End Select
End Sub

——————————————————————————————
假如你的数据都在sheet1的A列，按钮名称为CommandButton1_Click，要跳转的工作表名分别为sheet2和sheet3。

可以通过Excel的“窗体”中，建立一个按钮来完成，然后在设计模式下双击这个按钮，会打开VBA编辑器，把上述代码复制进去即可。
要详细了解各语句含义，请再交流。
代码中，sheet1等名称可根据你的工作表更改，若工作表名称不明确，可以用“ActiveSheet.Next.Select”来选中下一工作表，效果等同于ctrl+pagedown组合键。

Answer 2

超链接多省事呀。
先建一个空表，命名为Index，把以下代码放在sheet?(Index) 下运行一下。

Sub ListAllSheet()
Dim FS As Worksheet
Dim I As Integer
Dim myHyper

Sub ListAllSheet()
Dim FS As Worksheet
Dim I As Integer
Dim myHyper

I = 2
For Each FS In ActiveWorkbook.Worksheets
If Not FS Is Me Then
Me.Range("B" & I).Value = FS.Name
Set myHyper = Me.Hyperlinks.Add(anchor:=Me.Range("B" & I), Address:="")
myHyper.SubAddress = "'" & FS.Name & "'" & "!A1"
I = I + 1
End If
Next
End Sub

Answer 3

可以用制作工作表目录，直接生成在第一个表的位置，很方便
Sub 制作工作表目录()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim i As Integer
i = 2

On Error GoTo err1

cont:
Set ws1 = Worksheets("工作表目录") '获取目录工作表的引用
With ws1
.Cells.Clear '清除工作表中的内容
.Cells(1, 1) = "工作表目录"

For Each ws2 In ActiveWorkbook.Sheets
If ws2.Name <> .Name Then '添加目录超链接
.Hyperlinks.Add anchor:=.Cells(i, 1), _
Address:="", SubAddress:=ws2.Name & "!a1", _
TextToDisplay:=ws2.Name
i = i + 1
End If
Next
.Activate
End With
Exit Sub
err1:
Set ws1 = ActiveWorkbook.Worksheets.Add(before:=Sheets(1)) '创建工作表
ws1.Name = "工作表目录"
GoTo cont
End Sub