|
▼田村亮 さん,みなさん 今晩は
msgboxを使って、止める”コマンドと“次に進む”コマンドを実現してみました。
試してみてください。
こんな感じですが、どうですか?
Sub test()
Dim msg As String
Dim i As Integer
Dim yn As VbMsgBoxStyle
Dim flag As Boolean
For i = 1 To 10
If flag = True Then Exit Sub
Range("A1").Value = i
'
'画像を表示させるコード
'
msg = "Next: Click OK !!" & Chr(13) & Chr(13) & "Stop: Click Cancel !!"
If MsgBox(msg, vbOKCancel) = vbCancel Then Exit Sub
Next
End Sub
>たとえば、A1のセルに1、2、3、...10。と順に数値を入れるマクロで、入れるたびに処理を止めて画面を見たいのです。
>
>すなわち、A1に1を入れて止めて画面を見る。次に処理を進めて、A1に2を入れて止めて画面を見る...これを続けて行きたいです。
>
>次に処理を進める合図はクリックかEnterにしたい。
>
>“止める”コマンドと“次に進む”コマンドを教えてください。
|
|