[已解决]自动将成绩转为等级

yh21cn

请看附件~~谢谢~~

最佳答案

月排行榜 / 总排行榜

youfang

2014-6-9 09:44

1. Sub 转换()
   
2. Dim rg As Range
   
3. For Each rg In [b2:c7]
   
4. Select Case rg
   
5. Case Is > 89
   
6. rg = "优"
   
7. Case Is > 79
   
8. rg = "良"
   
9. Case Is > 59
   
10. rg = "中"
    
11. Case Is >= 0
    
12. rg = "差"
    
13. End Select
    
14. Next
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

蓝粆

{:28:}

1. =LOOKUP(B2,{0,"差";60,"中";80,"良";90,"优"})

复制代码

youfang

换成等级的结果放在哪里？是不是要覆盖原数据？

yh21cn

youfang 发表于 2014-6-9 09:32
换成等级的结果放在哪里？是不是要覆盖原数据？

对的，直接覆盖原来的成绩

youfang

1. Sub 转换()
   
2. Dim rg As Range
   
3. For Each rg In [b2:c7]
   
4. Select Case rg
   
5. Case Is > 89
   
6. rg = "优"
   
7. Case Is > 79
   
8. rg = "良"
   
9. Case Is > 59
   
10. rg = "中"
    
11. Case Is >= 0
    
12. rg = "差"
    
13. End Select
    
14. Next
    
15. End Sub
    

复制代码

tgydslr

yh21cn 发表于 2014-6-9 09:36
对的，直接覆盖原来的成绩

自定义格式

savagery1982

没有比这里更热心的人了。