VBA实例:高考分数投档指数分析(数据准备:计算线差;计算省排名)
2020-09-02 23:32
2076 查看
'当前页:ThisWorkbook.Worksheets("院校投档分数线") Sub 计算线差() Dim I%, years$ Dim rng As range years = InputBox("请输入处理年份:", "年份", "") If years <= ThisWorkbook.Worksheets("备选院校").[B2] Then [j1] = "处理条数:" I = 1 For Each rng In ThisWorkbook.Worksheets("院校投档分数线").range("B2", [B2].End(xlDown)) If rng = "" Then Exit For ElseIf rng = years Then If rng(1, 7) <> "" And I = 1 Then MsgBox "数据已生成!" Exit Sub End If I = 0 If rng(1, 2) = "本科一批院校A段" Or rng(1, 2) = "本科二批院校A段" Then rng(1, 7) = 查排名(Int(rng(1, 6)), rng, rng(1, 4)) rng(1, 8) = Int(rng(1, 6) - 查投档线(rng(1, 2), rng, rng(1, 4))) End If [k1] = rng.Row [l1] = rng(1, 5) End If Next rng MsgBox "处理完毕!" Else MsgBox "请输入正确年份!" End If End Sub
'当前页:ThisWorkbook.Worksheets("院校分专业入取线") Sub 计算排名() Dim I%, years$ Dim rng As range years = InputBox("请输入处理年份:", "年份", "") If years <= ThisWorkbook.Worksheets("备选院校").[B2] Then [N1] = "处理条数:" I = 1 For Each rng In ThisWorkbook.Worksheets("院校分专业入取线").range("B2", [B2].End(xlDown)) If rng = "" Then Exit For ElseIf rng = years Then If rng(1, 9) <> "" And I = 1 Then MsgBox "数据已生成!" Exit Sub End If I = 0 If rng(1, 3) = "本科一批院校A段" Or rng(1, 3) = "本科二批院校A段" Then fc = 查投档线(rng(1, 3), rng, rng(1, 2)) rng(1, 9) = 查排名(rng(1, 7), rng, rng(1, 2)) rng(1, 10) = 查排名(rng(1, 8), rng, rng(1, 2)) rng(1, 11) = rng(1, 7) - fc rng(1, 12) = rng(1, 8) - fc End If End If [O1] = rng.Row [P1] = rng(1, 5) Next rng MsgBox "处理完毕!" Else MsgBox "请输入正确年份!" End If End Sub
相关文章推荐
- VBA实例:高考分数投档指数分析(备选院校页)
- VBA实例:高考分数投档指数分析(表格模板)
- 零食行业python数据分析实例——基于淘宝搜索排名分析
- 大数据workshop:《云数据·大计算:海量日志数据分析与应用》环境准备
- 云栖大会·杭州峰会:《云数据·大计算:海量日志数据分析与应用》环境准备
- Scala简单计算实例,其在数据分析方面的优势体会
- 【利用Python进行数据分析——经验篇2】计算微博转发/评论/点赞h指数的Python代码
- Python数据分析处理(二)——数据的标准化处理归一化(极差变换)以数学建模(CUMCM 2011 A)为实例(两表同名行列对应计算)
- 大数据workshop:《云数据·大计算:海量日志数据分析与应用》环境准备
- 大数据workshop:《云数据·大计算:海量日志数据分析与应用》环境准备
- python数据分析准备(安装python和canopy用于科学计算)
- 如何让数据说话! —网站实例分析
- 2017杭州·云栖大会---大数据workshop:《云数据·大计算:海量日志数据分析与应用》之《数据采集:日志数据上传》篇
- 机器学习实例第二章:数据分析
- 数据分析的深度分析决定排名的作用(两)
- 2017云栖大会·杭州峰会:《云数据·大计算:海量日志数据分析与应用》之《数据分析展现:可视化报表及嵌入应用》篇
- 实例!软件缺陷数据度量和分析
- 200410 笔试某居游戏公司数据分析岗前的准备
- 上海历届高考分数参谋以及专家分析
- 通过实例快速掌握sklearn中的kmeans聚类----python数据分析,聚类,pandas