- 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
您可能关注的文档
- 高二语文期中考试试卷–唐山学大教育.doc
- 高二语文第3次月考试题答案.doc
- 高低温湿热振动试验箱.doc
- 高分子材料化学高等数学教学大纲2012.doc
- 高分语文不可不知技巧.doc
- 高唐县第1实验小学北区一年级寒假作业读书、锻炼及作息计划.doc
- 高压涡轮冷却外壳成形工艺和模具设计检测套冲压工艺和模具设计.doc
- 高定价2009年度江苏语文高考考试说明.doc
- 高寨小学学生体质健康基准评估汇报.doc
- 高层建筑施工作业解析.doc
- 2025年广西中考地理二轮复习:专题四+人地协调观+课件.pptx
- 2025年广西中考地理二轮复习:专题三+综合思维+课件.pptx
- 2025年中考地理一轮教材梳理:第4讲+天气与气候.pptx
- 第5讲+世界的居民课件+2025年中考地理一轮教材梳理(商务星球版).pptx
- 冀教版一年级上册数学精品教学课件 第1单元 熟悉的数与加减法 1.1.6 认识1-9 第6课时 合与分.ppt
- 2025年中考一轮道德与法治复习课件:坚持宪法至上.pptx
- 2025年河北省中考一轮道德与法治复习课件:崇尚法治精神.pptx
- 八年级下册第二单元+理解权利义务+课件-2025年吉林省中考道德与法治一轮复习.pptx
- 精品解析:湖南省娄底市2019-2020学年八年级(上)期中考试物理试题(原卷版).doc
- 2025年中考地理一轮教材梳理:第10讲+中国的疆域与人口.pptx
最近下载
- 工会内控制度.docx VIP
- 门店布局与商品陈列(第二版)全套PPT课件.pptx
- 4.2依法履行义务(教学课件)-2024-2025学年八年级道德与法治下册同步PPT课件+教学设计.pptx VIP
- 扳机点(激痛点)疗法(理论及实操演示附全身激痛点分布图).pptx
- 《金瓶梅》完整版本.ppt VIP
- 初中学业水平考试复习策略.ppt VIP
- EZVIZ 萤石 智能锁Y3000FV用户手册说明书.pdf
- 了解书的结构.完整版PPT文档课件.pptx VIP
- EXCITE-Piston Ring 基础教程介绍.pdf VIP
- 统编人教部编版语文三年级下册第八单元教材解读及教学目标教学建议教研备课校本培训.pptx
文档评论(0)