08/07/15 21:31:21
>>398
念のためにまた書きますが、InputBoxメソッドを使った方が
はるかに簡単です。ほぼ同じことが以下の５行でできます。
しかも、他シートのRangeも取得可能です。
Public Sub GetRange2()
Dim selectedRange As Range
Set selectedRange = Application.InputBox("セルを選んでください", Type:=8)
MsgBox selectedRange.Address & "が選ばれました"
End Sub
>>404の利点は、セルが選ばれた瞬間に次の処理を発動させられる
点ぐらいです。（上の例はOKボタンを押す必要があります）