UC知道会vba编程的大虾帮个忙，我有一个小程序希望能让他只点一下就能自动运行至结束
来源：百度知道 编辑：UC知道 时间：2024/05/04 20:47:34
Sub kaishi()
For i = 9 To 0 Step -1
wt = 1
Do While wt > 0.1
ra = Int(Rnd() * 10)
Select Case ra
Case 0
Cells(1, 2).Select
Case 1
Cells(1, 1).Select
Case 2
Cells(2, 1).Select
Case 3
Cells(3, 1).Select
Case 4
Cells(3, 2).Select
Case 5
Cells(3, 3).Select
Case 6
Cells(3, 4).Select
Case 7
Cells(2, 4).Select
Case 8
Cells(1, 4).Select
Case 9
Cells(1, 3).Select
End Select
Application.Wait (Now + TimeValue("0:00:01") * wt)
wt = wt * 0.8
Loop
c = 11 - i
Cells(c, 7) = i
MsgBox "" & "Seconds left" & "- " & i
Next
End Sub
就是这个程序他需要每次点一下确定他才进行下一步抽签，我希望只点一下
For i = 9 To 0 Step -1
wt = 1
Do While wt > 0.1
ra = Int(Rnd() * 10)
Select Case ra
Case 0
Cells(1, 2).Select
Case 1
Cells(1, 1).Select
Case 2
Cells(2, 1).Select
Case 3
Cells(3, 1).Select
Case 4
Cells(3, 2).Select
Case 5
Cells(3, 3).Select
Case 6
Cells(3, 4).Select
Case 7
Cells(2, 4).Select
Case 8
Cells(1, 4).Select
Case 9
Cells(1, 3).Select
End Select
Application.Wait (Now + TimeValue("0:00:01") * wt)
wt = wt * 0.8
Loop
c = 11 - i
Cells(c, 7) = i
MsgBox "" & "Seconds left" & "- " & i
Next
End Sub
就是这个程序他需要每次点一下确定他才进行下一步抽签，我希望只点一下
把这行去掉 MsgBox "" & "Seconds left" & "- " & i
或增加一个子程序
Sub kaishi()
For i = 9 To 0 Step -1
wt = 1
Do While wt > 0.1
ra = Int(Rnd() * 10)
Select Case ra
Case 0
Cells(1, 2).Select
Case 1
Cells(1, 1).Select
Case 2
Cells(2, 1).Select
Case 3
Cells(3, 1).Select
Case 4
Cells(3, 2).Select
Case 5
Cells(3, 3).Select
Case 6
Cells(3, 4).Select
Case 7
Cells(2, 4).Select
Case 8
Cells(1, 4).Select
Case 9
Cells(1, 3).Select
End Select
Application.Wait (Now + TimeValue("0:00:01") * wt)
wt = wt * 0.8
Loop
c = 11 - i
Cells(c, 7) = i
myMsgbox "" & "Seconds left" & "- " & i, 1, "提示", 64
Next
End Sub
Sub myMsgbox(myPrompt As String, Elapse As Integer, myTitle As String, Buttons As Integer)