高考填报志愿所需数据 Excel 电子表格制作方法docx.docx
- 文档编号:7568466
- 上传时间:2023-01-25
- 格式:DOCX
- 页数:8
- 大小:399.32KB
高考填报志愿所需数据 Excel 电子表格制作方法docx.docx
《高考填报志愿所需数据 Excel 电子表格制作方法docx.docx》由会员分享,可在线阅读,更多相关《高考填报志愿所需数据 Excel 电子表格制作方法docx.docx(8页珍藏版)》请在冰豆网上搜索。
高考填报志愿所需数据Excel电子表格制作方法docx
高考填报志愿所需数据Excel电子表格制作方法
填报的重要性不言而喻,在填报过程中,家长和考生要能正确的找到所需的相关数据,高等院校在本省(自治区)招生计划、各高等院校在本省(自治区)历年(近三年)投档分数线差及位次统计表,考生成绩对应批次院校投档线数据(近三年),院校专业录取分数线数据(三到五年)等等。
然后结合考生的分数和位次进行科学的分析,才能形成一套合理的志愿填报方案。
这些数据可以通过教育部门印发的填报志愿出版物、省级招生主管部门网站(自治区招生网)、权威的专业网站(如阳光高考网,中国教育在线等)、各院校的招生部门网站可以获得。
不过,以上数据相对来说比较分散,不便于集中查询和使用,而且大部分数据是图片状态,不便于排序、分类、分析。
一套高考志愿方案的最终形成,则完全依赖于对数据的
分析。
本文中,笔者介绍获得以上数据的电子版,并且把以上有用的信息合并到一个Excel表格的方法。
做出来了这样一个excel表格以后,利用Excel强大的数据排序、统计、分类、计算功能,把数据分析过程大大简化,快速准确的进行分析相关数据,便于形成合理的高考志愿方案。
一、获得电子数据
首先应该保证的就是数据的正确性,省级招生主管部门发行的招生用书、省级招生网站和院校的招生部门网站提供的数据最是权威。
1、招生计划电子数据的获取:
高考志愿填报系统中导出招生计划内容。
(1)打开省级招生网站,进入自治区普通高校招生网上填报志愿系统,如
(2)打开当年省级高考计划查询系统,比如《新疆维吾尔自治区普通高考计划查询系统》为http:
//124.117.250.21:
8181/XJGK/stufrontend/gkjh.zhtml
(3)根据《招生用书》上的招生计划,左列单击(或搜索,再单击)有招生计划的院校,右边数据上面右击,按下“导出为Excel”。
(4)弹出的对话框中选“全部记录”→“确定”,这样就导出了一所院校的所有专业招生计划到单独的一个Excel文件。
(5)有招生计划的所有院校重复以上(3)和(4),挨个导出。
2、招生计划电子数据的合并:
多个Excel文件合并为一个电子表格。
以上导出来的是一个个单独的Excel文件,有学者们应该合并成一个电子表
格。
多个Excel文件的电子表格合并成一个电子表格分两步完成,即先把多个工作簿合并到一个工作簿,然后把多个工作表合并到一个工作表。
这个文章里笔者介绍用VisualBasicForExcel(是VBA)实现的方法。
这个的操作之前,Excel设置选项→信任中心→信任中心设置→宏设置里需要打开
“启用所有宏”。
第一步:
将多个工作簿合并到一个工作簿
(1)把刚才导出的所有excel文件复制到一个新文件夹,如“高考志愿数据文件夹”。
(2)新建一个启用宏的工作薄,将其命名例如“2019年一本招生计划.xlsm”(具体是新建空工作簿,“另存为”为启用宏的工作薄xlsm),打开此工作簿。
(3)在“2019年一本招生计划.xlsm”下第一个工作表Sheet1标签上点击右键,选择“查看代码”。
(4)在打开的VBA编辑窗口中书写以下代码;
-------------------------------------代码开始----------------------------------------
Sub多个工作簿合并到一个工作簿()DimFileOpen
DimXAsIntegerApplication.ScreenUpdating=False
FileOpen=Application.GetOpenFilename(FileFilter:
="MicrosoftExcel文件
(*.xlsx),*.xlsx",MultiSelect:
=True,Title:
="合并工作薄")X=1
WhileX<=UBound(FileOpen)Workbooks.OpenFilename:
=FileOpen(X)
Sheets().MoveAfter:
=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X=X+1
WendExitHandler:
Application.ScreenUpdating=TrueExitSub
errhadler:
MsgBoxErr.DescriptionEndSub
-------------------------------------代码结束----------------------------------------
(5)关闭该VBA编辑窗口。
(6)在Excel中,开发工具---宏,选“多个工作簿合并到一个工作簿”,然后“执行”。
(7)在打开的对话窗口中,选择你要合并的多个工作薄(可以多选),等待运行。
(8)有学者们在“2019年一本招生计划.xlsm”的Excel文件里就能看到多个其他工作簿(各个院校招生计划)以多个Sheet(N)页的形式合并到了这一个工作簿中。
第二步:
将多个工作表合并成一个工作表
在“2019年一本招生计划.xlsm”工作簿中,有很多个Sheet页,有学者们的最终目的是把这多个Sheet(N)页合并到一个Sheet页的多行。
即把所有院校的招生计划放在同一个电子表格里。
其操作办法如下:
(1)在“一本招生计划”工作簿中,新建一个sheet工作表,如Sheet70。
(2)在新建的sheet70标签上单击右键,选择“查看代码”
(3)在打开的VBA编辑窗口中书写以下代码:
-------------------------------------代码开始----------------------------------------
Sub合并当前工作簿下的所有工作表()
Application.ScreenUpdating=FalseForj=1ToSheets.Count
IfSheets(j).Name<>ActiveSheet.NameThenX=Range("A65536").End(xlUp).Row+1Sheets(j).UsedRange.CopyCells(X,1)
EndIfNext
Range("B1").SelectApplication.ScreenUpdating=True
MsgBox"当前工作簿下的全部工作表已经合并完毕!
",vbInformation,"提示"
EndSub
-------------------------------------代码结束----------------------------------------
(4)关闭该VBA编辑窗口。
(5)在Excel中,开发工具---宏,选“合并当前工作簿下的所有工作表”,然后“执行”。
(6)等待运行,而后就在Sheet70里可以看到该工作簿里面的所有Sheet
(N)的内容连在一起了。
把Sheet70改名为“一本计划OK”
3、历年高考录取分数线、两线差数据的获取:
用OCR文字识别工具。
历年全国各高等院校从本省(自治区)招生投档分数线统计表可以网上
下载,但最可信的还是省级(自治区)考试院编发的本年《招生与考试》用书的中卷:
《院校专业录取数据卷》中的有关统计表。
用扫描仪扫描或用手机拍照扫描软件等方法可以获取该统计表的清晰照片。
不过无论是网上下载或扫描,都是图片文字,不能直接导入其中的数据到Excel表格。
笔者用手机版WPS(会员)的识别表格文字的OCR功能,用手机拍照进行转换。
为了保证清晰度,而提高识别的准确率,手机拍照扫描推荐“扫描全能王”app。
目前手机版WPS一次只能转换一张照片,可以保存为xls格式。
这里需要的所有表格拍照,并挨个识别完了后,在WPS文档里就有了很多xls表格了。
这时WPS文档列表中,选取多个文档,选“压缩分享”到微信的“文件助手”,在电脑PC版微信进行下载。
之后的步骤如下:
(1)文件解压缩到一个新文件夹里,如“历年数据文件夹”,逐个打开看一看每一个Excel文档,有没有识别错误的内容并核对纠正。
(2)这些文档要合并到一个Excel文件里的一个电子表格,操作步骤可以参考上面内容2中有学者们所述的《将多个Excel文件合并为一个电子表格》内容,这里不再重述了,合并出来的Excel文件名可以是“2016-2018分数线差位次统计表.xlsm”,合并后的电子表标签改名为“一本分数相差OK”。
(3)打开“2016-2018分数线差位次统计表.xlsm”,在最后增加“院校”
一列,其第4、5、6行写入一样的公式“=A3&B3&C3&D3&E3&F3”,鼠标选取此列第4、5、6、7行内容(即J3~J6),用鼠标抓住选取右下角的黑点,往下移动自动填充公式到列末。
(4)选取“院校”所处的整列→复制→选择性粘贴→数值。
第1行上面插入一行,写入标题内容。
(5)在A列前面插入一新列,在新列A2中写入“院校年份”,A3输入公式
“=K3&B3”,然后向下复制这个公式到结尾(小技巧:
公式输完按下
Enter键后,用鼠标双击单元格右下角的黑点,就向下快速自动填充)。
(6)选取“院校年份”所处的整列→复制→选择性粘贴→数值。
(7)按“院校”列进行从大到小的排序,删除下面部分的“院校”列为空的所有行。
二、合并电子数据
把招生计划电子数据和往年高考录取分数线、两线差数据合并为一,做填报志愿能参考的电子表格数据。
(1)新建的Excel文档,命名为“2019年高考志愿电子数据.xlsx”,并打开它。
(2)打开上面做出来的Excel数据文档“2019年一本招生计划.xlsm”
(3)在工作表“一本计划OK”标签上右击鼠标,选“移动或复制”,“工作簿”里选“2019年高考志愿电子数据.xlsx”,选中“建立副本”再确定。
(4)打开上面做出来的Excel文档“2016-2018分数线差位次统计表.xlsm”。
(5)在工作表“一本分数相差OK”标签上右击鼠标,选“移动或复制”,
“工作簿”里选“2019年高考志愿电子数据.xlsx”,选中“建立副本”再确定。
(6)Excel文档“2019年高考志愿电子数据.xlsx”的工作表“一本
计划OK”第二行末列,如N2打入“高校纯名”,在N3中输入“=LEFT(C3,FIND("",C3)-1)”,用这个公式往下自动填充这一列。
(7)在O2~V2中分别打入“2016批次线”,“2016最高分”,
“2016最高分线差”,“2016最低分”,“2016最低分线差”,
“2016最低分位次”,“2016平均分”,“2016平均分线差”。
(8)在O3~V3中分别打入同样的公式“=IFERROR(OFFSET(一本分数线差
OK!
$A$2,MATCH($N3&LEFT(O$2,4),一本分数线差
OK!
$M$3:
$M$1000,0),COLUMN()-12),"新增")”
(9)在W2~AD2中分别打入“2017批次线”,“2017最高分”,
“2017最高分线差”,“2017最低分”,“2017最低分线差”,
“2017最低分位次”,“2017平均分”,“2017平均分线差”。
(10)在W3~AD3中分别打入同样的公式“=IFERROR(OFFSET(一本分数线差
OK!
$A$2,MATCH($N3&LEFT(O$2,4),一本分数线差
OK!
$M$3:
$M$1000,0),COLUMN()-20),"新增")”
(11)在AE2~AL2中分别打入“2018批次线”,“2018最高分”,
“2018最高分线差”,“2018最低分”,“2018最低分线差”,
“2018最低分位次”,“2018平均分”,“2018平均分线差”。
(12)在AE3~AL3中分别打入同样的公式“=IFERROR(OFFSET(一本分数线差
OK!
$A$2,MATCH($N3&LEFT(O$2,4),一本分数线差
OK!
$M$3:
$M$1000,0),COLUMN()-28),"新增")”
(13)选取O3~AL3,把被选择区域右下角的黑点双击(及所有公式往下自动填充到列末位置)。
(14)公式结果正确无误后,选取整个工作表“复制→选择性粘贴→数值的方法”,所有公式换成纯数值,避免因单元格变动而数值变化等引起不必要的麻烦。
(建议把Excel文档“2019年高考志愿电子数
据.xlsx”另存为别的文档,然后把他改成纯数值)。
这样就招生计划内容与历年分数线差信息合在一起了,可以任意排序筛选。
二本和高职等其它批次也参照以上方法做出来。
结束语:
综上所述,本文介绍了用MicrosoftExcel电子表格的强大功能填报高考志愿的实际问题进行数字化的解决方法。
比较深入地挖掘Excel电子表
格的强大功能,介绍VBA的简单应用,为考生、家长和高三班主任老师们提供简单易行的可操作的方法,介绍了把高考志愿相关数据电子化的分析、排序、分类、归纳和整合的实用方法。
使高考填报志愿工作快速、准确、稳妥、实用、方便。
以后每届考生均可参照此方法将数据更新,进行操作,能够快速选出符合自己情况的院校和专业。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 高考填报志愿所需数据 Excel 电子表格制作方法docx 高考 填报 志愿 数据 电子表格 制作方法 docx