[已解决]求助...sheet翻页...

siyuzai · 发表于 2011-4-20 13:10

如何能够sheet1到sheet1000命令翻页...
比如说我想看sheet498...怎么能够快速找到此页?

最佳答案

lisachen

2011-4-20 13:37

liuts · 发表于 2011-4-20 13:12

设置超链接

siyuzai · 发表于 2011-4-20 13:14

能详细点?我新手...{:091:}

siyuzai · 发表于 2011-4-20 13:14

回复 liuts 的帖子

能详细点?我新手...{:091:}

siyuzai · 发表于 2011-4-20 13:35

高手请赐教...在线等{:191:}

lisachen · 发表于 2011-4-20 13:37

JLxiangwei · 发表于 2011-4-20 13:48

回复 siyuzai 的帖子

Sub AutoGener()
Dim nIndex As Integer
Dim oRange As Range
For nIndex = 2 To Sheets.Count
Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name
Next
End Sub

复制代码

Book1.rar (11.05 KB, 下载次数: 4)

siyuzai · 发表于 2011-4-20 13:48

回复 lisachen 的帖子

谢谢了...真相如此简单{:301:}

Kratos · 发表于 2011-4-20 13:49

Sub FindSht()
Dim n As Integer
n = Sheets(1).Range("A1")
Sheets("Sheet" & n).Activate
End Sub

Kratos · 发表于 2011-4-20 13:51

如果你是新手的话，怕你弄不来，简单vba给你，方便查找了，只要在第一张表的A1单元格里面输入你想要sheet的编号就好了。（按alt+F11打开vba,选择插入——模块）

		自动登录	找回密码
密码			注册