[已解决]代码测试

642070295

各位大师，深夜好！有个附件里的代码麻烦帮测试一下 ，看看错在哪里？并给予纠正代码 附件66.rar (98.18 KB, 下载次数: 10)

2014-3-3 23:03 上传

点击文件名下载附件    先谢谢了！急呀！！！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-4 09:47

642070295 发表于 2014-3-4 09:11
啊......再请教一下，程序中用goto语句有什么副作用（影响）吗？

如果你代码不是很熟，流程过多跳转不易读。

跳转到最佳答案楼层

hwc2ycy

n为空值。

hwc2ycy

看错了，这个单元格是错误值，这样比较是会出错的。

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Dim m&, j&, p&, n$, s$, arr
   
4.     '（五）减余l
   
5.     m = Sheets("rK").[o1048576].End(xlUp).Row
   
6. step2:     For j = m - 59 To m - 15
   
7.         If Sheets("rK").Cells(j, "u") > 0 Then
   
8.             Exit For
   
9.         End If
   
10.     Next j
    
11.     '   If j = m + 1 Then GoTo step3
    
12.     If Application.CountIf(Sheets("rK").Range("u" & m - 59 & ":u" & m - 15), ">0") = 0 Then GoTo step3
    
13.     If Not IsError(Sheets("rK").Cells(j, "n").Value) Then
    
14.         If Sheets("rK").Cells(j, "n").Value = "b" Then
    
15.             If Sheets("rK").[m2] >= 2 Then
    
16.                 Sheets("rK").Cells(m - 15, "o") = "=if(n" & m - 15 & "=""b"",b" & m - 15 & "-$U$" & j & "/( $m$2-1),b" & m - 15 & ")": n = "b"
    
17.             End If
    
18.         End If
    
19.     End If
    
20.     Sheets("rK").Cells(m - 15, "o").AutoFill Destination:=Sheets("rK").Range("o" & m - 59 & ":o" & m - 15 & ""), Type:=xlFillDefault
    
21.     For p = m - 59 To m - 15
    
22.         If Not IsError(Sheets("rK").Cells(p, "n").Value) Then
    
23. 
    
24.             If Sheets("rk").Cells(p, "n") = n Then
    
25.                 s = s & "," & Sheets("rK").Cells(p, 1)
    
26.             End If
    
27.         End If
    
28. 
    
29.     Next p
    
30.     Sheets("rK").Cells(j, "o") = 0
    
31. rqxs:     arr = Split(Mid(s, 2), ",")
    
32.     If UBound(arr) <> -1 Then
    
33.         Sheets("rK").[q5].Resize(, UBound(arr) + 1) = arr
    
34.     End If
    
35.     MsgBox "完毕！"
    
36. step3:     Exit Sub
    
37. End Sub
    

复制代码

没改，只把出错的地方加了点判断。

642070295

hwc2ycy 发表于 2014-3-3 23:17
没改，只把出错的地方加了点判断。

j=400
Sheets("rK").Cells(j, "n") = "b"
在表格中是符合条件的呀！？怎么会出错了呢？搞不懂还是麻烦老师帮改好代码吧？！

hwc2ycy

j=400时单元格cells(j,"n")是没错，可你的代码执行后，压根不会运行到400这个值，你F8试试。
step2: For j = m - 59 To m - 15
         If Sheets("rK").Cells(j, "u") > 0 Then
            Exit For
         End If
       Next j
另外，建议少用GOTO。
j的值就只出现过365一次。

642070295

hwc2ycy 发表于 2014-3-4 08:44
j=400时单元格cells(j,"n")是没错，可你的代码执行后，压根不会运行到400这个值，你F8试试。
step2: For j ...

啊......再请教一下，程序中用goto语句有什么副作用（影响）吗？

hwc2ycy

642070295 发表于 2014-3-4 09:11
啊......再请教一下，程序中用goto语句有什么副作用（影响）吗？

如果你代码不是很熟，流程过多跳转不易读。

642070295

hwc2ycy 发表于 2014-3-4 09:47
如果你代码不是很熟，流程过多跳转不易读。

好的，谢谢姐姐！