一、VBA简介——添加宏快捷按钮

点击开始——选项——快速访问工具栏——从下列位置选择命令（宏）——选择需要添加的”宏“——添加——确定。

鼠标左键点击快速访问工具栏的快捷键即可执行相应的宏命令。

1）点击：开发工具——控制——插入——表单控制（按钮（窗体控制键））

2）在表格中适当位置拖动，绘制快捷按钮；

3）选取按钮对应的宏，点击确定；

4）左键单击快捷按钮，修改快捷按钮名称；

5）单击宏，运行宏命令。

以下代码可以实现输入工作表名称，按回车或点击确定后跳转至当前工作簿的该工作表 Sub 跳转()Dim sn As StringDim x As Integersn = InputBox("请输入要跳转到的工作表的名字")For i = 1 To Sheets.CountIf Sheets(i).Name = sn ThenSheets(i).Activatex = 1End IfNext iIf x = 0 ThenMsgBox ("当前工作簿中没有以" &sn &"命名的工作表")End IfEnd Sub已上传附件，点击按钮即可验证

假如添加的控件按钮的名字是command1

代码如下：

private sub command1_click()

dim i as integer

for i=1 to 10

if selection.count=1 then

activecell.offset(1,0).select

end if

next i

end sub

---