Excel VBA質問スレ Part7

Excel VBA質問スレ Pa ..

404:y
08/07/15 21:20:07
>>398

以下のコードを実装して、GetRangeを実行してみてください。
"セルを選んでください"が表示された直後に限り、
SelectionChangeイベントプロシージャの３行目以降が実行され、
さらにそこから"次の処理"プロシージャが呼ばれます。

■Module1
Public evFlag As Boolean
Public selectedRange As Range

Public Sub GetRange()
MsgBox "セルを選んでください"
evFlag = True
End Sub

Public Sub 次の処理()
MsgBox selectedRange.Address & "が選ばれました"
End Sub

■Sheet1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If evFlag = False Then Exit Sub
Set selectedRange = Target
evFlag = False
Call 次の処理
End Sub

次ページ

続きを表示

1を表示