网上找的代码,修改了一下,以适应需要^^。
- Sub 计算()
- Dim H%, L%, Sum#, c%, d#, f%, Avc!, Col$ '变量的类型需要注意
- n = Val(InputBox("请输入人数:", "绩点统计"))
- For H = 4 To n + 3 '分数统计从第四行开始
- Sum = 0
- c = 0
- For L = 3To 21 '前两行为个人信息
- Col = Chr(64 + L) '确定列标
- If IsNumeric(Range(Col & H)) And Not IsEmpty(Range(Col & H)) Then
- f = Val(Range(Col & H))
- If f >= 90 Then d = 4
- If f >= 85 And f < 90 Then d = 3.5