- 締切済み
ＶＢＡのリストボックス連動がうまく表示されません。
例えば、エクセル表に下記のようなデータが入っているとします。 Ａ列は項目であり、Ｂ列は項目内容数（Ｄ列以降の項目数）、Ｄ列にはＡ列項目の内容が入っています。しかし、この列は変動する為、変数で指定しています。 これをリストボックス１で、まずＡ列の内容を表示させて、その中で選んだ項目をリストボックス２でＤ列以降の行内容を表示させ、リストボックス２の値を取得したいのですが、リストボックス２がうまくい表示できません。 リストボックス１では .RowSourceを使ってセル指定して表示させています。 このようなケースがuserformに多数あり、for～の処理はできるだけ避けています。 例えばUserForm_Initialize()で次の通りです。 With ListBox1 .ColumnCount = 1 .BoundColumn = 1 .RowSource = Worksheets(wksheet).Range(Cells(2, item_No), Cells(item_max_cnt, item_No)).Address(External:=True) ＶＢＡ初心者で恥ずかしい質問ですが、どなたかご教示宜しくお願い致します。ｍ（＿ ＿）ｍ Ａ列＿Ｂ列＿＿Ｄ列＿Ｅ列＿Ｆ列＿Ｇ列＿Ｈ列 … ａ＿3＿＿あ＿い＿う ｂ＿1＿＿か ｃ＿5＿＿さ＿し＿す＿せ＿そ
- miki_pT-Tq
- お礼率33% (1/3)
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- n-jun
- ベストアンサー率33% (959/2873)
UserForm_Initialize()で”名前の定義”を用いて リストの切り替え(入力規則) http://www4.synapse.ne.jp/yone/excel2010/excel2010_nyukisoku3.html にあるような連動方法を取ることは可能かもしれませんが、 ＞このようなケースがuserformに多数あり、 多数とはどう言うことなのか？ ＞for～の処理はできるだけ避けています。 避けなければならない理由は？ の回答によってはこの方法も無理かもしれませんね。 ⇒と、先日気にはなっていたのですが どこなのか見失ってしまったもので。
関連するQ&A
- エクセル リストボックスにセルの値を表示したい
Sheet1に A1 a A2 i A3 u と入力されています。 フォームのリストボックスにこの3つのセルを表示したいのですが Private Sub UserForm_Initialize() UserForm1.ListBox1.ControlSource = Sheets("Sheet1").Range(Cells(1, 1), Cells(1, 3)) End Sub ではうまく行きません。 デバッグしてもなにも引っかからないのですが 実行すると 「実行時エラー13 型が一致しません」 となります。 「ControlSource」を「RowSource」に変えても同じでした。 ※列が移動するため列番号を変数で取得したいのでCellsを使用しています。 ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- オプションボタンとリストボックスの連動
下記コードを作りましたが、全く反応がありません。 どこが悪いのか、指摘いただけませんでしょうか？ よろしくお願いします。 ・オプションボタン1を選択＝リストシートのB列をリストボックスへ表示 ・オプションボタン2を選択＝リストシートのC列をリストボックスへ表示 ・リストボックスから一項目を選択、値を入力シートへ入力 Private Sub UserForm2_Initialize() If OptionButton1.Value = True Then With UserForm2 .ListBox1.RowSource = "リスト!B3:B" & lastRow End With End If If OptionButton2.Value = True Then With UserForm2 .ListBox1.RowSource = "リスト!C3:C" & lastRow End With End If End Sub Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, _ ByVal X As Single, ByVal Y As Single) Worksheets("入力!").ActiveCell.Value = ListBox1.Value End Sub 以上
- ベストアンサー
- Visual Basic
- フォームのリストボックスに値を表示させたい
VBA フォームのリストボックスに値を表示させたい Ａ１→aaa Ａ２→bbb リストボックスに上記の値を表示させたいなら、 Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "Sheet1!A1:A2" End Sub で出来ますが、シート上のセルで表示する値を指定するのではなく、ＶＢＡ上で、リストボックスに表示させる値を指定したいのです。 Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "aaa,bbb" End Sub を実行すると、VBA実行時エラー380になってしまいます。 UserForm1.ListBox1.RowSource = "aaa;bbb" もダメでした。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAのリストボックスについて
今、ユーザーフォームをつくり、その中にリストボックスを配置したんですけど、セルに入力されている値を表示したいと思い、RowSourceプロパティに"sheets1!A1：C100"と指定しました。しかし、実際リストボックスに表示されたのは先頭のA列だけで、B、C列は表示されませんでした。どうしたらこれらは表示できるのでしょうか。もとの参照データが膨大な為、よろしくお願いします。
- ベストアンサー
- Visual Basic
- シート上のリストボックスに値を表示するには？
エクセル２００３です。 コントロールツールボックスからシートにリストボックスを設置しました。 ここに値を指定するにはどうすればいいでしょうか？ フォーム上のリストボックスなら Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "Sheet1!a2:a3" End Sub とすればいいのですが シートのイベントにInitializeはありません。 どこのイベントプロシージャーに 「リストボックスに値を表示する」というコードを書けばいいのでしょうか？ シートモジュールにに Private Sub ListBox1_Click() UserForm1.ListBox1.RowSource = "Sheet1!a2:a3" End Sub としても何も起こりません。 できればファイルを開いた時からリストボックスに値を表示させるようにしたいです。 ご教授よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- VBAで2つのリストボックスの連動表示に関して
VBAで2つのリストボックスの連動表示に関して、 ご教授、お願い致します。 VBAで色々、試行錯誤しております初心者です。 今回の質問ですけど、参考にWebで調べたのですが 分からなく、どのようにしたらいいのか 教えて頂けないでしょうか。 （例 リスト表） Sheet1（取引名簿） （No.） （取引番号） （取引社名） A列 B列 C列 ・・・ 1 1 A-0001 A社 ・・・ 2 2 B-0001 B社 ・・・ 3 3 A-0002 C社 ・・・ 4 4 A-0003 D社 ・・・ 5 5 B-0002 E社 ・・・ ・ ・ ・ Sheet2（顧客名簿） （No.） （取引社名） （顧客名） A列 B列 C列 ・・・ 1 1 A社 顧客1 ・・・ 2 2 B社 顧客2 ・・・ 3 3 A社 顧客3 ・・・ 4 4 C社 顧客4 ・・・ 5 5 A社 顧客5 ・・・ ・ ・ ・ 上記、例題 2つのシートリストを条件に合わせ、2つ目のリストボックスに 連動表示させたいのですが処理できるように教えて頂けないでしょうか。 ※ ListBox1 に Sheet1 の B列（取引番号） と C列（取引社名） を表示し、 ListBox2 には、 Sheet1 で選択した取引会社に連動し、 C列の顧客(条件一致者）全員を ListBox2に表示したいのです。 (例) ListBox1でSheet1の中からA社を選択したとします。 連動でListBox2には、A社の顧客1、顧客3、顧客5が表示するように出来ないでしょうか。 説明下手で申し訳ありませんが宜しくお願い致します。
- ベストアンサー
- Visual Basic
- VBA コンボボックス リスト表示について
初心者ですいません エクセル VBAのフォームでコンボボックス３つと、テキストボックス３つがあります シートのListにA～Ｆ列までのデータがあり、コンボボックス１にA列のリストを表示し コンボボックス２にA列で選んだリストを参照したB列のリストを表示し、コンボボックス３ にコンボボックス１，２で選んだリストを参照し、C列のリストを表示した後、 コンボボックス１，２，３で選ばれたもののD列、E列分をテキストボックス１，２に 反映しようと思っておりますがうまくいきません どのようにしたらよいか、おしえてください 宜しくお願いします ちなみに、リストの内容は Ａ列 Ｂ列 C列 Ｄ列 Ｅ列 テレビ 42インチ HDD内蔵 台 100,000 テレビ 32インチ BD内蔵 台 80,000 テレビ 19インチ 台 50,000 ビデオ HDD １TB 台 100,000 ビデオ HDD 500GB 台 80,000 ビデオ BD 台 70,000 が、入ってます 希望は、質問の際のカテゴリ選択のようになればよいのですが．．． さらに、希望を言えば、自動で、行ごとに1,2,3...と番号を振るようにしており スピンボタンで番号を選べば、登録された上記のデータをフォームに反映させるようにしております これもうまくいきません お願いばかりで申し訳ありませんが 宜しくお願いします
- ベストアンサー
- Visual Basic
- リストボックスについてです。
リストボックスについてです。 B列をダブルクリックするとリストボックスが立ち上がり、データを選択してB列に表示できるように設定されていますが、困った現象が起こっています。 例えば、sheet1のB10にダブルクリックでリストボックスを表示し、そこから「あいうえお」という名前を表示させて、sheer1編集が終わったとします。 次のsheet2でB1をダブルクリックしているのに、sheet2のB10に勝手に「あいうえお」と表示されてしまいます。 コードは以下になってます。 VBA初心者なのでエクセルのサイト等からコピペ等して作ったコードです。 どこかおかしな箇所があると思うのですが、何処がおかしいのかがわかりません。 お分かりになる方、教えていただければ助かります。 ' ◆Worksheetのコード◆ '---------------------------------------------------- '選択範囲を変更したときに実行される Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) UserForm1.ListBox1.RowSource = "データ!A1:A100" '表示するデータ範囲 UserForm1.ListBox1.Font.Size = 12 'フォントサイズ If Target.Column = 2 Then 'B列なら 行 = Target.Row '行番号を取得する UserForm1.Show 'ユーザーフォームを表示する End If End Sub '=================================================================================== ' ◆UserForm1のコード◆ '-------------------------------------------------------------------------- Private Sub ListBox1_Click() 'クリックされたときに実行される If 行 <> 1 Then '1行目でなければ Cells(行, 2) = ListBox1.Value 'リストボックスの値をセルにセットする End If UserForm1.Hide 'ユーザーフォームを非表示にする End Sub Private Sub UserForm_Deactivate() '非アクティブになったときに実行される Unload Me 'ユーザーフォームをメモリから削除する End Sub '========================================================================================= '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ ' ◆標準モジュールのコード◆ Option Explicit Public 行 As Variant '行番号 Sub auto_open() Load UserForm1 'ユーザーフォームをメモリに読み込む End Sub '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
- ベストアンサー
- オフィス系ソフト
- 再度、2つのリストボックスの連動表示に関して
先日、VBAで2つのリストボックスの連動表示に関して（投稿日時 - 2013-08-31） ご質問させて頂き、mitarashi さんにご回答、ベストアンサーをしたのですけれども、 お恥ずかしい事ですが自分でUserFormへの載せ替えを試行錯誤して やってみたのですがVBA初心者の私じゃ中々、旨く行かないもので 再度、質問させていただきました。 VBAでUserForm上の記述をご享受お願い致します。 mitarashi さんに再度、ご回答して頂きたいのですが 無理のようでしたら mitarashi さん以外のVBAに精通しておられる方もご回答お待ちしております。 【前回の質問】 （例 リスト表） Sheet1（取引名簿） （No.） （取引番号） （取引社名） A列 B列 C列 ・・・ 1 1 A-0001 A社 ・・・ 2 2 B-0001 B社 ・・・ 3 3 A-0002 C社 ・・・ 4 4 A-0003 D社 ・・・ 5 5 B-0002 E社 ・・・ ・ ・ ・ Sheet2（顧客名簿） （No.） （取引社名） （顧客名） A列 B列 C列 ・・・ 1 1 A社 顧客1 ・・・ 2 2 B社 顧客2 ・・・ 3 3 A社 顧客3 ・・・ 4 4 C社 顧客4 ・・・ 5 5 A社 顧客5 ・・・ ・ ・ ・ 上記、例題 2つのシートリストを条件に合わせ、2つ目のリストボックスに 連動表示させたいのですが処理できるように教えて頂けないでしょうか。 ※ ListBox1 に Sheet1 の B列（取引番号） と C列（取引社名） を表示し、 ListBox2 には、 Sheet1 で選択した取引会社に連動し、 C列の顧客(条件一致者）全員を ListBox2に表示したいのです。 (例) ListBox1でSheet1の中からA社を選択したとします。 連動でListBox2には、A社の顧客1、顧客3、顧客5が表示するように出来ないでしょうか。 説明下手で申し訳ありませんが宜しくお願い致します。
- ベストアンサー
- Visual Basic
- コンボボックスのリストについて（エクセル、マクロ）
またお世話になります。 多分簡単な疑問だと思うのですが・・・、 ユーザーフォームのコンボボックスのRowsourceの 設定に関して可変式にしたいので以下のように マクロ（一部を抜粋）を組んでみました。 Dim b As Integer b = 2 Do b = b + 1 Loop Until Sheets(3).Cells(b, "A") = "" ComboBox1.RowSource = Range(Cells(2, "A"), Cells(b - 1, "C")) が、「型が一致しません」と出てうまくいきません。 どうしたらよいでしょうか？ また、 Ａ列 Ｂ列 Ｃ列 2005/1/1 東京 10 ・ ・ ・ のようにシートには並んでいるものを コンボボックスのリストとして取り入れたいのですが 変な５桁の数字しか現れず（たぶんこの数字は 2005/1/1を標準値化した数値なのでしょうが） ３つきれいにそろって表れません。 こちらの方も解決していただけないでしょうか？
- ベストアンサー
- オフィス系ソフト
補足
n-junさんへ 早々の回答ありがとうございます。 質問が言葉足らずですみませんでした。 多数というのは言葉の通りで、数十個 リストボックスの連動が2個の場合や3個の場合等が複数存在するという事です。私としましては、2個の連動がうまくいけば、それを元に3個のものも対応できると思いましたので、多数とだけ記載しました。 For～を処理を避けたかった理由としましては、上記で記載した複数のリストボックス連動とかなり大きなデータ量を処理するのに、For～処理を使うと遅くなるとどこかに記載があったので、避けられるものならと思いました。 しかし、やはり繰り返す方法しか見つからずforなりdoを使う事により解決いたしました。 ありがとうございました。ｍ（＿ ＿）ｍ