一种基于ExcelVBA技术的企业绩效自动化评价方法及系统

技术领域

本发明涉及计算机应用的技术领域，具体而言，尤其涉及一种基于ExcelVBA技术的企业绩效自动化评价方法及系统。

背景技术

很多企业的经营数据都以Excel文档的形式存储、处理、显示，由于来源不同、表达形式不同、目的不同，各种数据、表格往往不兼容，使绩效评价工作中存在大量数据提取与处理的重复工作。传统的方法是人工手动操作，需要从不同Excel文档中分别提取数据，存在效率低、出错率高的问题。VBA作为一种功能强大的Excel内置编程语言，允许用户在Excel中插入控件按钮、自定义函数和命令，经过专门设计就可以较好的解决大量数据的提取与处理问题，进而实现企业绩效的自动化评价。但目前基于VBA技术的功能开发较为缺乏。

发明内容

根据上述提出基于VBA技术的功能开发较为缺乏的技术问题，提供一种基于ExcelVBA技术的企业绩效自动化评价方法及系统。本发明主要利用一种基于Excel VBA技术的企业绩效自动化评价方法，其特征在于，包括以下步骤：

步骤1：建立绩效评价指标体系；按照要求为每一个指标在指定文件夹中存储包含原始数据的指定命名规则的Excel文档；

步骤2：通过数据读取模块将存储在多个所述Excel文档中的原始数据读取至绩效评价指标体系Excel文档中；

步骤3：通过数据处理模块，对每个指标的值采用min-max标准化方法进行处理，并通过证据推理法进行信息集结，得到总指标的值，即企业绩效评价结果；

步骤4：通过数据查验与标记模块，对读取与计算的数据进行查验并将异常值标记出来提示用户注意；

步骤5：通过图形表达与可视化模块，在总指标以及每个指标的sheet页面内通过折线图的形式展示评价结果与逐月/季度/年的变化趋势；当所述图生成完毕后，弹出对话框提示可视化完成后即可退出图形表达与可视化模块。

进一步地，所述步骤2还包括以下步骤：

步骤2.1：在所述绩效评价指标体系Excel文档中，为所述绩效评价指标体系中每一个指标创建sheet页面，并按照指标名称命名；

步骤2.2：在每个所述sheet页面内设计指标数据存储的单元格范围，标注行列名称；

步骤2.3：依次读取每个指标的原始数据，并写入对应的绩效评价指标体系Excel文档的对应单元格位置；

步骤2.4：若出现Excel文档命名无法读取，则弹出对话框提示当前指标的数据未读取成功，退出数据读取模块；用户可根据提示修改或补充对应指标的Excel文档后，重新进入所述步骤2.3；

步骤2.5：若所有指标的数据读取完毕，则弹出对话框提示数据读取完成，退出数据读取模块。

更进一步地，所述步骤3还包括以下步骤：

步骤3.1：在所述绩效评价指标体系Excel文档中，为所述总指标创建一个sheet页面；

步骤3.2：在所述sheet页面内设计总指标、各指标权重、指标计算结果存储的单元格范围，标注行列名称；

步骤3.3：点击“评价计算”按钮，运行后台的VBA程序，对每一个指标的数据按照特定公式计算，并将计算结果写入总指标sheet页面的对应位置，并在单元格内保留计算公式；

步骤3.4：完成全部指标的计算后，根据每个指标的权重与计算结果进行信息集结，得到总指标的计算结果，即企业绩效评价结果，写入对应单元格位置；

步骤3.5：弹出对话框提示评价计算完成，退出数据处理模块。

进一步地，所述步骤4还包括以下步骤：

步骤4.1：遍历每一个需要查验的数据；

步骤4.2：查验的标准可人工设定数据范围，也可根据历史数据的置信度水平设定数据范围，若查验的数据超出设定的数据范围，则将该异常值的单元格标注为特定颜色；反之，将其标注为无色；

步骤4.3：对于计算的数据，如果当前的值不是最终结果，例如需要下一次事件发生后才能准确计算的值，则将对应单元格标注为特定颜色；

步骤4.4：当全部待查验数据遍历完毕，弹出对话框提示查验完成，点击“确定”按钮后退出数据查验与标记模块。

更进一步地，本发明还包含一种基于Excel VBA技术的企业绩效自动化评价系统，其特征在于：包括：数据读取模块、数据处理模块、数据查验与标记模块以及将评价结果以图的形式表达的图形表达与可视化模块；

所述数据读取模块将存储在多个Excel文档中的原始数据读取至企业绩效评价系统的Excel文档中；所述数据读取模块还包括：按事件统计的数据或者按照事件分类统计的数据；

所述数据处理模块将读取的数据进行标准化计算与信息集结；

所述数据查验与标记模块负责核查读取与计算的数据，根据历史数据统计结果或人工预设的范围，将置信度低于90％或超出人工设定范围的异常值单元格标注为特定颜色，以提示用户注意；对于不是最终计算结果的单元格标注为特定颜色以提示用户注意。

较现有技术相比，本发明具有以下优点：

(1)本发明方法能够通过简单的交互模式实现指定时间区间或事件的信息读取，能够实现从诸多Excel文档中快速准确地读取对应的数据并写入企业绩效评价的Excel文档中，在秒级内完成数据的读取与写入，且性能稳定，能够代替传统人工逐项录入，减少重复性工作，可以有效提高数据录入的效率和准确性；

(2)本发明方法能够通过交互方式设置数据查验的区间范围，实现录入数据与计算数据的自动查验与标记，节省用户查验数据的时间，极大程度地提高了查验效率；

(3)本发明方法能够实现评价结果图形表达与可视化的自动化，具有方便、直观等优点；

(4)本发明方法用于企业绩效评价系统能够较好兼容企业的数据存储形式，操作简单，易于掌握，便于推广。

附图说明

为了更清楚地说明本发明实施例或现有技术中的技术方案，下面将对实施例或现有技术描述中所需要使用的附图做以简单地介绍，显而易见地，下面描述中的附图是本发明的一些实施例，对于本领域普通技术人员来讲，在不付出创造性劳动性的前提下，还可以根据这些附图获得其他的附图。

图1为本发明方法的流程示意图；

图2为本发明系统的结构示意图；

图3为本发明系统的文件存储形式示意图；

图4为本发明指标1的数据存储形式示意图；

图5为本发明系统的主界面示意图；

图6为本发明系统的数据读取未成功提示信息图；

图7为本发明系统的数据读取成功提示信息图；

图8为本发明系统的评价计算完成提示信息图；

图9为本发明系统的数据查验完成提示信息图；

图10为本发明系统的可视化完成提示信息图；

图11为本发明系统的可视化中全组评价结果对比示例图；

图12为本发明系统的可视化中单组评价结果示例图。

具体实施方式

为了使本技术领域的人员更好地理解本发明方案，下面将结合本发明实施例中的附图，对本发明实施例中的技术方案进行清楚、完整地描述，显然，所描述的实施例仅仅是本发明一部分的实施例，而不是全部的实施例。基于本发明中的实施例，本领域普通技术人员在没有做出创造性劳动前提下所获得的所有其他实施例，都应当属于本发明保护的范围。

需要说明的是，本发明的说明书和权利要求书及上述附图中的术语“第一”、“第二”等是用于区别类似的对象，而不必用于描述特定的顺序或先后次序。应该理解这样使用的数据在适当情况下可以互换，以便这里描述的本发明的实施例能够以除了在这里图示或描述的那些以外的顺序实施。此外，术语“包括”和“具有”以及他们的任何变形，意图在于覆盖不排他的包含，例如，包含了一系列步骤或单元的过程、方法、系统、产品或设备不必限于清楚地列出的那些步骤或单元，而是可包括没有清楚地列出的或对于这些过程、方法、产品或设备固有的其它步骤或单元。

如图1-12所示，本发明提供了一种基于Excel VBA技术的企业绩效自动化评价方法，其特征在于，包括以下步骤：

步骤1：建立绩效评价指标体系；按照要求为每一个指标在指定文件夹中存储包含原始数据的指定命名规则的Excel文档；以指标“运输量”为例，这里的要求是指将包含按月份或航次统计船舶A运输量数据的Excel文档命名为Shipping_Volume_A.xlsx，并将其存储在文件夹“运输量”下；这里的指标可以是本月或本航次的运输量，也可以是运输量的连续3个月或航次的平均值，需要根据绩效评价指标体系中设计的评价指标确定。如图3所示，是指评价绩效的多个指标，例如指标1，指标2。

步骤2：通过数据读取模块将存储在多个所述Excel文档中的原始数据读取至绩效评价指标体系Excel文档中；所采用的数据读取算法是通过VBA语言实现的，首先识别绩效评价指标体系Excel文档的路径，并依据每个指标的文件夹名称设置被读取Excel文档的路径；进一步根据Excel文档名称中的信息定位目标文档；最后打开该文档，通过遍历表格中的信息确定读取的单元格位置，将所需读取单元格数据写入到绩效评价指标体系Excel文档相应位置中，并关闭被读取的Excel文档。

步骤3：通过数据处理模块，对每个指标的值采用min-max标准化方法进行处理，并通过证据推理法进行信息集结，得到总指标的值，即企业绩效评价结果；作为优选的实施方式，在本申请中，这里的计算过程均是通过VBA编程实现，并将计算公式保留至单元格内；这里的数据标准化也可以采用z-score等其他数据标准化方法；信息集结也可采用加权和法等其他信息集结方法。

步骤4：通过数据查验与标记模块，对读取与计算的数据进行查验并将异常值标记出来提示用户注意；这里数据查验主要依据统计学中置信区间的概念，通过对历史数据的统计，显著性水平默认为0.1，即置信度为90％的置信区间作为数据查验的依据，超出该范围记为数据异常。其中也可通过交互界面设定显著性水平或置信区间边界。

步骤5：通过图形表达与可视化模块，在总指标以及每个指标的sheet页面内通过折线图如图11、12的形式展示评价结果与逐月/季度/年的变化趋势；当所述图生成完毕后，弹出对话框提示可视化完成后即可退出图形表达与可视化模块。

作为一种优选的实施方式，在本申请中，所述步骤2还包括以下步骤：

步骤2.1：在所述绩效评价指标体系Excel文档中，为所述绩效评价指标体系中每一个指标创建sheet页面，并按照指标名称命名；

步骤2.2：在每个所述sheet页面内设计指标数据存储的单元格范围，标注行列名称；

步骤2.3：依次读取每个指标的原始数据，并写入对应的绩效评价指标体系Excel文档的对应单元格位置；

步骤2.4：若出现Excel文档命名无法读取，则弹出对话框提示当前指标的数据未读取成功，退出数据读取模块；用户可根据提示修改或补充对应指标的Excel文档后，重新进入所述步骤2.3；

步骤2.5：若所有指标的数据读取完毕，则弹出对话框提示数据读取完成，退出数据读取模块。

作为优选的，所述步骤3还包括以下步骤：

步骤3.1：在所述绩效评价指标体系Excel文档中，为所述总指标创建一个sheet页面；

步骤3.2：在所述sheet页面内设计总指标、各指标权重、指标计算结果存储的单元格范围，标注行列名称；

步骤3.3：点击“评价计算”按钮，运行后台的VBA程序，对每一个指标的数据按照特定公式计算，并将计算结果写入总指标sheet页面的对应位置，并在单元格内保留计算公式；

步骤3.4：完成全部指标的计算后，根据每个指标的权重与计算结果进行信息集结，得到总指标的计算结果，即企业绩效评价结果，写入对应单元格位置；

步骤3.5：弹出对话框提示评价计算完成，退出数据处理模块。

作为优选的实施方式，所述步骤4还包括以下步骤：

步骤4.1：遍历每一个需要查验的数据；

步骤4.2：查验的标准可人工设定数据范围，也可根据历史数据的置信度水平设定数据范围，若查验的数据超出设定的数据范围，则将该异常值的单元格标注为特定颜色；反之，将其标注为无色；

步骤4.3：对于计算的数据，如果当前的值不是最终结果，例如需要下一次事件发生后才能准确计算的值，则将对应单元格标注为特定颜色；

步骤4.4：当全部待查验数据遍历完毕，弹出对话框提示查验完成，点击“确定”按钮后退出数据查验与标记模块。

作为优选的实施方式，在本申请中还包含一种基于Excel VBA技术的企业绩效自动化评价系统，包括：数据读取模块、数据处理模块、数据查验与标记模块以及将评价结果以图的形式表达的图形表达与可视化模块；

所述数据读取模块将存储在多个Excel文档中的原始数据读取至企业绩效评价系统的Excel文档中；所述数据读取模块还包括：按事件统计的数据或者按照事件分类统计的数据；

所述数据处理模块将读取的数据进行标准化计算与信息集结；

所述数据查验与标记模块负责核查读取与计算的数据，根据历史数据统计结果或人工预设的范围，将置信度低于90％或超出人工设定范围的异常值单元格标注为特定颜色，以提示用户注意；对于不是最终计算结果的单元格标注为特定颜色以提示用户注意。

上述本发明实施例序号仅仅为了描述，不代表实施例的优劣。

在本发明的上述实施例中，对各个实施例的描述都各有侧重，某个实施例中没有详述的部分，可以参见其他实施例的相关描述。

在本申请所提供的几个实施例中，应该理解到，所揭露的技术内容，可通过其它的方式实现。其中，以上所描述的装置实施例仅仅是示意性的，例如所述单元的划分，可以为一种逻辑功能划分，实际实现时可以有另外的划分方式。

最后应说明的是：以上各实施例仅用以说明本发明的技术方案，而非对其限制；尽管参照前述各实施例对本发明进行了详细的说明，本领域的普通技术人员应当理解：其依然可以对前述各实施例所记载的技术方案进行修改，或者对其中部分或者全部技术特征进行等同替换；而这些修改或者替换，并不使相应技术方案的本质脱离本发明各实施例技术方案的范围。