選択されたセル範囲を取得する(2)

選択されたセル範囲を取得する二つ目の方法として、InputBoxを用いるやり方がある。
InputBoxダイアログの詳細については後日書くとして、とりあえず下記のコードを実行して
みる :

Sub SampleSelectRange()
     Dim rng As Range
     Set rng = Application.InputBox(Prompt:="セルを選択してください", Type:=8) 
     Msgbox "左端は " & rng.Column & " 列目です"
End Sub 

上のコードを実行して下図のようにセルを選択すると、セル範囲がInputBoxに表示される :

例のように、Type引数に「8」を指定すると選択したセル範囲をInputBoxに表示できるように
なるらしい。但し、上記のコードは、何も選択しなかったり、キャンセルボタンをクリックすると
エラーになってしまうので、ユーザーフォームを使った方法の方が実用的なのかも知れない。