[已解决]循环求助！！

531tommy

我编写了一下程序，但不知道为什么，K不能循环，求版主帮忙！！十分感谢！！！
Sub 搜索资料()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim c As Boolean
Dim ic1 As Integer
Dim ic2 As Integer
     ic1 = Sheets("销售信息").[a4].CurrentRegion.Rows.Count
     ic2 = Sheets("货品信息").[a3].CurrentRegion.Rows.Count
     c = False
   For k = 1 To ic1
      For i = 1 To ic2
        If Trim(Sheets("销售信息").Cells(k, 1)) = Trim(Sheets("货品信息").Cells(i, 1)) Then
           For j = 1 To 13
             Sheets("销售信息").Cells(k, j) = Sheets("货品信息").Cells(i, j)
             c = True
           Next j
        Exit For
      End If
     Next i
   Next k
  MsgBox "已经搜索到符合条件的记录", vbOKOnly, "提示"
  If c = False Then
    MsgBox "没有搜索到符合条件的记录，请核实", vbOKOnly, "提示"
    End If
End Sub

最佳答案

月排行榜 / 总排行榜

happym8888

2012-8-18 16:35

ic1 = Sheets("销售信息").[a4].CurrentRegion.Rows.Count '这个写法不合适，CurrentRegion.Rows.Count表示当前区域的行数，里面没有定位信息。应该写成：
ic1= Sheets("销售信息").range("A65536").End(xlup).row
同理：
ic2 = Sheets("货品信息").range("A65536").end(xlup).row

1. Sub 搜索资料()
   
2. Dim i As Integer
   
3. Dim j As Integer
   
4. Dim k As Integer
   
5. Dim c As Boolean
   
6. Dim ic1 As Integer
   
7. Dim ic2 As Integer
   
8. ic1 = Sheets("销售信息").Range("A65536").End(xlUp).Row '[a4].CurrentRegion.Rows.Count '这个写法不合适，CurrentRegion.Rows.Count表示当前区域的行数，里面没有定位信息。
   
9. ic2 = Sheets("货品信息").Range("A65536").End(xlUp).Row '[a3].CurrentRegion.Rows.Count
   
10. c = False
    
11. For k = 4 To ic1   'k直接从第4行开始循环
    
12.      For i = 3 To ic2   'i直接从第3行开始循环
    
13.      xxx = Trim(Sheets("销售信息").Cells(k, 1))
    
14.      yyy = Trim(Sheets("货品信息").Cells(i, 1))
    
15.       If Trim(Sheets("销售信息").Cells(k, 1)) = Trim(Sheets("货品信息").Cells(i, 1)) Then
    
16.          For j = 1 To 13
    
17.            Sheets("销售信息").Cells(k, j) = Sheets("货品信息").Cells(i, j)
    
18.            c = True
    
19.          Next j
    
20.       Exit For
    
21.     End If
    
22.    Next i
    
23. Next k
    
24. If c = True Then
    
25. MsgBox "已经搜索到符合条件的记录", vbOKOnly, "提示"  '本来的写法不好、没有搜索到符合条件的记录也会提示“已经搜索到符合条件的记录”
    
26. Else
    
27.   MsgBox "没有搜索到符合条件的记录，请核实", vbOKOnly, "提示"
    
28. End If
    
29. End Sub
    
30. 
    
31. Sub 货品出仓()
    
32. Dim i As Integer
    
33. Dim j As Integer
    
34. Dim k As Integer
    
35. Dim cz As Boolean
    
36. Dim ic1 As Integer
    
37. Dim ic2 As Integer
    
38. ' ic1 = Sheets("货品信息").[a3].CurrentRegion.Rows.Count
    
39. ' ic2 = Sheets("销售信息").[a4].CurrentRegion.Rows.Count
    
40. ic1 = Sheets("销售信息").Range("A65536").End(xlUp).Row
    
41. ic2 = Sheets("货品信息").Range("A65536").End(xlUp).Row
    
42.   
    
43.   cz = False
    
44.    For k = 4 To ic2
    
45.      For i = 3 To ic1
    
46.        If Trim(Sheets("销售信息").Cells(k, 1)) = Trim(Sheets("货品信息").Cells(i, 1)) And Trim(Sheets("销售信息").Cells(i, 12)) > 0 Then
    
47.        cz = True
    
48.         Sheets("货品信息").Cells(i, 12) = Sheets("货品信息").Cells(i, 12) - Sheets("销售信息").Cells(k, 14)
    
49.          For j = 1 To 13
    
50.            Sheets("销售信息").Cells(k, j) = Sheets("货品信息").Cells(i, j)
    
51.          Next j
    
52.         Exit For
    
53.        End If
    
54.      Next i
    
55.    Next k
    
56.    If cz = True Then
    
57.    MsgBox "货品已经导出成功！", vbOKOnly, "成功导出"
    
58.     Else
    
59.        MsgBox "记录表无此记录或库存量为0，因此无法导出，请核实！", vbOKOnly, "无法导出"
    
60.      End If
    
61. End Sub
    
62. 
    
63. 
    

复制代码

表格.rar (11.71 KB, 下载次数: 6)

2012-8-18 16:46 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

传个附件吧。这样好帮你分析。

hwc2ycy

你的IC1是有选中区域嘛，如果没有选或者只有1行，这样就不会循环了。

    ic1 = Sheets("销售信息").[a4].CurrentRegion.Rows.Count
      ic2 = Sheets("货品信息").[a3].CurrentRegion.Rows.Count
问题在上面这2句，你F8看看就知道原因了。

如果是1的话，也会要循环一次。

hwc2ycy

1. 
   
2. Sub 搜索资料()
   
3. Dim i As Integer
   
4. Dim j As Integer
   
5. Dim k As Integer
   
6. Dim c As Boolean
   
7. Dim ic1 As Integer
   
8. Dim ic2 As Integer
   
9. ic1 = Sheets("销售信息").[a4].CurrentRegion.Rows.Count
   
10. ic2 = Sheets("货品信息").[a3].CurrentRegion.Rows.Count
    
11. 
    
12. Debug.Print "ic1=" & ic1
    
13. Debug.Print "ic2=" & ic2
    
14. 
    
15. c = False
    
16. For k = 1 To ic1
    
17.      Debug.Print "k=" & k
    
18.      For i = 1 To ic2
    
19.          Debug.Print "i=" & i
    
20.       If Trim(Sheets("销售信息").Cells(k, 1)) = Trim(Sheets("货品信息").Cells(i, 1)) Then
    
21.          For j = 1 To 13
    
22.            Sheets("销售信息").Cells(k, j) = Sheets("货品信息").Cells(i, j)
    
23.            c = True
    
24.          Next j
    
25.       Exit For
    
26.     End If
    
27.    Next i
    
28. Next k
    
29. MsgBox "已经搜索到符合条件的记录", vbOKOnly, "提示"
    
30. If c = False Then
    
31.   MsgBox "没有搜索到符合条件的记录，请核实", vbOKOnly, "提示"
    
32.   End If
    
33. End Sub
    

复制代码

帮你加了几个语句，你把立即窗口打开，程序运行一次后看立即窗口的输出结果吧，就知道问题在哪了。

531tommy

hwc2ycy 发表于 2012-8-18 13:18
帮你加了几个语句，你把立即窗口打开，程序运行一次后看立即窗口的输出结果吧，就知道问题在哪了。

Dear 兄弟：
     那个代码还是不能循环，能否帮忙测试一下我的附件！资料搜索不能循环，货品出仓也出现错误！我想到头都大了！都搞不懂什么原因！ 表格.rar (17.06 KB, 下载次数: 7)

2012-8-18 15:11 上传

点击文件名下载附件

JLxiangwei

531tommy 发表于 2012-8-18 15:11
Dear 兄弟：
     那个代码还是不能循环，能否帮忙测试一下我的附件！资料搜索不能循环，货品出仓也出现 ...

1. 
   
2. Sub 货品出仓()
   
3. Dim i As Integer
   
4. Dim j As Integer
   
5. Dim k As Integer
   
6. Dim cz As Boolean
   
7. Dim ic1 As Integer
   
8. Dim ic2 As Integer
   
9.   ic1 = Sheets("货品信息").[a3].CurrentRegion.Rows.Count
   
10.   ic2 = Sheets("销售信息").[a4].CurrentRegion.Rows.Count
    
11.   cz = False
    
12.    For k = 3 To ic2
    
13.      For i = 4 To ic1
    
14.        If Trim(Sheets("销售信息").Cells(k, 1)) = Trim(Sheets("货品信息").Cells(i, 1)) And Trim(Sheets("销售信息").Cells(i, 12)) > 0 Then
    
15.        cz = True
    
16.         Sheets("货品信息").Cells(i, 12) = Sheets("货品信息").Cells(i, 12) - Sheets("销售信息").Cells(k, 14)
    
17.          For j = 1 To 13
    
18.            Sheets("销售信息").Cells(k, j) = Sheets("货品信息").Cells(i, j)
    
19.          Next j
    
20.         Exit For
    
21.        End If
    
22.      Next i
    
23.    Next k
    
24.    MsgBox "货品已经导出成功！", vbOKOnly, "成功导出"
    
25.      If cz = False Then
    
26.        MsgBox "记录表无此记录或库存量为0，因此无法导出，请核实！", vbOKOnly, "无法导出"
    
27.      End If
    
28. End Sub

复制代码

循环的开始行错了吧

上清宫主

ic1 = Sheets("销售信息").[a4].CurrentRegion.Rows.Count + 2
另：此代码思路不太好；多处可优化

上清宫主

  第二段代码：ic2 = Sheets("销售信息").[a4].CurrentRegion.Rows.Count + 2
且k从4开始循环，i从3开始循环

happym8888

ic1 = Sheets("销售信息").[a4].CurrentRegion.Rows.Count '这个写法不合适，CurrentRegion.Rows.Count表示当前区域的行数，里面没有定位信息。应该写成：
ic1= Sheets("销售信息").range("A65536").End(xlup).row
同理：
ic2 = Sheets("货品信息").range("A65536").end(xlup).row

1. Sub 搜索资料()
   
2. Dim i As Integer
   
3. Dim j As Integer
   
4. Dim k As Integer
   
5. Dim c As Boolean
   
6. Dim ic1 As Integer
   
7. Dim ic2 As Integer
   
8. ic1 = Sheets("销售信息").Range("A65536").End(xlUp).Row '[a4].CurrentRegion.Rows.Count '这个写法不合适，CurrentRegion.Rows.Count表示当前区域的行数，里面没有定位信息。
   
9. ic2 = Sheets("货品信息").Range("A65536").End(xlUp).Row '[a3].CurrentRegion.Rows.Count
   
10. c = False
    
11. For k = 4 To ic1   'k直接从第4行开始循环
    
12.      For i = 3 To ic2   'i直接从第3行开始循环
    
13.      xxx = Trim(Sheets("销售信息").Cells(k, 1))
    
14.      yyy = Trim(Sheets("货品信息").Cells(i, 1))
    
15.       If Trim(Sheets("销售信息").Cells(k, 1)) = Trim(Sheets("货品信息").Cells(i, 1)) Then
    
16.          For j = 1 To 13
    
17.            Sheets("销售信息").Cells(k, j) = Sheets("货品信息").Cells(i, j)
    
18.            c = True
    
19.          Next j
    
20.       Exit For
    
21.     End If
    
22.    Next i
    
23. Next k
    
24. If c = True Then
    
25. MsgBox "已经搜索到符合条件的记录", vbOKOnly, "提示"  '本来的写法不好、没有搜索到符合条件的记录也会提示“已经搜索到符合条件的记录”
    
26. Else
    
27.   MsgBox "没有搜索到符合条件的记录，请核实", vbOKOnly, "提示"
    
28. End If
    
29. End Sub
    
30. 
    
31. Sub 货品出仓()
    
32. Dim i As Integer
    
33. Dim j As Integer
    
34. Dim k As Integer
    
35. Dim cz As Boolean
    
36. Dim ic1 As Integer
    
37. Dim ic2 As Integer
    
38. ' ic1 = Sheets("货品信息").[a3].CurrentRegion.Rows.Count
    
39. ' ic2 = Sheets("销售信息").[a4].CurrentRegion.Rows.Count
    
40. ic1 = Sheets("销售信息").Range("A65536").End(xlUp).Row
    
41. ic2 = Sheets("货品信息").Range("A65536").End(xlUp).Row
    
42.   
    
43.   cz = False
    
44.    For k = 4 To ic2
    
45.      For i = 3 To ic1
    
46.        If Trim(Sheets("销售信息").Cells(k, 1)) = Trim(Sheets("货品信息").Cells(i, 1)) And Trim(Sheets("销售信息").Cells(i, 12)) > 0 Then
    
47.        cz = True
    
48.         Sheets("货品信息").Cells(i, 12) = Sheets("货品信息").Cells(i, 12) - Sheets("销售信息").Cells(k, 14)
    
49.          For j = 1 To 13
    
50.            Sheets("销售信息").Cells(k, j) = Sheets("货品信息").Cells(i, j)
    
51.          Next j
    
52.         Exit For
    
53.        End If
    
54.      Next i
    
55.    Next k
    
56.    If cz = True Then
    
57.    MsgBox "货品已经导出成功！", vbOKOnly, "成功导出"
    
58.     Else
    
59.        MsgBox "记录表无此记录或库存量为0，因此无法导出，请核实！", vbOKOnly, "无法导出"
    
60.      End If
    
61. End Sub
    
62. 
    
63. 
    

复制代码

表格.rar (11.71 KB, 下载次数: 6)

2012-8-18 16:46 上传

点击文件名下载附件

531tommy

感谢各位的帮忙！谢谢啊！我才刚学VB，所以很多东西都不懂，以后请各位多多指教啊！