|
本帖最后由 mjzxlmg 于 2012-8-24 00:08 编辑
沉潜 发表于 2012-8-21 21:21
老师您好,这个学科分析系统我又添加了几个功能,还烦请您帮忙指点完善。
1、自动检测导入数据表头并导入 ... 三残儿童列的设置有点突兀,放在姓名列后好些,因为后面的列都是数值,写代码较易。
不过即使改过来,也要重写代码,工作量太大
计算总分可参考下面代码
Sub 计算总分()
Dim d As Object, arr, brr, i&, j&, sum
Set d = CreateObject("scripting.dictionary")
brr = Sheets("设置").[d5].CurrentRegion.Value
Sheets ("成绩源")
arr = .[a1].CurrentRegion.Value
ReDim crr(1 To UBound(arr), 1 To 1)
For j = 3 To UBound(brr, 2)
If brr(3, j) = "是" Then d(brr(1, j)) = brr(4, j)
Next
For i = 2 To UBound(arr)
sum = Empty
For j = 7 To UBound(arr, 2)
If d.exists(arr(1, j)) Then
If Len(arr(i, j)) Then
sum = sum + arr(i, j) * d(arr(1, j))
End If
crr(i, 1) = sum
End If
Next
Next
crr(1, 1) = "总分"
.[n1].Resize(UBound(arr)).ClearContents
.[n1].Resize(UBound(arr)).Value = crr
End With
Set d = Nothing
End Sub
|
|