Question

excel 如何返回首页

在excel中，有好几个worksheet，可以在其他worksheet里添加一个按钮，只要按下这个按钮就可以回到首页的worksheet吗？ 不用超链接和CTR HOME. 谢谢了

Answer 1

1、首先打开需要编辑的Excel表格，进入到表格的首页中。

2、然后点击打开主菜单栏中的“开发工具”，在弹出来的工具栏中，打开控件中的“查看代码”选项。

3、然后在打开的VB代码编辑窗口中插入一个新模块，将以下代码复制到模块中，点击运行

Sub Button()

Dim MySht As Worksheet, MyButton As Button, ShtName As String

ShtName = "目录"'如果不是目录，则改为其他名称

For Each MySht In Worksheets

With MySht

If .Name <> ShtName Then

.Shapes(ShtName).Delete '

Set MyButton = .Buttons.Add(50, 10, 60, 30)

With MyButton

.Name = ShtName '对按钮命名

.Characters.Text = "返回" & ShtName '指定按钮的标题

.OnAction = "backto" '指定按钮对应的宏命令

End With

End If

End With

Next

Set MyButton = Nothing

End Sub

Sub backto()

Worksheets("目录").Activate

[a1].Select

End Sub

4、然后回到表格编辑页面中，在其他工作簿中点击“目录”就会自动返回首页了。

Answer 2

方法：

  1、按键盘的Ctrl+Shift+方向上键快速定位到首行。

  2、按键盘的Ctrl+Shift+方向左键快速定位到首列。

Answer 3

录制一个宏。
选择其他工作表，工具－宏－录制新宏，给宏起个名字（或用默认的也可），确定。
选择第1个工作表，即你说的“首页”，停止录制宏。
返回原来的工作表，视图－工具栏－窗体，打开“窗体”工具栏，选择上面的按钮，在工作区画出一矩形按钮，此时会弹出“指定宏”对话框，选择刚才录制的宏，确定。
此时按钮就可用了。
如果还有另外的工作表想用这个按钮，就在按钮上右键，复制这个按钮，粘贴到相应的工作表里即可。
实际上，宏的代码只需一句
Sheets("第1个工作表的表名").Select

Answer 4

Private Sub CommandButton1_Click()
Sheets("表名").Select
ActiveWindow.SmallScroll Down:=-36
ActiveWindow.ScrollRow = 1
End Sub

就可以返回你需要的表的最上端了~~