Vba TextBox1.ControlSourceについて教えてください

いつもお世話になります
今、Userformにおいて
テキストボックスに値またはリンク先アドレスの入力を併用できないか考えています

リンク先のアドレス入力は

On Error Resume Next
Set Target = Application.InputBox("「柱の高さ」データセルを選択", Left:=500, Top:=100, Type:=8)
If Err.Number > 0 Or Target.Address = "" Then
'..キャンセル時、また入力無し
Exit Sub
End If
On Error GoTo 0
Targetadd = Target.Address(False, False)
TargetWS = Target.Worksheet.Name

TextBox4.Enabled = False '...TextBox4.ControlSourceにセットした後にTextBox4の値を手動でクリアするとExcelシートの値が消えるので編集不可にした
With TextBox4
.ControlSource = TargetWS & "!" & Targetadd
End With

としていますが
Application.InputBoxに直接、数値を入力したときもそのままValueとして
扱える方法はあるのものですか？

以上、いつも変な質問ばかりですみませんが
分かりましたら教えてください

No.3 ベストアンサー 回答者： fujillin 回答日時： 2024/07/26 19:12

No2です。

＞今やりたいことは、リンクアドレスはアドレスのままに
＞数値は数値のままとして使いたいので残念ながら
＞上手くいきそうにないですね
どうしても実現なさりたいのなら、組み込みのInputBoxを使わずに自前のUserFormで同様のものを作成すれば可能と思います。


制御が少々面倒ですが・・
・セル選択を許容するには、FormをModelessで表示するようにします。
Formの内容はプロンプト（ラベル）とテキストボックス、ＯＫ・キャンセルボタン程度でしょうか。
・シート（又はブックの）SelectionChangeイベントで、選択セルのアドレスをテキストボックス記入するように設定します。
Formが表示されていない時には機能しなくても良いので、表示状態の時のみ実行するようにしておきます。
Formの表示状態はVisible属性で取得可能です。
・テキストボックスなので、もちろん直接入力（数値等）も受け付けます。

上記のような仕組みにしておけば、ご希望の入力は可能と思いますけれど、戻り値が「セルアドレス」または「値（＝文字列）」となりますので、受け取った際に値のチェックをきちんと行うことが必須となります。
InputBox利用時のように、入力中に「セル値が数値でない時」や「入力値が数値でない時」にメッセージを表示するようなＵＩも（多少面倒ですが）可能と思います。

Modeless表示になるので、メインの処理の流れも多少考慮する必要が出てくると思います。

この回答へのお礼

本当にいつもありがとうございます
初めてのイベントなので、Webでいろいろ検索しました

今はTextBoxの内容をセルに落として報告書が自動にできるように
考えていますので、今は逆なのかも知れません
本当に大変、お手数をお掛けしています
心から感謝します
これからもよろしくお願い申し上げます

お礼日時：2024/07/27 17:52

No.2 回答者： fujillin 回答日時： 2024/07/26 17:43

こんにちは

どのようなＵＩを想定なさっているのかわかりませんけれど・・

ご質問への回答の前に、
＞Set Target = Application.InputBox(～～, Type:=8)
の場合は、Rangeが返されますので
　・シート上のセルを選択する
　・直接セルアドレスを入力する（例：Ｂ3 など）
で、値を取得できます。
前者の場合は、シートは選択した際のシートになりますし、後者の場合はActiveシートが採用されます。（Rangeオブジェクトはシートの情報も保持しています）
更には、セル範囲を入力することも可能ですので、ご提示のコードのままだと、セル範囲を入力した場合には、
＞.ControlSource =　～～～
でエラーが発生すると思います。

また、
＞TextBox4の値を手動でクリアする～～消えるので編集不可にした
とありますが、 .ControlSource はボックスとセルをリンクさせることになるので、リンクさせたくなければ .ControlSourceを使わずに値をセットするだけで済むでしょう。
わざわざ「編集不可」にする必要はないと思いますが・・
（他に、変更されたくない理由があるのなら別ですけれど）


さて、ご質問の件ですが、
『同じInputBoxで「セル値」または「直接入力の数値」を取得したい』
ということと解釈しました。
既に回答がありますが、TYpe:=9とすることで可能です。
https://learn.microsoft.com/ja-jp/office/vba/api …
ただし、戻り値は数値になります。（Rangeではありません）
ですので、左辺は
　Target = Application.InputBox(～～, Type:=9)
としておく必要があり、またセルを指定した際にはそのセル値が返されます。
セル範囲を選択することも可能ですが、代表値として範囲の左上のセル値が採用されます。
（セル値が数値ではない場合には、メッセージが出ます）

テキストボックスに値を代入できれば良いのであれば、そのまま戻り値を使用すればよいでしょう。
（選択されたセル位置は不明なので、連動はできません）
もしこのような運用でも良いのであれば、エラー処理やアドレスの取得、編集不可の処理なども不要になるだろうと想像します。

この回答へのお礼

ご丁寧にいつもありがとうございます

良く分かりましたが
今やりたいことは、リンクアドレスはアドレスのままに
数値は数値のままとして使いたいので残念ながら
上手くいきそうにないですね

大変お手数をお掛けして申し訳ございませんでした
今後ともよろしくお願い申し上げます

お礼日時：2024/07/26 18:20

No.1 回答者： Zincer 回答日時： 2024/07/26 16:26

こちらはご存知ですか？

Excelの神髄
第100回.InputBoxメソッド（インプットボックス）
https://excel-ubara.com/excelvba1/EXCELVBA400.html
ここによりますと、「Type＝８」としているところを（数値との合計の）９を使用すればできるような気がします。
動作確認はしておりません。悪しからず。

この回答へのお礼

いつもありがとうございます

Type、忘れていました
早速、動作確認してみます

ありがとうございます
これからもよろしくお願いします

お礼日時：2024/07/26 16:50