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

Question

いつもお世話になります
今、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として
扱える方法はあるのものですか？

以上、いつも変な質問ばかりですみませんが
分かりましたら教えてください

fujillin · Accepted Answer

No2です。

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

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

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

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

fujillin · Answer

こんにちは

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

ご質問への回答の前に、
＞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/excel.application.inputbox
ただし、戻り値は数値になります。（Rangeではありません）
ですので、左辺は
　Target = Application.InputBox(～～, Type:=9)
としておく必要があり、またセルを指定した際にはそのセル値が返されます。
セル範囲を選択することも可能ですが、代表値として範囲の左上のセル値が採用されます。
（セル値が数値ではない場合には、メッセージが出ます）

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

Zincer · Answer

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

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

No2です。

こんにちは

こちらはご存知ですか？

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング