EXCEL VBA行政与人力资源管理应用案例详解 第14章

EXCEL VBA行政与人力资源管理应用案例详解

CHAPTER

其他模块的设计

14-1 帮助模块的设计

14-3 退出系统模块的设计

14-2 系统菜单转换模块的设计

EXCEL VBA行政与人力资源管理应用案例详解

行政与人力资源管理应用案例详解

人力资源管理系统的主要模块已经基本介绍完毕，但系统还有几个辅助模块，包括帮助模块、系统菜单转换模块和退出系统模块。本章将介绍这几个模块的设计方法。 14-1 帮助模块的设计

任何一个应用系统，都应该有自己的帮助文件子模块，便于用户遇到问题时能够获得联机帮助。帮助文件可以设计成多种格式，例如，用Word编写帮助文件，将帮助信息制作成PowerPoint幻灯片，将帮助文件制作成网页格式文件等。读者可以根据自己的喜好，来制作系统的帮助文件。

这里仅介绍如何在Excel系统中打开Word帮助文件“系统使用说明”。关于如何编写Word帮助文件的具体内容，不在本书的叙述范围之内。

对自定义菜单【帮助】中的【系统使用说明】菜单命令和自定义工具栏【帮助】中的

【系统使用说明】命令按钮编写相同的宏代码，以便单击该命令时，打开系统使用说明文件：

Public Sub系统使用说明()

Dim wdapp As Object,wddoc As Object

Set wdapp = CreateObject("word.application")

Set wddoc = wdapp.documents.Open(ThisWorkbook.Path & _

"\《人力资源管理系统》使用指南.doc")

wdapp.Visible = True

End Sub

这个宏保存在一个名为“帮助文件程序”的模块中。

系统帮助文件是一个名为“《人力资源管理系统》使用指南.doc”的Word文档，它保存在系统所在的文件夹中。

自定义菜单【帮助】中还可以设计一个【关于】的菜单命令，单击该命令，系统将打开一个窗体，显示系统的一些基本信息，如系统版本、系统制作者、简要说明文字等。感兴趣的读者可自行完成这个窗体的设计。

14-2 系统菜单转换模块的设计

在启动人力资源管理系统后，系统将隐藏Excel系统菜单和工具栏，替代的是人力资源管理系统自己的菜单系统。为了能够充分利用Excel系统菜单和工具栏所提供的各种工具，可以设计一个系统菜单转换模块。

系统菜单转换模块由“恢复Excel系统菜单”子模块和“恢复人力资源管理系统菜单”两个子模块组成。“恢复Excel系统菜单”子模块的功能是关闭人力资源管理系统的自定义菜单和自定义工具栏，恢复Excel系统菜单和工具栏；“恢复人力资源管理系统菜单” 子模块的功能是关闭Excel系统菜单和工具栏，恢复人力资源管理系统的自定义菜单和自定义工具栏。这两个子模块的功能是分别通过人力资源管理系统自定义菜单【系统菜单转换】中的两个菜单命令【恢复Excel系统菜单】和【恢复<人力资源管理系统〉菜单】完成的，也可以通过单击人力资源管理系统自定义命令按钮【恢复Excel系统菜单】（或【恢复人力02

EXCEL VBA行政与人力资源管理应用案例详解

资源菜单】）完成。

人力资源管理系统自定义菜单【系统菜单转换】中的两个菜单命令【恢复Excel系统菜单】和【恢复<人力资源管理系统〉菜单】的宏代码分别如下所示：

Public Sub 恢复Excel系统菜单()

On Error Resume Next

'删除人力资源管理系统的自定义菜单和自定义工具栏

MenuBars("人力资源管理").Delete

CommandBars("Worksheet Menu Bar").Controls("系统菜单转换").Delete

http://doc.guandang.netmandBars("系统工具栏").Delete

'在Excel菜单栏最右边创建一个自定义菜单项,并为其添加两个命令

Set myMenu = CommandBars("Worksheet Menu Bar").Controls _

.Add(Type:=msoControlPopup,Before:=11)

myMenu.Caption = "系统菜单转换"

With myMenu.Controls.Add(Type:=msoControlButton,Before:=1)

.Caption = "恢复<人力资源管理系统>菜单"

.OnAction = "恢复人力资源管理系统菜单"

End With

With myMenu.Controls.Add(Type:=msoControlButton,Before:=2)

.Caption = "恢复Excel系统菜单"

.OnAction = "恢复Excel系统菜单"

End With

'设置工作簿窗口选项

With Application

.DisplayFormulaBar = True '显示公式编辑栏

.DisplayStatusBar = True '显示状态栏

.CommandBars("Formatting").Visible = True '显示格式工具栏

.CommandBars("Standard").Visible = True '显示标准工具栏

.Caption = "" '恢复Microsoft Excel主窗口标题栏的默认名称

End With

With ActiveWindow

.DisplayHeadings = True '显示行列标题

.DisplayOutline = True '显示分级符号

.DisplayZeros = True '显示零值

.DisplayWorkbookTabs = True '显示工作表标签

.DisplayHorizontalScrollBar = True '显示水平滚动条

.DisplayVerticalScrollBar = True '显示垂直滚动条

End With

Call 自定义工具栏重置

End Sub

Public Sub 恢复人力资源管理系统菜单()

On Error Resume Next

Call 自定义菜单 '创建人力资源管理系统自定义菜单 Call 自定义工具栏重置 '创建人力资源管理系统自定义工具栏 '设置工作簿窗口选项

With Application

.DisplayFormulaBar = False '不显示公式编辑栏

.DisplayStatusBar = False '不显示状态栏

.CommandBars("Formatting").Visible = False '不显示格式工具栏

.CommandBars("Standard").Visible = False '不显示标准工具栏

'设置在Microsoft Excel主窗口标题栏中的名称

.Caption = "北京人和管理信息技术有限公司"

403

EXCEL VBA行政与人力资源管理应用案例详解

行政与人力资源管理应用案例详解

End With

With ActiveWindow

.DisplayHeadings = False '不显示行列标题

.DisplayOutline = False '不显示分级符号

.DisplayZeros = False '不显示零值

.DisplayWorkbookTabs = False '不显示工作表标签

.DisplayHorizontalScrollBar = False '不显示水平滚动条

.DisplayVerticalScrollBar = False '不显示垂直滚动条

End With

'隐藏工作表

Sheets("用户名密码").Visible = xlVeryHidden

Sheets("系统提醒参数").Visible = False

Sheets("单位信息").Visible = False

'保护"首页"工作表

Sheets("首页").Protect DrawingObjects:=True,Contents:=True,Scenarios:=True Sheets(" …… 此处隐藏：6018字，全部文档内容请下载后查看。喜欢就下载吧 ……