一种基于VBA的电池容检结果筛选配组方法技术

本发明专利技术公开了一种基于VBA的电池容检结果筛选配组方法，该方法包括如下步骤：步骤1：分批次对蓄电池进行在线容检，通过充电机采集数据，并形成文本数据进行存储；步骤2：利用EXCEL的VBA代码建立VBA数据处理模块，步骤3：调用建立的VBA数据处理模块处理步骤（1）所得的文本数据，根据结果挑出异常蓄电池，并配组正常蓄电池；方法操作门槛低、操作简便、自动化程度和可靠性高，通过简单的调整和优化能够应用到各种在线容检和实验测试中，对各种容检方法具有适应性，采用多种判断方法联合判断筛选异常电池，能够发现传统方法不能发现的异常电池，减少了人工的同时，增加了配组的一致性与可靠性。

【技术实现步骤摘要】
一种基于VBA的电池容检结果筛选配组方法
本专利技术涉及蓄电池生产领域，具体涉及一种基于VBA的电池容检结果筛选配组方法。
技术介绍
铅酸蓄电池生产过程中，在电池加充阶段一般设有在线容检以判断电池是否满足工艺要求，是否有隐藏的不良。实际生产过程中，面对大量的容检数据，一般采用放电固定时间，判断终止电压的方式进行快速判定；容检结果的收集与分析一般由生产员工完成。然而由于蓄电池在放电末期电压下降极快，终止电压判断电池容量的方法并不稳定，可靠性也不高。另一个问题是：即使电池容检容量满足了工艺要求电池也不一定是正常的。经验显示，如果一个电池的容量合格但在这个批次里其偏离整理水平一定程度，那这个电池也是极大概率存在问题的，而按照传统方式并不能发现这样的不良。在铅酸蓄电池生产过程中，电池的配组一般由生产人员完成，生产人员需要收集容检结果并按照工艺进行配组，对生产人员的电脑操作水平及数据分析水平有着较高的要求。由于人工的不确定性，配组的成功率及组内电池的一致性得不到保障。为此，如何解决上述现有技术存在的不足，是本专利技术研究的课题。
技术实现思路
为解决上述问题，本专利技术公开了一种基于VBA的电池容检结果筛选配组方法。为了达到以上目的，本专利技术提供如下技术方案：一种基于VBA的电池容检结果筛选配组方法，该方法包括如下步骤：步骤1：分批次对蓄电池进行在线容检，通过充电机采集数据，并形成文本数据进行存储；步骤2：利用EXCEL的VBA代码建立VBA数据处理模块，所述VBA数据处理模块包括数据导入模块、数据处理模块及输出模块；所述数据导入模块导入的数据包括蓄电池批号数据、蓄电池单体序号数据及放电时间数据；所述数据处理模块处理数据的步骤包括：a.预先存储工艺标准数据，比较所有导入的蓄电池的放电时间数据，将超出工艺范围下限的放电时间数据剔除，在此基础上再去掉放电时间数据中的一个最大值和一个最小值，再计算剩余放电时间数据的平均值μ0和标准差σ0；b.之后将容检结果数据按回路分组，每组数据再按上述方式计算每回路的均值μ和标准差σ；分组时按照同回路优先级最高、相邻回路优先级次之的配组原则将电池按照其容检结果进行配组；c.最后按照容检结果不低于工艺下限且不超出μ0±Xσ0且不超出对应回路的μ±X1σ的标准将异常容检结果通过输出模块输出；所述输出模块输出的数据包括正常电池分组排序数据以及异常电池数据；步骤2中利用EXCEL的VBA代码建立VBA数据处理模块进一步包括：打开EXCEL的VBA窗口编写VBA程序：数据导入模块（负责原始数据导入）[1]UserForm1.Show显示参数设置窗体，程序运行前强制用户检查参数设置[2]DataFileName=Dir(DataBastWorkbook.Path&"\"&"*.xls")读取数据库中的数据文件列表[3]SetDataFileWorkbook=Workbooks.Open(DataBastWorkbook.Path&"\"&"*.xls")打开数据文件[4]D1=DataFileWorkbook.Rows(1).Find("阶段",lookat:=xlWhole).Column查找并读取特征数据“阶段”的列号[5]D2=DataFileWorkbook.Rows(1).Find("阶段时间",lookat:=xlWhole).Column查找并读取特征数据“阶段时间”的列号[6]D3=DataFileWorkbook.Rows(1).Find("控制方式",lookat:=xlWhole).Column查找并读取特征数据“控制方式”的列号[7]DimArray(1To255)保存根据特征数据和工艺参数定位、计算出的容检结果的数组[8]ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Range("E65536").End(xlUp).Row+1,5)=Array(n)输出容检结果至数据导入区域，其它数据导入方式相同[9]DataFileWorkbook.CloseFalse关闭数据文件[10]MsgBox"数据导入完成",vbInformation,"提示"弹出提示，提示用户数据导入完成；工艺参数设置模块（负责用户交互）[1]PublicCAsDouble,XAsDouble,X1AsDouble,UAsDouble定义C为工艺标准，X、X1为均一性标准，U为终止电压，它们在程序运行时被赋值，可通过参数设定窗体被更改[2]UserForm1参数设置窗体[3]UserForm1.ComboBox1.List=Array("C10","C3","C4","")在窗体中为容检方式提供C10、C3、C4提供3个选项，之后程序根据容检方式自动确定工艺标准”C”。[4]UserForm1.ComboBox2.List=Array("10.8","10.5","9.6","")在窗体中为终止电压“U”提供10.8V、10.5V、9.6V提供3个选项[5]C=Mid(ComboBox1.Text,2,8)/24根据用户输入为工艺标准C赋值[6]X=Me.TextBox1.Text,X1=Me.TextBox2.Text,U=ComboBox2.Text根据用户输入为均一性标准X、X1和终止电压U赋值初始化模块PrivateSubWorkbook_Open()程序运行时对各控制参数进行初始化数据处理模块及输出模块（负责数据分析和输出）[1]DimGroup(1To255)根据电池所在的回路对数据进行分组，一个回路为一组，分组结果记录在数组Group中。[2]DimArray0(1to4096)Forn=1ToRange("E65536").End(xlUp).Row-4IfCells(n+4,5)>=CAndCells(n+4,5)<>Application.Max(Range("E5:E"&Range("E65536").End(xlUp).Row))AndCells(n+4,5)<>Application.Min(Range("E5:E"&Range("E65536").End(xlUp).Row))ThenArray0(n)=Cells(n+4,5)EndIfNextn对所有的数据进行筛选，将不符合工艺的数据去除，再去掉一个最大值和一个最小值，剩余数据存入数组Array0中。[3]σ0=Application.StD本文档来自技高网...

【技术保护点】
1.一种基于VBA的电池容检结果筛选配组方法，其特征在于：该方法包括如下步骤：/n步骤（1）：分批次对蓄电池进行在线容检，通过充电机采集数据，并形成文本数据进行存储；/n步骤（2）：利用EXCEL的VBA代码建立VBA数据处理模块，所述VBA数据处理模块包括数据导入模块、数据处理模块及输出模块；/n所述数据导入模块导入的数据包括蓄电池批号数据、蓄电池单体序号数据及放电时间数据；/n所述数据处理模块处理数据的步骤包括：/na.根据预先存储工艺标准数据，比较所有导入的蓄电池的放电时间数据，将超出工艺范围下限的放电时间数据剔除，在此基础上再去掉放电时间数据中的一个最大值和一个最小值，再计算剩余放电时间数据的平均值μ0和标准差σ0；/nb.之后将容检结果数据按回路分组，每组数据再按上述方式计算每回路的均值μ和标准差σ；/n其中，分组时按照同回路优先级最高、相邻回路优先级次之的配组原则将电池按照其容检结果进行配组；/nc.最后按照容检结果不低于工艺下限且不超出μ0±Xσ0且不超出对应回路的μ±X1σ的标准将异常容检结果通过输出模块输出；/n所述输出模块输出的数据包括正常电池分组排序数据以及异常电池数据；/n步骤（3）：调用建立的VBA数据处理模块处理步骤（1）所得的文本数据，根据结果挑出异常蓄电池，并配组正常蓄电池。/n...

【技术特征摘要】
1.一种基于VBA的电池容检结果筛选配组方法，其特征在于：该方法包括如下步骤：
步骤（1）：分批次对蓄电池进行在线容检，通过充电机采集数据，并形成文本数据进行存储；
步骤（2）：利用EXCEL的VBA代码建立VBA数据处理模块，所述VBA数据处理模块包括数据导入模块、数据处理模块及输出模块；
所述数据导入模块导入的数据包括蓄电池批号数据、蓄电池单体序号数据及放电时间数据；
所述数据处理模块处理数据的步骤包括：
a.根据预先存储工艺标准数据，比较所有导入的蓄电池的放电时间数据，将超出工艺范围下限的放电时间数据剔除，在此基础上再去掉放电时间数据中的一个最大值和一个最小值，再计算剩余放电时间数据的平均值μ0和标准差σ0；
b.之后将容检结果数据按回路分组，每组数据再按上述方式计算每回路的均值μ和标准差σ；
其中，分组时按照同回路优先级最高、相邻回路优先级次之的配组原则将电池按照其容检结果进行配组；
c.最后按照容检结果不低于工艺下限且不超出μ0±Xσ0且不超出对应回路的μ±X1σ的标准将异常容检结果通过输出模块输出；
所述输出模块输出的数据包括正常电池分组排序数据以及异常电池数据；
步骤（3）：调用建立的VBA数据处理模块处理步骤（1）所得的文本数据，根据...

【专利技术属性】
技术研发人员：留伟亮，刘春，
申请(专利权)人：江苏理士电池有限公司，
类型：发明
国别省市：江苏;32