[已解决]如果不是"asdfqwer"而是A列中的值如何修改代码？

759857387

回复 爱疯 的帖子

哈哈，我碰到知音啦！！！

759857387

回复 爱疯 的帖子

兄弟做个朋友吧，成与不成都没有关系。

爱疯

不用客气，大家没注意到，要是发到VBA版，看你问题的人会多些的，解决的机会也更大些。

只要把问题搞清楚，就有希望了。这里问题就成为：如何避免解决长时间等待，造成的无响应。是有代表性的问题，可能我们以后也会遇到。等等吧，还有明天白天呢，到时人就多些了

爱疯

我建议哈：

把你对问题的要求和理解，描述清楚，标题可以是“如何避免解决长时间等待所造成的无响应”，重新在VBA版块发帖吧。这样，等真正解决了你的问题后，好给高手送最佳

PS：如果那边发帖成功，注意在楼下给个新帖链接，好让高手去那儿回复。

爱疯

去『Excel VBA程序开发』发噢{:101:}

sanbe

1. Private Sub CommandButton1_Click()
   
2.     Dim irow%, i%
   
3. 
   
4.     irow = Sheet1.[a65536].End(xlUp).Row
   
5.     For i = 1 To irow
   
6.         Cells(1, 5) = Sheet1.Cells(i, 1)
   
7.         LastSub (2)
   
8. 
   
9.     Next
   
10.     MsgBox "Done!"
    
11. End Sub
    

复制代码

1. 
   
2. Private Sub CommandButton1_Click()
   
3.     Dim irow%, i%
   
4.     irow = Sheet1.[a65536].End(xlUp).Row
   
5.     For i = 1 To irow
   
6.         Cells(1, 5) = Sheet1.Cells(i, 1)
   
7.         LastSub (7200)
   
8.     Next
   
9.     MsgBox "Done!"
   
10. End Sub
    
11. 
    
12. Public Function LastSub(ByRef LastTime As Double) As Boolean
    
13.     Dim loopfinisH
    
14.     Dim intI As Integer
    
15.     Const SecondsInday = 24& * 60& * 60
    
16.     loopfinisH = Timer + LastTime
    
17.     intI = intI + 1
    
18.     If loopfinisH > SecondsInday Then
    
19.         loopfinisH = loopfinisH - SecondsInday
    
20.         Do While Timer > loopfinisH
    
21.             DoEvents
    
22.             LastSub = False
    
23.         Loop
    
24.     End If
    
25.     Do While Timer < loopfinisH
    
26.         DoEvents
    
27.         LastSub = False
    
28.     Loop
    
29.     LastSub = True
    
30. End Function
    

复制代码

爱疯

用sanbe的代码，做的附件
Book3c.rar (11.69 KB, 下载次数: 6)

2011-7-21 00:04 上传

点击文件名下载附件

759857387

回复 爱疯 的帖子

两位版主高高高手哇，我怎么感谢你们呀，如需要股票买卖信号给我邮箱给我股票代码。
明天上线测试。

759857387

回复 sanbe 的帖子

您真的让我佩服，精英的团队精神那是没得说。交个朋友吧兄弟，有需要我的说一声。

爱疯

不用客气，昨天我有空
要谢就谢sanbe版主吧，是他帮忙写的代码。