エクセルVBAでの範囲選択について

はじめまして。
VBAを勉強し始めたばかりなのですが、

sub test()
Range("A1:M10").Select
Selection.WrapText=True
End Sub

とあるものを、
『InputBox』を使わずに自由に範囲選択をするように
するにはどういう方法があるのですか？

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2004/09/26 20:57

先に範囲を指定してから、マクロ実行ではいけないのですか？

sub test()
Selection.WrapText=True
End Sub

この回答へのお礼

有り難うございます。参考になりました。

お礼日時：2004/09/27 10:01

No.4 回答者： imogasi 回答日時： 2004/09/26 22:33

＞「VBAを勉強し始めたばかりなのですが」,と言う点で

＞「『InputBox』を使わずに」と、なぜINPUTBOXを避けたか判りませんが、
Sub test01()
msg = "範囲を指定してください"
Set rng = Application.InputBox(msg, "セル範囲指定", Type:=8)
rng.Interior.ColorIndex = 6
End Sub
実行中に、マウスで範囲指定が出来ますよ。こんなの知ってますか。

この回答へのお礼

有り難うございます。参考になりました。

お礼日時：2004/09/27 10:00

No.3 回答者： taocat 回答日時： 2004/09/26 21:05

ありゃー、hana-hana3さん申し訳ありませぬ。

ちんたらちんたらタイプしてたらかぶりました。
　

No.2 回答者： taocat 回答日時： 2004/09/26 21:02

Range("A1:M10").Selectを削除して

Sub test()
Selection.WrapText=True
End Sub

としておき
ドラッグで任意の範囲を選択後、このコードを実行。

以上。
外しましたらご容赦！(^^;;;

この回答へのお礼

有り難うございます。参考になりました。

お礼日時：2004/09/27 10:01