![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつもお世話になります
今、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として
扱える方法はあるのものですか?
以上、いつも変な質問ばかりですみませんが
分かりましたら教えてください
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_11.png?e8efa67)
- 画像を添付する (ファイルサイズ:10MB以内、ファイル形式:JPG/GIF/PNG)
- 今の自分の気分スタンプを選ぼう!
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
No2です。
>今やりたいことは、リンクアドレスはアドレスのままに
>数値は数値のままとして使いたいので残念ながら
>上手くいきそうにないですね
どうしても実現なさりたいのなら、組み込みのInputBoxを使わずに自前のUserFormで同様のものを作成すれば可能と思います。
制御が少々面倒ですが・・
・セル選択を許容するには、FormをModelessで表示するようにします。
Formの内容はプロンプト(ラベル)とテキストボックス、OK・キャンセルボタン程度でしょうか。
・シート(又はブックの)SelectionChangeイベントで、選択セルのアドレスをテキストボックス記入するように設定します。
Formが表示されていない時には機能しなくても良いので、表示状態の時のみ実行するようにしておきます。
Formの表示状態はVisible属性で取得可能です。
・テキストボックスなので、もちろん直接入力(数値等)も受け付けます。
上記のような仕組みにしておけば、ご希望の入力は可能と思いますけれど、戻り値が「セルアドレス」または「値(=文字列)」となりますので、受け取った際に値のチェックをきちんと行うことが必須となります。
InputBox利用時のように、入力中に「セル値が数値でない時」や「入力値が数値でない時」にメッセージを表示するようなUIも(多少面倒ですが)可能と思います。
Modeless表示になるので、メインの処理の流れも多少考慮する必要が出てくると思います。
No.2
- 回答日時:
こんにちは
どのようなUIを想定なさっているのかわかりませんけれど・・
ご質問への回答の前に、
>Set Target = Application.InputBox(~~, Type:=8)
の場合は、Rangeが返されますので
・シート上のセルを選択する
・直接セルアドレスを入力する(例:B3 など)
で、値を取得できます。
前者の場合は、シートは選択した際のシートになりますし、後者の場合はActiveシートが採用されます。(Rangeオブジェクトはシートの情報も保持しています)
更には、セル範囲を入力することも可能ですので、ご提示のコードのままだと、セル範囲を入力した場合には、
>.ControlSource = ~~~
でエラーが発生すると思います。
また、
>TextBox4の値を手動でクリアする~~消えるので編集不可にした
とありますが、 .ControlSource はボックスとセルをリンクさせることになるので、リンクさせたくなければ .ControlSourceを使わずに値をセットするだけで済むでしょう。
わざわざ「編集不可」にする必要はないと思いますが・・
(他に、変更されたくない理由があるのなら別ですけれど)
さて、ご質問の件ですが、
『同じInputBoxで「セル値」または「直接入力の数値」を取得したい』
ということと解釈しました。
既に回答がありますが、TYpe:=9とすることで可能です。
https://learn.microsoft.com/ja-jp/office/vba/api …
ただし、戻り値は数値になります。(Rangeではありません)
ですので、左辺は
Target = Application.InputBox(~~, Type:=9)
としておく必要があり、またセルを指定した際にはそのセル値が返されます。
セル範囲を選択することも可能ですが、代表値として範囲の左上のセル値が採用されます。
(セル値が数値ではない場合には、メッセージが出ます)
テキストボックスに値を代入できれば良いのであれば、そのまま戻り値を使用すればよいでしょう。
(選択されたセル位置は不明なので、連動はできません)
もしこのような運用でも良いのであれば、エラー処理やアドレスの取得、編集不可の処理なども不要になるだろうと想像します。
ご丁寧にいつもありがとうございます
良く分かりましたが
今やりたいことは、リンクアドレスはアドレスのままに
数値は数値のままとして使いたいので残念ながら
上手くいきそうにないですね
大変お手数をお掛けして申し訳ございませんでした
今後ともよろしくお願い申し上げます
No.1
- 回答日時:
こちらはご存知ですか?
Excelの神髄
第100回.InputBoxメソッド(インプットボックス)
https://excel-ubara.com/excelvba1/EXCELVBA400.html
ここによりますと、「Type=8」としているところを(数値との合計の)9を使用すればできるような気がします。
動作確認はしておりません。悪しからず。
いつもありがとうございます
Type、忘れていました
早速、動作確認してみます
ありがとうございます
これからもよろしくお願いします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) Vba SelStart、SelLen教えてください教えてください 1 2024/04/25 17:12
- Excel(エクセル) VBA Private Sub Worksheet_Changeで 1 2024/05/01 16:59
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【再投稿】VBAで動作しなくて困っています 2 2022/10/11 11:05
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) select case について 1 2023/09/24 23:14
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サブフォルダに格納されている...
-
IF文、条件分岐の整理方法
-
VBAコードのインデント表示
-
【ExcelVBA】値を変更しながら...
-
VBA 別ブックからコピペしたい...
-
[VB.net] ボタン(Flat)のEnable...
-
【ExcelVBA】インデックスが有...
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
時間短縮のために、テキストフ...
-
vbaにてseleniumを使用したedge...
-
現在のブックを閉じないで、マ...
-
Outlookにて既にウィドウ単体で...
-
excelのVBAについて、以下のコ...
-
Excel VBA 選択範囲の罫線色の...
-
Excel関数またはVBAでの質問に...
-
Outlookの「受信日時」「件名」...
-
VBA実行後に元のセルに戻りたい
-
VBA ユーザーフォーム ボタンク...
-
VB.net(VB)で、フォームにExcel...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAなくなるの?
-
VBAでCOPYを繰り返すと、処理が...
-
vba 削除
-
プログラミング
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
エクセルのVBAコードについて教...
-
久しぶりのプログラミング
-
ユーザーフォームに別シートか...
-
エクセルVBAコードで教えて下さ...
-
VBA 別ブックからコピペしたい...
-
ExcelのVBAコードについて教え...
-
VBAコードについて教えてくださ...
-
vba アクティブシートの名前変...
-
Excelのマクロについて教えてく...
-
エクセルVBA
-
Geogebraの操作方法について
-
マクロの記録を使用したマクロ...
-
Excel(M365) Vlookup/セル反転(...
-
Excel 範囲指定スクショについ...
おすすめ情報