エクセル2003 でマクロの実行中に一時停止

質問

エクセル2003でマクロの実行中に一時停止して手入力し終わったらマクロを続行させたい

回答No.1

kybo

基本的に一時停止して手入力ということは出来ないので、一般的には以下の様に２つに分けます。

'-----標準モジュール---
Public B As Boolean
Sub macro1()
MsgBox "A1のセルに手入力してください"
B = True
End Sub

'-----シートコード---
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing And B = True Then
MsgBox "入力された値は" & Range("A1").Value & "です"
B = False
End If
End Sub

また、おすすめはしませんが、以下の様にしても一応できます。

Sub macro()
MsgBox "A1のセルに手入力してください"
Do Until Range("A1").Value <> ""
DoEvents
Loop
MsgBox "入力された値は" & Range("A1").Value & "です"
End Sub