Excel成绩表中自动将等级转换为分数
在评分的时候,我们往往需要将A、B、C、......等级转换为对应的分数,下表是一个例子
做成绩册转换的时候我们要对比某学生的等级然后输入相应的分数,比如A等为90分,在分数栏中输入90。如果全部用手工转换很麻烦的,也可以用excel 的函数来解决,这里提供了一个用VBA实现自动转换分数的例子,扩展性很好。
首先我们建立两张表:成绩表(名称为Sheet1)和转换标准表(名称为standard),如下图所示
转换标准表中给出了等级对应的分数,根据情况可以设置为你想要的等级和分数
在工作簿底部的Sheet1上右键点击弹出对话框选择“查看代码”
打开VBA编辑器,在编辑器中的第一个下拉列表中选择Worksheet,在第二个下拉列表中选择BeforeDoubleClick(意思是双击会执行这段代码)
在程序Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)中输入下列代码:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)TotalNum = 20 '学生总数StartNum = 2 '开始行号GradeColumn = 5 '等级列ScoreColumn = 6 '分数列,这列的分数将自动计算StdGradeColumn = 1 'standard中的等级列StdScoreColumn = 2 'standard中的等级对应的分数列GradeNumber = 10 'standard中的等级个数,自己可以任意设置多个等级For i = StartNum To TotalNum + StartNum - 1Set std = Worksheets("Sheet1").Cells(i, GradeColumn)For j = 2 To GradeNumber + 1SelectI = 1Set Table = Worksheets("standard").Cells(j, StdGradeColumn)If StrComp(std.Value, Table.Value, 1) = 0 Then '比较文本SelectI = jExit ForEnd IfNext jWorksheets("Sheet1").Cells(i, ScoreColumn) = Worksheets("standard").Cells(SelectI, StdScoreColumn)Next i
End Sub
其中
TotalNum = 11 '学生总数
StartNum = 2 '开始行号
GradeColumn = 5 '等级列
ScoreColumn = 6 '分数列,这列的分数将自动计算
StdGradeColumn = 1 'standard中的等级列
StdScoreColumn = 2 'standard中的等级对应的分数列
GradeNumber = 10 'standard中的等级个数,自己可以任意设置多个等级
这些参数需要根据Sheet1和standard两个表单来设置
输入代码后如下图所示:
保存代码,然后在Sheet1表单中双击,则会自动计算出相应的分数,见下图
Excel成绩表中自动将等级转换为分数相关推荐
- 电脑表格日期怎么修改原有日期_如何在Excel表中自动生成记录数据的日期和时间...
几天前有人问我: 在Excel表格中输入信息时,如何在日期单元格中自动生成日期和时间? 输入表格时,我们经常需要输入时间,而不是填写存储时间,为了减少输入工作量,您可以将日期设置为自动生成. 例如,当 ...
- 大学综合测评中,使用VBA代码自动完成EXCEL成绩表
更新:2014-04-18 下午 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ...
- 用计算机求函数总分 平均分,老师如何在Excel学生成绩表中一键生成总分和各科平均分...
原标题:老师如何在Excel学生成绩表中一键生成总分和各科平均分 每次学生考完试,阅卷打分就已经很累了,还要把学生成绩录入到Excel电子表格中 老师们都知道Excel电子表格具有强大的函数计算功能, ...
- 如何设置Oracle工作表有提示,excel表格中自动数据提醒-excel工作表中如何自动跳出提醒框...
excel表格怎么设置到期日前自动提醒功能 菜单项〉工具>选项.在图中选择.在弹出的对话框中把"记忆式键入"前面的对勾去掉行了. 详见图示. 在Excel表格里面怎样设置&q ...
- 计算机用公式找出第一名,用公式查找Excel工作表中重复数据
前不久,一位网友求教,要求找出Excel工作表中的重复数据并在单元格中列出.我给出了一个数组公式供参考,但不是太符合要求,因为这个数组公式虽然找出了重复数据,但是如果将数组公式向下复制时超出了出现重复 ...
- access统计班级人数_Excel中怎么快速统计成绩表中分数段人数 - 卡饭网
Excel 五个函数统计学生期末考试分数段 Excel 五个函数统计学生期末考试分数段 考试结束,老师们都要对学生的考试成绩进行分析.各分数段人数的统计是其中一项必做的工作.在Excel中,怎样快速准 ...
- 计算机函数if80到90分怎么弄,用EXCEL工作表怎样利用IF函数计算分数等级
用EXCEL工作表怎样利用IF函数计算分数等级 01 打开保存有分数的表格,如图所示.这里假设分数设为 A:90分以上(含90) B:80~89 C:70~79 D:60~69 E:60以下(不含60 ...
- 在excel工作表中c1单元格_Excel工作表中的11个逻辑函数应用技巧,中文解读,动图演示!...
逻辑函数,简单的理解就是返回结果为TRUE或FALSE的函数.TRUE,代表判断后的结果是真的,正确的,也可以用1表示:FALSE,代表判断后的结果是假的,错误的,也可以用0表示.在Excel工作表中 ...
- 符号在excel中的引用_如何在Excel工作表中添加表情符号
&符号在excel中的引用 In the old days, we typed emoticons in our messages, to show a grin, or wink, etc. ...
最新文章
- $.messager.confirm (使用$.messager.defaults修改按钮显示文字)
- 无限遍历,Python实现在多维嵌套字典、列表、元组的JSON中获取数据
- python制作视频播放器_Python应用03 使用PyQT制作视频播放器
- 现代程序设计 作业9 - 综合练习
- TypeError: cannot perform reduce with flexible type
- 无法将 char 值转换为 money。该 char 值的语法有误。_java 基础语法 (下)
- 面向对象-day02
- linux内核奇遇记之md源代码解读之一
- ECMAScript6 新特性——“数组的扩展”
- Oracle PL/SQL游标的学习
- ubuntu18.04安装微信
- python-opencv2利用 cv2.findContours()函数来查找检测物体的轮廓
- 【观察】PowerMax:高端存储,中国制造
- 下一代Windows命名为Win 11?微软的下一步要来了
- c语言软件如何调字间距,sublime text2如何更改行间距和字符间距?
- WPS文件转Excel文件怎么转?建议看看这些方法
- 微信支付V3-下载交易账单
- (转)Visual SourceSafe (VSS的使用方法)使用方法
- RISC-V 实现整数运算指令(Part 2)
- c# asp.net mvc使用斑马GK888t打印机打印标签