一个自动换算等级的问题VBA请教

lizi12000 · 发表于 2019-1-21 19:43

本帖最后由 lizi12000 于 2019-1-21 20:40 编辑

各位大神好，现在在做年终评定，有一个小问题，详见附件，附件中问题写的很清楚，就是可以根据每个人的得分，先转化为百分比，之后根据百分数自动转化成ABCD评级，需要一个功能就是能够让人手动输入评价的总分，这样好折算百分比后再评级。如大家得分都是45，但输入满分是50之后，大家都是90%的得分，等级会变成A。
求各路大神支招，问题在附件应该比较容易理解，谢谢啊！！！

lizi12000 · 发表于 2019-1-21 19:44

在线等，第一次加入输入功能框，不知道有无大神可帮助实现？

lsc900707 · 发表于 2019-1-21 20:05

假设就在[e1]输入满分：

Sub gj23w98()
For i = 2 To Cells(Rows.Count, 1).End(3).Row
Cells(i, 3) = Cells(i, 2) * 100 / [e1]
Select Case Cells(i, 3)
Case Is >= 90
Cells(i, 3) = "A"
Case Is >= 80
Cells(i, 3) = "B"
Case Is >= 70
Cells(i, 3) = "C"
Case Is >= 60
Cells(i, 3) = "D"
Case Else
Cells(i, 3) = "E"
End Select
Next
End Sub

复制代码

lsc900707 · 发表于 2019-1-21 20:06

参考测试附件：

lizi12000 · 发表于 2019-1-21 20:13

lsc900707 发表于 2019-1-21 20:05
假设就在[e1]输入满分：

我给你跪了版主！代码精辟易懂，谢谢我爱你！！！

lsc900707 · 发表于 2019-1-21 20:16

lizi12000 发表于 2019-1-21 20:13
我给你跪了版主！代码精辟易懂，谢谢我爱你！！！

呵呵，假以时日，你也可以做到的。一起加油！

张道贤 · 发表于 2019-1-21 22:47

case 也是判断语句中的一类，
跟elseif 同理
时间长了自然也就理解了

		自动登录	找回密码
密码			免费注册

[求助] 一个自动换算等级的问题VBA请教

评分

评分