用excel宏计算学分绩

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

 

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