返回列表 上一主題 發帖

搖獎器

搖獎器

此檔案(搖獎器)是從網路下載來的,可否再加入一個定時器,搖獎後數秒就停止。
謝謝!

20130203a02(簡易搖獎器).rar (15.61 KB)

Sub 啟動()
Dim i%, j%
For i = 1 To 3
  If uMode <> "Start" Then Exit Sub
  For j = 1 To 50
    [G5,G9,G11] = Mid(Rnd, 3, 6) & Mid(Rnd, 3, 6)
    Sleep 10
  Next j
  DoEvents
Next i
Call 確定
End Sub

調整 i 值可微調時間,自行去決定~~
 
 

TOP

        靜思自在 : 人事的艱難與琢磨,就是一種考驗。
返回列表 上一主題