![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
VBA超初心者です。
UserForm2のTextBox1に顧客IDを入力し、ListBox1に検索結果を表示。ListBox1の結果をダブルクリックしてUserForm1の入力画面で修正や追記を行いたいです。
UserForm1の項目は43項目あり、Excel sheet1 に反映します。ID検索でUserForm2のListBox1に表示させた項目は、sheet1からID、名前、性別、日付、担当者のみ表示しました。
修正が必要なListBox1の値をDoubleClickし、UserForm1のTextBoxに値を転記しデータを修正し、再登録ボタンを押して再度Sheet1の同じ箇所に収めたいです。
UserForm2で
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.Text
End Sub
・・・でわからなくなってしましました。
どうかよろしくお願いします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんばんは
>VBA超初心者です。
とおっしゃる割りには、難しいことをなさっているようです。
特に、ユーザフォームはシートのセルのようにレイアウトも決まっていませんし、コントロールの名称も決まっていません。
さらにはどのような設定をしているのかも様々なので、正確な情報が伝わりにくいため、単純化したご質問でないとなかなか適切な回答は得られにくいと思います。
また、二つのFormを使い分けているようですが、表示の方法(モーダル、モードレス)や値をどこに保持しておくかなども関わってきそうですね。
全体の構成や位置関係が不明なので、とても処理のコードは書けませんけれど、とりあえずダブルクリックイベントの処理で、選択された項目の取得の方法だけを以下に示しておきます。
ListBoxのダブルクリックイベントでは、どの項目がクリックされたかの情報は得られません。
得られるのは、それぞれの項目が選択状態か否かの情報だけです。
(どうしても、どの項目かを取得したければ、Win APIなどを用いて、クリックの位置とフォームの位置から計算で求めるようなことを行えば、不可能ではありませんが、相当に面倒なものになると思われます)
また、Listboxがマルチセレクト可になっていると、複数の項目を取得することになってしまいますので、ご質問のケースでは1項目のみが選択可となっていると仮定しています。
(リスト内には、すでに項目が表示されている状態であると仮定しています)
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then Exit For
Next i
If i < ListBox1.ListCount Then MsgBox ListBox1.List(i)
End Sub
のような感じで、選択された項目を取得することが可能です。
(上記の例では、リストが未選択の場合には何もしません)
No.1
- 回答日時:
厳しそうに感じる初級者です。
まず質問者さんは実際のデータ仕様やそれぞれのフォームにおけるコントロール配置については目を通しているでしょう。
しかしこの質問ではそれらの仕様及び関連(紐付け)情報が見えてこないと感じます。
画像(写真撮影ではなく画面のプリントスクリーンを適度なサイズに変更)があると視覚的に便利かと思いますが、ここのサイトでは画像拡大が難しい。
まだ知恵袋の方が見やすいとは思います。
ベテラン回答者さんであれば外部サイトの紹介とかもあるようですが、果たして安全なのか?についてはたかだか40年程度サボり気味でやってきた初級者には判別できませんので、それは抜きにしておきました。
検索すると紹介されているかもしれませんけど。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Visual Basic(VBA) VBA Bookの表示、非表示 1 2022/09/16 20:44
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- その他(プログラミング・Web制作) pythonリストの特定の値を表示htmlで表示できない 2 2022/05/14 05:48
このQ&Aを見た人はこんなQ&Aも見ています
-
これまでで一番「情けなかったとき」はいつですか?
これまでの人生で一番「情けない」と感じていたときはいつですか? そこからどう変化していきましたか?
-
いちばん失敗した人決定戦
あなたの「告白」での大失敗を教えてください。
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
あなたの人生で一番ピンチに陥った瞬間は?
これまでの人生で今振り返ると「あの時、1番ピンチだったなぁ...」という瞬間はありますか?
-
「これいらなくない?」という慣習、教えてください
現代になって省略されてきたとはいえ、必要性のない慣習や風習、ありませんか?
-
VBA。リストボックスの値を別のユーザーフォームのテキストボックスに反映したい。
Access(アクセス)
-
Excel VBA 複数選択したリストボックスからテキストボックスに転記したいです。
Visual Basic(VBA)
-
VBA リストボックス内の値を複数選択し別シートに転記するには
Visual Basic(VBA)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
UserForm1.Showでエラーになります。
工学
-
6
excelのリストボックスで選択した項目をアクティブセルに入力方法
Excel(エクセル)
-
7
エクセルVBAリストボックスに表示された検索結果をクリックして、該当するセルをアクティブセルにしたい
Excel(エクセル)
-
8
エクセルVBA「リストボックスで選択した値をテキストボックスで変更してシート上セルに反映したい」
Excel(エクセル)
-
9
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
10
リストボックスをクリックすると、他フォームに値代入
Excel(エクセル)
-
11
VBA リストボックスをダブルクリックしデータを修正したいのですが…。
Visual Basic(VBA)
-
12
Excel vba ListBoxについて
Excel(エクセル)
-
13
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
14
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
15
エクセル VBA ユーザーフォーム リストボックスで選択した値をテキストボックスに自動表示
Visual Basic(VBA)
-
16
複数選択のListBoxでClickイベントが拾えません
Visual Basic(VBA)
-
17
VBA リストボックス(複数条件)で検索し、転記方法についてご教示ください。
Visual Basic(VBA)
-
18
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
19
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
20
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
Excel VBAのリストボックスの値...
-
VB初心者。小数点以下の表示で...
-
テキストボックスの設定。
-
VB.NETでアクティブなformを知...
-
VB.NETでコンボボックスの1行目...
-
ユーザーフォームのテキストボ...
-
C#の質問です
-
vb6のVSFlexGridで選択行、列の...
-
ACCESS VBA 画像ファ...
-
[VB.net] DataGridViewのコンボ...
-
RGB値をL*a*b*に変換したい
-
チェックリストボックスの見え...
-
C言語でのレジストリ書き換え
-
TextBoxでEnterを押すとGridVie...
-
プログラム
-
MATLABのGUIについて教えていた...
-
Excel VBA 複数選択したリスト...
-
Excel vba ユーザーフォームテ...
-
値を返さないコード パス
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
Excel VBA 複数選択したリスト...
-
VB.NETでコンボボックスの1行目...
-
値を返さないコード パス
-
Excel VBAのリストボックスの値...
-
マクロ 特定のセル値のみクリ...
-
C#の質問です
-
VB初心者。小数点以下の表示で...
-
Powershellのparamについて
-
VBA ドロップダウンリストを残...
-
textboxとLabelを動的に変更する
-
vb6のVSFlexGridで選択行、列の...
-
PL/SQLでのTO_DATEの時間取得に...
-
ASPの変数の値をJAVA Script内...
-
VB.netでRGB関数を使うには
-
VBA(自然数)
-
変数名の取得
-
ISDBNULLをスルーしてDBNULLが...
-
【C++/CLI.NET】コンボボックス...
-
VB.NETのスクロールバーコント...
おすすめ情報
質問がわかりにくくて申し訳ありません。
ワークシートのB列のID番号を検索してUserForm2のリストボックスに表示させました。
リストボックスに表示された検索結果をダブルクリックしたらをUserForm1の入力フォームでデータの追加や修正をしたいです。UserForm1のTextBox1を顧客IDにしています。
重ねてご教示お願いします。