Question

求大神帮忙用Excel写个VB程序题目，很简单的

题目如图，请把VB程序写给我，谢谢
找不到上传附件按钮，所以传百度云了

http://yun.baidu.com/share/link?shareid=3983175625&uk=2785103415

Answer 1

Sub 计算()
    For i = 2 To 4
        Cells(i, 5) = Application.WorksheetFunction.Sum(Range(Cells(i, 2), Cells(i, 4)))
        Cells(i, 7) = Cells(i, 2) + 15
        If Cells(i, 7) > 100 Then Cells(i, 7) = 100
        '由于这里不知道说的是哪一个>150,因此这里用了总分来判断
        '你可以自己修改为对应的列,i是表示第几行,5是表示第5列,所以cells(2,5)就是E2的意思
        If Cells(i, 5) >= 150 Then
            Cells(i, 9) = "很棒"
        ElseIf Cells(i, 5) >= 100 Then
            Cells(i, 9) = "优"
        Else
            Cells(i, 9) = "加油"
        End If
    Next
     For i = 2 To 4
        Cells(i, 6) = Application.WorksheetFunction.Rank(Cells(i, 5).Value, Range("E2:E4"))
        Cells(i, 8) = Application.WorksheetFunction.Rank(Cells(i, 7).Value, Range("G2:G4"))
     Next
End Sub

追问

如果加总分的时候要用回圈来做呢？而且第二个名次是指前面的数学英文成绩加上调整后的国文成绩..
麻烦大神再帮帮忙QwQ

追答

回圈是什么鬼。。。

追问

台湾人的说法.回圈执行 就是用for来写..

追答

把你的excel发给我。我没数据了。
上传下附件

Answer 2

函数就可以完成
还需要VBA大炮？
或者是繁体的意思不同？

追问

和繁简体没关系........要求就是要用VBA一个个写出来，但是我不会写编码QAQ

追答

这是完整的效果