EXCEL函数在工程质量监督中的应用

    本文介绍了一种以Excel办公软件为平台,以Excel函数为工具,应用于工程质量监督管理的新方法。通过对工程质量监督抽查记录的管理实例,介绍用该方法自动生成记录表的编程过程。

    一、制作监督抽查记录表格及台帐表格

    质量监督抽查记录台帐的工作表名称设置为“台帐”。抽查记录的工作表名称从“001”开始。这样做的好处是在台帐工作表的 “编号” （B列）和抽查记录工作表“名称”之间建立关联，便于在抽查记录工作表中自动调用台帐工作表的数据内容。最终实现在台帐工作表中录入监督抽查的相关信息，便自动生成所需的抽查记录表格。

    三、编写自定义函数对抽查记录工作表名称的提取

    要实现在抽查记录工作表中自动调用台帐工作表的数据内容，首先就要提取出当前抽查记录工作表的名称，如“001”，下 一 步 才 能 通 过 编 辑 公 式 来 调 用 台 帐 工 作 表 中 对 应 “ 编号”“001”的相应内容。

    1、自定义函数的定义

    （1）打开VBA

    Excel2003支持VBA编程，VBA是Visual Basic For Applica-tion的简写形式。VBA的使用可以达成执行特定功能或是重复性高的操作。执行系统菜单中的“工具”/“宏”/“Visual Basic 编辑器”命令，会打开Visual Basic编辑窗口，在VBA系统中执行“插入”/“模块”命令，弹出“模块1”代码编写窗口。

    （2）编写自定义函数的程序代码

    在刚才弹出的“模块1”代码编写窗口中，输入如下代码：

     Public Function ThisSheetName() As String

    Application.Volatile True

    ThisSheetName = Application.Caller.Parent.Name

    End Function

    代码编辑完成后保存并退出VBA。

    2、加载宏

    退出VBA，则在工作表中自动添加了自定义函数ThisSheet-Name()，其功能是调用当前工作表名称。但这个函数是以一个宏的形式存在的，要使它能够有效，必须将EXCEL2003系统的宏安全级别设为中级或低级。在系统菜单中的“工具”/“宏”/“安全性 ”对话框中可以对其进行设置。

    3、自定义函数ThisSheetName()的运用

    将图2所示的工程质量监督抽查记录工作表“001”中F1单元格的计算公式编辑为“=TEXT(ThisSheetName(),”0”)+2”。ThisSheetName()函数可以得到当前工作表名称“001”；TEXT()函数可以将数值“001”转换为按指定数字格式表示的数值“1”；“+2”的目的是我们要得到台帐工作表中对应编号为“001”的第3行内容。所以最终公式得出的值为“3”。

    四、利用系统函数编辑公式，跨工作表调用所需内容