Excelマクロ：ユーザフォーム上のテキストボックスにセルの選択範囲を転記

質問

ユーザフォーム上のテキストボックスにセルの選択範囲（例えば "A5:M31"）を転記する方法についてお知恵を拝借願えればと思います。

【前提条件】
１．ユーザフォーム（UserForm1）がモーダルで表示されています。
２．ユーザフォームが表示されている時点では、望むべきセルは選択されていません。
３．テキストボックスが２つあります（TextBox1, TextBox2）。

【やりたいこと】
１．上記の２つのテキストボックスには、それぞれ違ったセルの選択範囲を表示したい。
２．上記の前提条件において、なんらかのトリガー（例えばコマンドボタン押下）によって、マウスドラッグによりセルを選択し、その範囲をテキストボックスに記入したい。

【補足】
１．【やりたいこと】の２で記しましたトリガー（例えばコマンドボタン押下）のタイミングでユーザフォーム（UserForm1）を非表示にするのは問題ありません。
２．できれば、セル選択時の MouseUpイベントでユーザフォームに転記させたいのですが、スクロールバー等の操作によるMouseUpイベントも入ってくる可能性が大です。

以上、必要な情報に不足がございましたら補足要求で指摘して頂ければ幸いです。
どうぞ、よろしくお願いいたします。

回答No.1

hana-hana3 · ベストアンサー

[Application.InputBox()]を使えば、入力時に任意のセルを選択出来ます。

Dim cel As Variant
On Error Resume Next
Set cel = Application.InputBox("セル範囲を選択してください。", "入力", Type:=8)
If Err() <> 0 Then
MsgBox "Input Error"
Else
MsgBox cel.Address
End If

お礼

早速の回答ありがとうございます。

コマンドボタンを追加し、Clickイベントに上記のコードを記述して試してみましたところうまく動きました。動作も理想通りです！　火急の用件でしたので本当に助かりました。

おかげさまをもちまして、目的とするところは達成できましたが、他の方法を提示してくださる方がいらっしゃれば後学のためにもなりますので、しばらくは回答を締め切らないでおきたいと思います。