請問迴圈問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問迴圈問題

返回列表下一主題上一主題發帖

請問迴圈問題

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

1^# 跳轉到 »

發表於 2011-8-13 12:18 | 顯示全部帖子

Sub yy()
For Each c In [a:a].SpecialCells(2)
[d1] = c
Next
End Sub

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-8-13 22:35 | 顯示全部帖子

例如延10秒：Application.OnTime Now + TimeSerial(0, 0, 10),"Dosomething"

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2011-8-14 10:53 | 顯示全部帖子

Sub yy()
For Each c In [A:A].SpecialCells(2)
[D1] = c
Application.Run Macro:="A"
t = Timer
Do
DoEvents
Loop Until Timer - t = 2
Next
End Sub
Sub A()
For i = 1 To 1000
[e1] = i
Next
End Sub

複製代碼

靜思自在 : 要用心，不要操心、煩心。

返回列表下一主題上一主題