- 1、本文档共7页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
高校毕业生信息采集数据规范性检测的VBA实现
余 磊,田向阳
淮北师范大学就业指导中心,安徽 淮北,235000
摘 要:针对高校毕业生信息数据规范性检测的特点和传统检测方法存在的不足,在对毕业生信息采集数据常见问题分析的基础上,提出一种数据规范性检测的自动化解决方案,并基于Excel环境运用VBA对其程序实现。该方案不仅能提高工作效率和数据检测的精确度,而且能提高计算机资源的利用率,对促进就业工作自动化的发展与创新有着重要的指导意义。
关键词:高校、毕业生、数据规范性检测、自动化、Excel、VBA
1、引言
高校毕业生信息数据,是毕业生派遣方案编制、就业报到证办理和毕业生跟踪服务的重要依据,及时准确地做好毕业生信息采集与核对工作不仅是做好毕业生工作的重要环节,也是就业工作中的难点[1]。毕业生信息采集的主要内容包括学号、姓名、性别、身份证号、学院名称、专业名称、生源所在地、手机号码、家庭联系电话、电子邮箱等关键信息[2]。高校毕业生就业管理系统的网络一体化,要求毕业生信息数据不仅内容正确,也要格式规范。非规范的数据格式将影响就业数据的正确性,数据规范性检测已成为毕业生信息采集与核对的基础工作。对照标准数据和规范条例的人工检测,仍是目前毕业生信息规范性检测的最常用方法,在操作上具有劳动强度大、工作效率低的缺点,在数据检测上易存在漏检、错检等不足。由于毕业生信息数据规范性检测具有重复性、周期性和计算机管理的特点,可运用计算机技术实现数据规范性检测的自动化解决,不仅能够提高工作效率,而且可以实现数据检测的精确性。Excel因其在数据管理与数据挖掘上具有操作简单、使用方便、功能强大等优点,目前已是高校就业数据管理主要办公软件[3]。VBA是类似Visual Basic的一种宏语言,主要用于Office办公软件的功能扩展,通过VBA编程可实现重复任务的自动化,数据的复杂性操作, Excel菜单和界面的自定义等功能[4]。因此,可以在Excel环境下,运用VBA实现毕业生信息采集数据规范性检测的自动化处理。
2、毕业生信息采集数据中常见问题分析
在毕业生信息数据的采集过程中,受信息组织方式、信息使用习惯、信息更新滞后、数据操作不当等因素影响,采集的毕业生信息数据在格式往往存在较多不规范之处。归纳起来,主要表现为以下几个方面。
(1)标准型数据错误。行政区划和专业名称的标准化和代码化,要求生源地和专业名称数据必须与国家必威体育精装版公布的行政区划表和专业名称表中的数据保持一致。在生源地、专业名称等标准型数据字段录入时,经常存在简称、旧称、相似称、错别字、数据模糊等现象。如:“安徽省巢湖市居巢区”是旧称;“安徽省合肥市”存在县级生源地模糊;“安徽省宿州市墉桥区”中的存在错别字。标准型数据错误将无法正确生成相应数据的代码,造成数据统计错误。
(2)文本型数字数据类型错误。文本型数字数据是对毕业生某些属性的客观描述,不参加数值运算,由于受数字使用习惯的影响,文本型数字数据常常被当作数值型数据录入。数据类型错误,将导致数据表示方式和数据运算错误,特别是在Excel中,数值型数据受计算机字长的限制,当输入的数值超过机器所能表示的范围程序的维护性一些常用,用常量说明语句定义Private Function digital_type(bookname As Workbook, row_num As Integer, col_num As Integer, data_len As Integer, field_name As String)
Dim ws As Worksheet
Dim str, error_msg As String
Set ws = bookname.Worksheets(1)
error_msg =
With ws.Cells(row_num, col_num)
If InStr(1, Trim(.Value), 【, vbTextCompare) Then
.Value = + Left(Trim(.Value), InStr(1, Trim(.Value), 【, vbTextCompare) - 1)
End If
str = Replace(Trim(.Value), , )
.Value = + str
If Len(.Value) 0 Then
If Len(.Value) data_len Then
error_msg = 长度错误
End If
If Right(.Value, 3) = 000 Then
error_msg = Trim(error_msg
您可能关注的文档
最近下载
- 变速器换挡叉加工工艺及夹具设计.docx
- 四川省专升本计算机基础知识资料.pdf
- “挑战杯”竞赛课学术科技作品撰写指导.ppt
- 基于PLC的校园照明智能控制系统设计毕业设计(论文).doc VIP
- 郑州信息科技职业学院2024年单独招生考试职业技能(适应)测试大纲.pdf VIP
- 新人教必修三单元综合测试 Unit 3-5.doc VIP
- 鹿血多肽的制备、体内外免疫调节活性及其机制研究.pdf VIP
- 2022年政府数字化转型研究报告 数字政府的协同化分析.pdf VIP
- 2025年郑州信息科技职业学院单招职业倾向性测试题库完美版.docx VIP
- 征信简版PDF个人信用报告-优征信版本-2025年2月去锁可编辑.pdf
文档评论(0)