求助高手帮忙完善和修改一下代码。

戎马书生222

   学号127040015的学生，最开始政治学科是37分。查询之后得知他的选课组合是“物化生”

应该清空他的政治成绩，总分计算为0.
  运行程序之后，政治清空了，可是总分没变成0，瞅了一天，没找到原因。请高手给修正一下。

小凡、、、

数组虽然被清空了，但是单元格值还在，可以改下思路，把arr赋值万后再在O列进行求和

ynzsvt

直接用内存Arr数值逐个相加。

macrov

数组和单元格计算，一次只能用一种，多了必然出错：它们之间很难建立起来交互的桥梁

1. Sub clear()
   
2.     Call vlookup '自定义过程或函数的名字，最好不要和系统内置的重复
   
3.    
   
4.     Application.ScreenUpdating = False
   
5.     Dim i&, j&, d As Object
   
6.     Dim rng As Range
   
7.     Dim cell As Range
   
8.     Sheets("成绩处理").Activate
   
9.     maxrow = Cells(Rows.Count, "B").End(3).Row
   
10.     Set rng = Sheets("成绩处理").Range("s1:s" & maxrow)
    
11.     Set d = CreateObject("scripting.dictionary")
    
12.     arr = Sheets("成绩处理").Range("a1").CurrentRegion
    
13.     brr = Sheets("学生信息").Range("a1").CurrentRegion
    
14.     With Sheets("学生信息")
    
15.         For i = 2 To UBound(brr, 1)
    
16.             If Not d.exists(brr(i, 1)) Then
    
17.                 d(brr(i, 1)) = brr(i, 5)  '考号为字典的键值，语种为项目
    
18.             End If
    
19.         Next i
    
20.     End With
    
21.    
    
22.     With Sheets("成绩处理")
    
23.         For j = 2 To UBound(arr, 1)
    
24.             yz = d(arr(j, 2))
    
25.             Select Case yz
    
26.                 Case "英"
    
27.                     arr(j, 7) = ""
    
28.                     arr(j, 8) = ""
    
29.                 Case "日"
    
30.                     arr(j, 6) = ""
    
31.                     arr(j, 8) = ""
    
32.                 Case "西"
    
33.                     arr(j, 6) = ""
    
34.                     arr(j, 7) = ""
    
35.                 Case Else
    
36.             End Select
    
37.         Next j
    
38.         
    
39.         k = 1
    
40.         '修正非本组合的其它学科成绩
    
41.         Do While k < maxrow
    
42.             k = k + 1
    
43.             Select Case Sheets("成绩处理").Cells(k, 19).Value
    
44.                 Case "政史地"
    
45.                     arr(k, 9) = ""
    
46.                     arr(k, 10) = ""
    
47.                     arr(k, 11) = ""
    
48.                     arr(k, 15) = WorksheetFunction.Sum(Range("d" & k & ":N" & k))
    
49.                 Case "物化生"
    
50.                     arr(k, 12) = ""
    
51.                     arr(k, 13) = ""
    
52.                     arr(k, 14) = ""
    
53.                     arr(k, 15) = WorksheetFunction.Sum(Range("d" & k & ":N" & k))
    
54.                 Case "物化地"
    
55.                     arr(k, 11) = ""
    
56.                     arr(k, 12) = ""
    
57.                     arr(k, 13) = ""
    
58.                     arr(k, 15) = WorksheetFunction.Sum(Range("d" & k & ":N" & k))
    
59.                 Case "政史生"
    
60.                     arr(k, 9) = ""
    
61.                     arr(k, 10) = ""
    
62.                     arr(k, 14) = ""
    
63.                     arr(k, 15) = WorksheetFunction.Sum(Range("d" & k & ":N" & k))
    
64.                 Case Else
    
65.                     MsgBox "难道还有没有处理的类型？"
    
66.             End Select
    
67.         Loop
    
68.     End With
    
69.    
    
70.     [a1].Resize(UBound(arr), 19) = arr
    
71.     Set d = Nothing
    
72.    
    
73.     Application.ScreenUpdating = True
    
74.     MsgBox "OK"
    
75.    
    
76. End Sub

复制代码

戎马书生222

感谢小凡。明白了