VBA案例：求总分、平均分、成绩等级、标记颜色

最新推荐文章于 2024-01-25 22:40:51 发布

学习使我快乐……

最新推荐文章于 2024-01-25 22:40:51 发布

阅读量2k

点赞数

分类专栏： vba

本文链接：https://blog.youkuaiyun.com/qq_34755115/article/details/117597170

版权

使用VBA进行成绩统计，包括计算个人总分、平均分，并根据成绩给出等级评定。同时，若科目成绩低于60分，将该成绩单元格标记为红色。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

需求

计算出单个人员的总分、平均分、成绩等级
各科目小于60分标记红色

解决方法

Option Explicit
Sub TEST()
    Dim HANG, ZONG, PING, LIE
    HANG = 2 '行号
    Do While Cells(HANG, 1) <> "" '第二行第一列不为空，遇到为空的行停止
        For LIE = 2 To 5 '列号，每行均有4列数据
            If Cells(HANG, LIE) < 60 Then
                C