[已解决]教学调查汇总

dyzx

1、在“教学情况调查表汇总”工作簿中汇总“班级调查表”里所有同时一个班调查表求和（即将班级调查表里所有一（1）班调查表按项目汇总到“教学情况调查表汇总”中1班位置，A多少个、B多少个、C多少个）。
2、根据老师任课表列出个人统计表（如黄生1教两个班语文，就将这两个班语文科汇总到个人统计表中）。
   多谢各位老师指教，多谢

最佳答案

月排行榜 / 总排行榜

grf1973

2015-1-19 11:00

这下总可以了吧。。。。。。。。。

跳转到最佳答案楼层

grf1973

1. Sub 导入文件()
   
2.     Application.ScreenUpdating = False
   
3.     Dim filename, wb As Workbook, Sht As Worksheet
   
4.     filename = Dir(ThisWorkbook.Path & "\班级调查表\*.xls")
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     Dim brr(1 To 10000, 1 To 1)
   
7.     Do While filename <> ""
   
8.         If filename <> ThisWorkbook.Name Then
   
9.             fn = ThisWorkbook.Path & "\班级调查表" & filename
   
10.             Set wb = Workbooks.Open(fn)
    
11.             Set Sht = wb.Worksheets(1)
    
12.             arr = Sht.[a1:s15]
    
13.             bj = Val(Split(filename, "（")(1))     '班级名
    
14.             For i = 4 To 14
    
15.                 For j = 5 To 18
    
16.                     x = bj & arr(i, 2) & arr(2, j) & arr(i, j)    '班级+项目+学科+评价为key
    
17.                     d(x) = d(x) + 1       '计数
    
18.                 Next
    
19.             Next
    
20.             If arr(15, 3) <> "" Then
    
21.                 n = n + 1
    
22.                 brr(n, 1) = Split(filename, "班")(0) & "班：" & arr(15, 3)     '对老师的建议存入数组brr
    
23.             End If
    
24.             wb.Close False
    
25.         End If
    
26.         filename = Dir
    
27.     Loop
    
28.     Set Sht = Nothing
    
29.    
    
30.     crr = Sheet1.Range("a1:au231")
    
31.     For i = 1 To 217 Step 18
    
32.         xk = Mid(crr(i, 1), 9, 2)
    
33.         For k = i + 3 To i + 13
    
34.             For j = 3 To 47
    
35.                 bj = IIf(crr(i + 1, j) = "", crr(i + 1, j - 1), crr(i + 1, j))     '班级
    
36.                 bj = Val(bj)
    
37.                 x = bj & crr(k, 2) & xk & crr(i + 2, j)     '班级+项目+学科+评价
    
38.                 crr(k, j) = d(x)   '填充汇总数
    
39.             Next
    
40.         Next
    
41.     Next
    
42.     Sheet1.Range("a1:au231") = crr
    
43.     Sheet3.[a20].Resize(n, 1) = brr
    
44.     Application.ScreenUpdating = True
    
45. End Sub

复制代码

grf1973

请看附件。各学科名取前两个字符。由于建议每人只有一条，没分到学科，所以只保留了班级+建议的形式，在sheet3中体现。

dyzx

grf1973 发表于 2015-1-15 12:08
请看附件。各学科名取前两个字符。由于建议每人只有一条，没分到学科，所以只保留了班级+建议的形式，在she ...

grf1973老师：汇总就是这个效果，但个人统计部分就没有数据显示，个人统计表就是根据老师任课表统计各个老师所教班级的总和（如黄生1只教一（1）班语文，所以只统计一（1）班（像个人统计表中的样表），黄生9教1班和2班数学，所以就将这两个班合起统计成一个表，多谢指教

grf1973

开会，没时间做。明天有空再说了。

dyzx

grf1973 发表于 2015-1-15 16:04
开会，没时间做。明天有空再说了。

多谢grf1973老师

grf1973

费了老半天。。。。。。。

grf1973

建议还是分班级，把所有同班的建议放在一起，只要那个老师是教那个班的就能看到。

grf1973

还要再改。。。。没考虑一个老师教多个班的情况。。。。。。。

dyzx

grf1973 发表于 2015-1-16 12:17
还要再改。。。。没考虑一个老师教多个班的情况。。。。。。。

grf1973老师：我认为一个老师教多个班时将汇总成一张表，任教班级一栏只写数字（如1班只写1、2班只写2就可以了），同时建议最好汇总到另一张表中（如上次一样，格式班级+建议），多谢指教。