[已解决]请问老师，怎么让这个程序中间可以停一下？谢谢了

乒乓27

怎么让这个程序中间可以停一下？怎么实现按一下cmdbutton才让运行一下？谢谢！

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-3-11 23:41

1. 
   
2. Option Base 1
   
3. Dim endRow As Integer
   
4. Dim curRow As Integer
   
5. Dim nextRow As Integer
   
6. Private Sub cmd_Click()
   
7. Dim i As Integer
   
8. '若当前行存在
   
9. If curRow Then
   
10.     For i = nextRow + 1 To endRow
    
11.     '查找下一行
    
12.         If Cells(i, 1) = txtjs.Value Then
    
13.             curRow = nextRow
    
14.             nextRow = i
    
15.             Exit For
    
16.         End If
    
17.     Next i
    
18. Else
    
19.     For i = 1 To endRow
    
20.         If Cells(i, 1) = txtjs.Value Then
    
21.             curRow = i
    
22.             nextRow = i
    
23.             Exit For
    
24.         End If
    
25.     Next i
    
26.     For i = nextRow + 1 To endRow
    
27.         If Cells(i, 1) = txtjs.Value Then
    
28.             nextRow = i
    
29.             Exit For
    
30.         End If
    
31.     Next i
    
32. End If
    
33. If i > endRow Then
    
34.     '若下一行存在
    
35.     If nextRow Then
    
36.         txtxs.Value = Cells(nextRow, 2).Value
    
37.         MsgBox "已经是最后一行了"
    
38.         
    
39.     Else
    
40.     '下一行不存在，则
    
41.         MsgBox "没有找到相关数据"
    
42.     End If
    
43. Else
    
44.     cmd.Caption = "查找下一个"
    
45.     txtxs.Value = Cells(curRow, 2).Value
    
46. End If
    
47. 
    
48. End Sub
    
49. '对数据进行初始化，比如说当前查找到的数据行及下一数据行，还有总的行数
    
50. Private Sub UserForm_Initialize()
    
51. endRow = Range("a65536").End(xlUp).Row
    
52. curRow = 0
    
53. nextRow = 0
    
54. End Sub
    
55. 
    
56. 
    

复制代码

跳转到最佳答案楼层

放浪形骸

呃。。。。
你不能在单击的过程中把所有的循环都做完，这样的话，就会直接跳到结果了。。。

乒乓27

回复 放浪形骸 的帖子

那怎么停一下啊？？

放浪形骸

1. 
   
2. Option Base 1
   
3. Dim endRow As Integer
   
4. Dim curRow As Integer
   
5. Dim nextRow As Integer
   
6. Private Sub cmd_Click()
   
7. Dim i As Integer
   
8. '若当前行存在
   
9. If curRow Then
   
10.     For i = nextRow + 1 To endRow
    
11.     '查找下一行
    
12.         If Cells(i, 1) = txtjs.Value Then
    
13.             curRow = nextRow
    
14.             nextRow = i
    
15.             Exit For
    
16.         End If
    
17.     Next i
    
18. Else
    
19.     For i = 1 To endRow
    
20.         If Cells(i, 1) = txtjs.Value Then
    
21.             curRow = i
    
22.             nextRow = i
    
23.             Exit For
    
24.         End If
    
25.     Next i
    
26.     For i = nextRow + 1 To endRow
    
27.         If Cells(i, 1) = txtjs.Value Then
    
28.             nextRow = i
    
29.             Exit For
    
30.         End If
    
31.     Next i
    
32. End If
    
33. If i > endRow Then
    
34.     '若下一行存在
    
35.     If nextRow Then
    
36.         txtxs.Value = Cells(nextRow, 2).Value
    
37.         MsgBox "已经是最后一行了"
    
38.         
    
39.     Else
    
40.     '下一行不存在，则
    
41.         MsgBox "没有找到相关数据"
    
42.     End If
    
43. Else
    
44.     cmd.Caption = "查找下一个"
    
45.     txtxs.Value = Cells(curRow, 2).Value
    
46. End If
    
47. 
    
48. End Sub
    
49. '对数据进行初始化，比如说当前查找到的数据行及下一数据行，还有总的行数
    
50. Private Sub UserForm_Initialize()
    
51. endRow = Range("a65536").End(xlUp).Row
    
52. curRow = 0
    
53. nextRow = 0
    
54. End Sub
    
55. 
    
56. 
    

复制代码

放浪形骸

乒乓27 发表于 2011-3-11 23:28
回复 放浪形骸 的帖子

那怎么停一下啊？？

这样停咯。如上述

放浪形骸

因为这个需要提前知道我的当前行是不是最后一行，所以每一次查找的时候要比原来多找一次，所以每一次查找之后都是预先已经知道下一行的位置。
若下一行不存在的话，那就提示当前行为最后一行。

乒乓27

回复 放浪形骸 的帖子

谢谢，这么多循环啊，还有一个问题，我想了想，就是想用一个数组来保存相同数据的行数，但是在cmd的click中无法调用数组了，我想，是不是可以用function返回一个数组呢？？期待您的指点！再次谢谢！

放浪形骸

乒乓27 发表于 2011-3-12 23:07
回复 放浪形骸 的帖子

谢谢，这么多循环啊，还有一个问题，我想了想，就是想用一个数组来保存相同数据的行 ...

每次的循环不多的，每次都是只有两个

放浪形骸

乒乓27 发表于 2011-3-12 23:07
回复 放浪形骸 的帖子

谢谢，这么多循环啊，还有一个问题，我想了想，就是想用一个数组来保存相同数据的行 ...

你也可以在SUB外面定义个数组，然后将相同的值的行数放在数组里。
SUB外面再定义一个INTEGER，然后表示读取数组中的第几个
这样就可以每次CLICK的时候INTEGER自加1，然后显示当前位置的行数就OK了。

乒乓27

回复 放浪形骸 的帖子

sub外？？？那不还是在sub中定义的吗？