等级划分的多种方法

作者：绿色风分类：时间：2022-08-18 浏览：465

楼主尛安	Q:如何根据不同条件划分不同等级 A：分别有三个方法：一、函数二、SQL 三、VBA 分别如下：一、函数法： 1、IF方法 =IF(A2<60,"不及格",IF(A2<80,"及格",IF(A2<90,"良好","优秀"))) 2、lookup方法 =LOOKUP(A2,{0,60,80,90},{"不及格","及格","良好","优秀"}) 二、SQL方法： 1、IIF方法： select iif(成绩<60,"不及格",iif(成绩< 80,"及格",iif(成绩<90,"良好","优秀"))) as 成绩状况 from [Sheet1$] where 成绩 is not null 2、switch方法： select switch(成绩<60,"不及格",成绩< 80,"及格",成绩<90,"良好",成绩>=90,"优秀") as 成绩状况 from [Sheet1$] where 成绩 is not null 示例动画：三、VBA方法： 1、if方法： Sub 方法一() For i = 2 To 9 If Cells(i, 1) < 60 Then Cells(i, 2) = "不及格" ElseIf Cells(i, 1) < 80 Then Cells(i, 2) = "及格" ElseIf Cells(i, 1) < 90 Then Cells(i, 2) = "良好" Else: Cells(i, 2) = "优秀" End If Next End Sub 2、select case方法： Sub 方法二() For i = 2 To 9 Select Case Cells(i, 1).Value Case 0 To 59 Cells(i, 2) = "不及格" Case 60 To 79 Cells(i, 2) = "及格" Case 80 To 89 Cells(i, 2) = "良好" Case Is > 89 Cells(i, 2) = "优秀" End Select Next End Sub 三、iif方法： Sub 方法三() For i = 2 To 9 Cells(i, 2) = IIf(Cells(i, 1) < 60, "不及格", IIf(Cells(i, 1) < 80, "及格", IIf(Cells(i, 1) < 90, "良好", "优秀"))) Next End Sub 删除B2：B9 Sub 删除() For I = 2 To 9 Cells(I, 2).Clear Next End Sub 示例动画：等级划分的多种方法.rar
2楼 angel928	3种方式，我只会函数。余下的2个要学习。谢谢队友分享。
3楼海洋之星	整理很好,
4楼海洋之星	需要修改的地方: 1、如果用"ｅ问ｅ答"形式,必须是有问有答 2、相同方法，不同解法需要将代码分开写，不然会让人误解。 3、附件名称应修改，让人一看就知道是什么内容
5楼尛安	收到！第一次发帖未必会出问题我下次会注意的要多看多学谢谢你的指点
6楼海洋之星	自己修改一下吧
7楼海洋之星	还有一点,你的ID也错了:
8楼尛安	我队长（你**）说没事的可以这样写的
9楼 Rongson_Chart	整理的真好！学习
10楼 aimstar	分析的很全面，支持
11楼尛安	昨天刚刚会的第三种方法
12楼 hylees	安安真棒
13楼 lichuntong	在B2单元格输入 =LOOKUP(A2,{0,"不及格";60,"及格";80,"良好";90,"优秀"})

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表