[已解决]请问老师，vba有没有bug?

zhu918918

各位老师，附件中我改了n遍，总得不到正确值，请老师帮忙修改！十分感谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-9 08:22

1. Private Sub CommandButton1_Click()
   
2.     With Sheet1
   
3. 
   
4.         zhi = "|1|2|3|5|7|11|13|17|19|23|29|31|"
   
5.         .Range("ab2:ah37").ClearContents
   
6. 
   
7.         For j = 1 To 7
   
8.             For i = 1 To 36
   
9. 
   
10.                 If InStr(zhi, "|" & i & "|") = 0 Then zh = 0 Else zh = 1
    
11.                 If Cells(7, j + 1) <> "" And zh = Cells(7, j + 1) Then a = ""
    
12. 
    
13. 
    
14.                 If a = 0 Then Cells(i + 1, j + 27) = i
    
15.                 a = 0: b = 0
    
16.             Next
    
17.         Next
    
18.     End With
    
19. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

a=""时，a=0是成立的。

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     With Sheet1
   
3. 
   
4.         zhi = "|1|2|3|5|7|11|13|17|19|23|29|31|"
   
5.         .Range("ab2:ah37").ClearContents
   
6. 
   
7.         For j = 1 To 7
   
8.             For i = 1 To 36
   
9. 
   
10.                 If InStr(zhi, "|" & i & "|") = 0 Then zh = 0 Else zh = 1
    
11.                 If Cells(7, j + 1) <> "" And zh = Cells(7, j + 1) Then a = ""
    
12. 
    
13. 
    
14.                 If a = 0 Then Cells(i + 1, j + 27) = i
    
15.                 a = 0: b = 0
    
16.             Next
    
17.         Next
    
18.     End With
    
19. End Sub
    

复制代码

hwc2ycy

你原有的代码，比如9，可以匹配到19这个数字的9，所以才出错了。

zhu918918

hwc2ycy 发表于 2014-3-9 08:22

谢谢hwc2ycy 老师的解释，得到了正确的答案。感谢太感谢hwc2ycy 老师了！！1

zhu918918

hwc2ycy 发表于 2014-3-9 08:23
你原有的代码，比如9，可以匹配到19这个数字的9，所以才出错了。

hwc2ycy老师，又出新问题了，hwc2ycy老师，见附件。

zhu918918

hwc2ycy 发表于 2014-3-9 08:23
你原有的代码，比如9，可以匹配到19这个数字的9，所以才出错了。

附件传错了，重新传