员工管理 界面跳转

1 主页添加按钮进行跳转

1-1 功能描述

[Z01主页]中点击按钮，跳转到[B01员工管理]。

1-2 完整代码

主页的工作表对象中编码。

Sub gotoB01Employee()
  Worksheets("B01员工管理").Activate
End Sub

WorkSheet.Activate用于激活工作表。

2 员工Sheet添加按钮 返回主页

2-1 功能描述

[员工管理]中，点击按钮[返回主页]，跳转到主页。

2-2 完整代码

新建模块common，代码如下

Sub returnHome()
  Worksheets("Z01主页").Activate
End Sub

如下图所示。

因为后续有多个工作表都有返回主页的按钮，都需要调用此方法，所以将此过程放在模块中进行公用。

以后其它按钮使用此功能无需再创建common模块与编码，直接指定宏即可。