返回列表 上一主題 發帖

搖獎器

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

        靜思自在 : 【時間無法遮擋】怕時間消逝,花了許多心血,想盡各式方法要遮擋時間,結果是:浪費了更多時間,且一無所成!
返回列表 上一主題