一种基于VBA技术以及数据透视表的焦炭数据管理方法与流程

一种基于vba技术以及数据透视表的焦炭数据管理方法
技术领域
1.本技术涉及一种基于vba技术以及数据透视表的焦炭数据管理方法。


背景技术：

2.目前高炉生产所需原料之一焦炭一般由炼焦炉生产，由于自产焦日产数量有限，需要补充外购焦才能满足生产实践，而外购焦供应商多达数十家，质量波动大，而质量波动会影响高炉炉况波动，为保证炼铁生产稳定，需要对外购焦质量指标进行多方位监测以及管理，每周需要对外购焦质量指标的参数如：反应后强度、焦末、水分等进行平均值、合格率的计算。当前对于外购焦数据管理的台账大都依靠相关管理员，通过手动录入反应性(％)、反应后强度(％)、焦末含量(％)、全水分(％)、抗碎强度m25(％)、耐磨强度m10(％)、灰分(ad％)、挥发分(vdaf％)、全硫(st,d％)等9项所需的数据，并通过excel表格中的average公式选取指定时间段，算出各指标平均值，合格率。
3.由于自质量网导出的数据格式不一致，同时手动辨别、核对数据易出错，不能简单的复制粘贴，需要反复核对指标与对应参数，操作量大，周期频繁，耗时耗力，难以形成有效的数据管理方法。


技术实现要素：

4.本发明的目的在于提供一种基于vba技术以及数据透视表的焦炭数据管理方法，以克服现有技术中的不足。
5.为实现上述目的，本发明提供如下技术方案：一种基于vba技术以及数据透视表的焦炭数据管理方法，包括：
6.步骤1：根据预设时间间隔从数据库中导出准一级焦数据和准二级焦数据，利用excel自带的hlookup函数设定查找对象，范围，查找方式进行自动查询准一级焦数据和准二级焦数据的反应性、反应后强度、焦末含量、全水分、抗碎强度m25、耐磨强度m10、灰分、挥发分和全硫9项指标，利用vba语句进行程序编写；
7.步骤2：将准一级焦数据和准二级焦数据查询所得数据分别复制到焦炭质量变化趋势汇总表以及外购焦数据透视表两个工作簿，并利用vba语句进行程序编写；
8.步骤3：设置透视表并统一日期及供应商名称，同时计算合格率,每更新一次准一级焦数据和准二级焦数据，更新一次焦炭质量变化趋势汇总表以及数据透视表，并利用vba语句进行程序编写；
9.步骤4：将上述步骤的vba语句集成窗体界面，通过点击命令按钮实现查询数据自动更新至焦炭质量变化趋势汇总表以及外购焦数据透视表。
10.优选的，所述步骤2中，利用worksheets.add在导出的准一级焦数据和准二级焦数据增加汇总表，设定新增表的表头，包含所述9项指标。
11.所述步骤2中，利用application.hlookup将excel函数整合到vba代码，使用双重嵌套循环完成准一级焦、二级焦工作表导出所需9项数据指标的查询功能。
12.优选的，所述步骤3中，
13.准一级焦反应后强度合格率＝if(or(and(供应商名称<>"fg"，反应后强度>＝60)，and(供应商名称＝"fg"，反应后强度>＝58)),100,0)
14.二级焦反应后强度合格率＝if(or(and(供应商名称<>"fg",反应后强度>＝55)，and(供应商名称＝"fg"，反应后强度>＝50)),100,0)，
15.焦末合格率＝if(焦末含量<＝8,100,0)
16.水分合格率＝if(全水分<＝6,100,0)
17.在对应指标合格率数据项输入以上公式后，vba代码使用selection.autofill语句自动填充计算公式。
18.优选的，所述步骤3中，设置透视表并统一日期及供应商名称包括：采用like语句以及if～elseif～then语句将供应商名称标准化，vba代码如下：
19.if供应商名称like"*abc*"then
20.供应商名称＝"abc"
21.elseif供应商名称like"*de*"then
22.供应商名称＝"de"
23.............
24.else
25.供应商名称＝供应商名称
26.end if
27.next。
28.优选的，所述步骤4中，还包括插入数据透视图，设置切片器能按照特定时间、指定供应商查看相关指标趋势，跟随数据透视表更新自动更新。
29.与现有技术相比，本技术的一种基于vba技术以及数据透视表的焦炭数据管理方法至少包括以下有益效果：
30.(1)、利用hlookup函数自动匹配准一级焦数据和准二级焦数据所需指标，无需人工匹配，避免数据核对中出错；
31.(2)、利用vba技术使用双重嵌套循环完成每次导出数据的查询功能，动态导出数据至质量变化趋势汇总表以及数据透视表；
32.(3)、将vba代码集成窗口界面，一键完成数据分析工作，提高工作效率，且保证数据准确性；
33.(4)、利用数据透视表刷新功能实时更新统计数据。
附图说明
34.为了更清楚地说明本技术实施例或现有技术中的技术方案，下面将对实施例或现有技术描述中所需要使用的附图作简单地介绍，显而易见地，下面描述中的附图仅仅是本技术中记载的一些实施例，对于本领域普通技术人员来讲，在不付出创造性劳动的前提下，还可以根据这些附图获得其他的附图。
35.图1为本发明具体实施例一种基于vba技术以及数据透视表的焦炭数据管理方法的工作流程图；
36.图2为本发明具体实施例一种基于vba技术以及数据透视表的焦炭数据管理方法的vba窗体集成界面；
37.图3为本发明具体实施例一种基于vba技术以及数据透视表的焦炭数据管理方法的数据透视表。
具体实施方式
38.下面将结合本发明实施例中的附图，对本发明实施例中的技术方案进行详细的描述，显然，所描述的实施例仅仅是本发明一部分实施例，而不是全部的实施例。基于本发明中的实施例，本领域普通技术人员在没有做出创造性劳动的前提下所获得的所有其他实施例，都属于本发明保护的范围。
39.结合图1所示，本发明采用如下技术方案，具体包括如下步骤：
40.步骤a1：
41.(1)将外购焦包括准一级、二级焦的原始检测数据按照预设时间间隔自质量网导出成一个包含两个工作表的工作簿。
42.(2)导出后观测数据结构发现两个工作表数据格式不统一，各指标(共16项)的物理地址不同，单纯的寻找目标值、复制粘贴来获取反应性(％)、反应后强度(％)、焦末含量(％)、全水分(％)、抗碎强度m25(％)、耐磨强度m10(％)、灰分(ad％)、挥发分(vdaf％)、全硫(st,d％)等9项指标，数据处理量大，且手工分辨易出差错，利用excel自带的hlookup函数设定查找对象，范围，查找方式进行自动查询，可以达到0差错率。
43.(3)利用vba语句进行程序编写，设计所需数据的汇总表格格式以及整理规则。
44.步骤a2：
45.(4)利用worksheets.add在导出的工作簿增加汇总表，设定新增表的表头，包含所需9项指标。
46.(5)application.hlookup将excel函数整合到vba代码，使用双重嵌套循环完成准一级焦、二级焦工作表导出所需9项数据指标的查询功能。
47.(6)将查询所得数据分别复制到焦炭质量变化趋势汇总表以及外购焦数据透视表两个工作簿。为方便查阅原始数据，焦炭质量变化趋势汇总不作加工处理，将查询数据根据if语句判断物料名称属性(准一级焦、二级焦)类别原样复制；为方便处理数据以及计算合格率，将查询数据分类别(准一级焦、二级焦)原样复制到外购焦数据透视表进行数据透视。
48.步骤a3:
49.(7)统一数据透视表日期、供应商名称等格式。日期格式更改：使用numberformat语句将原“年月日时间”更改为"yyyy/m/d"格式。
50.采用like语句以及if～elseif～then语句将供应商名称标准化，vba代码如下：if供应商名称like"*abc*"then
51.供应商名称＝"abc"
52.elseif供应商名称like"*de*"then
53.供应商名称＝"de"
54.............
55.else
56.供应商名称＝供应商名称
57.end if
58.next
59.(8)计算合格率，准一级焦反应后强度合格率＝if(or(and(供应商名称<>"fg"，反应后强度>＝60)，and(供应商名称＝"fg"，反应后强度>＝58)),100,0)二级焦反应后强度合格率＝if(or(and(供应商名称<>"fg",反应后强度>＝55)，and(供应商名称＝"fg"，反应后强度>＝50)),100,0)
60.焦末合格率＝if(焦末含量<＝8,100,0)
61.水分合格率＝if(全水分<＝6,100,0)
62.在对应指标合格率数据项输入以上公式后，vba代码使用selection.autofill语句自动填充计算公式。每更新一次以上a1
‑
a3步骤，刷新一次数据透视表。步骤a4：
63.(9)将a1
‑
a3步骤所有vba代码集成到窗体界面，如图2所示，分别点击命令按钮就可实现查询数据自动更新至焦炭质量变化趋势汇总表以及外购焦数据透视表两个工作簿。
64.(10)将外购焦数据透视表按照准一级、二级焦分类如图3所示，分别建立二者的计算表格以及数据透视表表格，根据月度、年度显示字段平均值、合格率、最大最小值等。每次只要计算表格更新，点击数据透视表工具
‑
刷新即可得到最新汇总统计值。插入数据透视图，设置切片器能按照特定时间、指定供应商查看相关指标趋势，跟随数据透视表更新自动更新。
65.需要说明的是，在本文中，诸如第一和第二等之类的关系术语仅仅用来将一个实体或者操作与另一个实体或操作区分开来，而不一定要求或者暗示这些实体或操作之间存在任何这种实际的关系或者顺序。而且，术语“包括”、“包含”或者其任何其他变体意在涵盖非排他性的包含，从而使得包括一系列要素的过程、方法、物品或者设备不仅包括那些要素，而且还包括没有明确列出的其他要素，或者是还包括为这种过程、方法、物品或者设备所固有的要素。在没有更多限制的情况下，由语句“包括一个
……”
限定的要素，并不排除在包括要素的过程、方法、物品或者设备中还存在另外的相同要素。
66.以上仅是本技术的具体实施方式，应当指出，对于本技术领域的普通技术人员来说，在不脱离本技术原理的前提下，还可以做出若干改进和润饰，这些改进和润饰也应视为本技术的保护范围。