用excel宏计算学分绩

这段代码展示了一个Excel宏,用于计算输入人数后的学分绩点。宏从第四行开始处理数据,遍历每列(从第3列到第21列),根据分数或等级计算绩点并累加学分,最后计算平均绩点。用户通过输入框提供人数,结果存储在AA, AB和AC列。" 88081263,8371780,B树与B+树详解,"['数据库理论', '数据结构']
摘要由CSDN通过智能技术生成

网上找的代码,修改了一下,以适应需要^^。

 

Code:
  1. Sub 计算()   
  2. Dim H%, L%, Sum#, c%, d#, f%, Avc!, Col$      '变量的类型需要注意
  3. n = Val(InputBox("请输入人数:""绩点统计"))   
  4. For H = 4 To n + 3         '分数统计从第四行开始
  5.     Sum = 0   
  6.     c = 0   
  7.     For L = 3To 21         '前两行为个人信息
  8.   
  9.             Col = Chr(64 + L)     '确定列标
  10.            
  11.         If IsNumeric(Range(Col & H)) And Not IsEmpty(Range(Col & H)) Then   
  12.             f = Val(Range(Col & H))   
  13.             If f >= 90 Then d = 4   
  14.             If f >= 85 And f < 90 Then d = 3.5
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值