员工交叉互评统计，怎么把人数增加到150

DFWZP

在论坛下载了这个员工交叉互评统计。  我很想用这个，但是我的人数是150，要怎么更改呢，我改了之后就不运算了。哪位高手给帮忙改一下。谢谢了。

liulang0808

楼主将表格内容改成150个人员之后
将截图中红色部分对应到150人员表格位置调整看看吧

DFWZP

liulang0808 发表于 2018-6-22 14:32
楼主将表格内容改成150个人员之后
将截图中红色部分对应到150人员表格位置调整看看吧

实验了，不行呢，能不能帮忙改好发给呢。改了运算出错。

liulang0808

DFWZP 发表于 2018-6-22 14:46
实验了，不行呢，能不能帮忙改好发给呢。改了运算出错。

楼主将改好的模板发上来呗

DFWZP

liulang0808 发表于 2018-6-22 14:47
楼主将改好的模板发上来呗

麻烦你了，谢谢，

liulang0808

1. Private Sub CommandButton1_Click()
   
2. k = WorksheetFunction.Match([b1], Sheet2.[b3:b152], 0) + 2
   
3. m = 0
   
4. For i = 0 To 151
   
5.   If i = k - 3 Then
   
6.   Sheet2.Range("c" & k).Offset(0, i) = ""
   
7.   Else
   
8.   Sheet2.Range("c" & k).Offset(0, i) = [b4].Offset(m)
   
9.   m = m + 1
   
10.   End If
    
11. Next
    
12. [b4:b152].ClearContents
    
13. End Sub
    
14. 
    
15. Private Sub Worksheet_Change(ByVal Target As Range)
    
16.     If Target.Address(0, 0) = "B1" Then
    
17.         Application.EnableEvents = False
    
18.         Application.ScreenUpdating = False
    
19.         a = 4
    
20.         For j = 1 To 150
    
21.             If Cells(j, "m") <> [b1] Then
    
22.                 Cells(a, 1) = Cells(j, "m")
    
23.                 a = a + 1
    
24.             End If
    
25.         Next j
    
26.         Application.ScreenUpdating = True
    
27.         Application.EnableEvents = True
    
28.         
    
29.     End If
    
30. End Sub
    

复制代码

liulang0808

删除了一个公式，增加了表格事件，另外也修改了一个数组公式
还有楼主的模板制作真的是应付啊。。。

DFWZP

liulang0808 发表于 2018-6-22 15:18
删除了一个公式，增加了表格事件，另外也修改了一个数组公式
还有楼主的模板制作真的是应付啊。。。

谢谢大侠了，因为怕您等的着急，模板是弄的差