作者：乔山办公网日期：
返回目录：excel表格制作
alt+f11 以下百代度码知放道在专sheet1内属
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r
r = Target.Row
If Sheet2.Range("b10") = "" Then
Sheet2.Range("b10") = Cells(r, 1)
Else
Sheet2.Cells(Sheet2.Range("b65536").End(3).Row + 1, 2) = Cells(r, 1)
End If
End Sub
在百Sheet1工作表标签度处右键-查看代码知，然后道将以下内代码拷贝进来容
Private Sub Worksheet_Activate()
Application.EnableEvents = False
Sheet2.Activate
Application.EnableEvents = True
end sub
1、启动Excel程序，打开一个工作表。
2、在工作表是左上角有一个快速访问工具栏，我们可以把打印按钮copy添加到此处，这样就可以直接单击按钮进入打印状态。
3、单击快速访问工具栏右侧的展开列表按钮。
4、在弹出的下拉菜单中百将“快速打印”功能选中。
5、则会在快速访问工具栏中添加一个打印机的图标度。
6、如果要打印工作表，直接单击这个图标即可将当前工作表发送到打印机中，也可以将这个图标发送到Sheet2中，实现快速打印。
1、打开我们的目标表格道，进入到首页，建议将第一个SHEET重命名成目录，其他的sheet也命名成容易理解的名称，这样方便后期查找和编辑。
2、重命名完成内后，返回到第一个sheet中，为了更能清晰说明问题，我们选择以图形方式来完成，依次点击插入>>>形状>>>五边形，如下图所示。容
3、选择一个合适的形状类型格式颜色等，并加入对应的名称，所有的sheet都统一操作，如下图。
4、接着鼠标右键第一个图形，在右键菜单中选择超链接。
5、然后打开超链接的对话框，在左侧链接到选项中选择文档中的位置，也就是第二个选项。
6、接下来会打开当前表格中的所有sheet名称，选择要引用到的超链接sheet，比如此时选择名称为小黑的sheet，点击右下角的确定。
7、鼠标移动到添加超链接的图形上，会显示超链接位置，包括sheet名称已经目标单元格。