ここから本文です

ユーザーフォームのコンボボックスを連動させるコードを教えて下さい。 コンボボ...

コルネオーネさん

2020/5/2608:39:40

ユーザーフォームのコンボボックスを連動させるコードを教えて下さい。
コンボボックス1にaddItemでシート1のC列の情報を表示しています。C列の右隣に複数表示された情報をコンボボックス2に表

示したいです。

C列
東京 ばなな みかん りんご
仙台 きうい ぶどう いちご みかん
大阪 なし いちご
札幌 とまと みかん ぶどう
福岡 きうい

上記のようなシート1のC列の右隣の果物の情報をコンボボックス2に表示したいです。

閲覧数:
21
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

hot********さん

2020/5/2610:06:55

ComboBox1のリストの2列目に、シートの何行目かを記憶しています。


Private Sub UserForm_Initialize()
Dim r As Long
ComboBox1.ColumnCount = 2
For r = 1 To Range("C" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem Range("C" & r).Value
ComboBox1.List(r - 1, 1) = r 'リストの2列目にシートの何行目かを記憶
Next
End Sub

Private Sub ComboBox1_Change()
Dim r As Long
Dim c As Integer
r = ComboBox1.List(ComboBox1.ListIndex, 1) '選択したリストの2列目(シートの何行目か)
ComboBox2.Clear
For c = 4 To Cells(r, Columns.Count).End(xlToLeft).Column
ComboBox2.AddItem Cells(r, c).Value
Next
End Sub

ComboBox1のリストの2列目に、シートの何行目かを記憶しています。


Private Sub...

  • 質問者

    コルネオーネさん

    2020/5/2615:48:02

     回答ありがとうございます!
     望まないシートの情報が表示されるので、シートの指定をする方法を教えてほしいです。シート名は("くだもの")でお願いします。
     できればリストの中に行番号が表示されないようにしたいです。

     注文が多いですが、よろしくお願いします。

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2020/6/1 18:28:54

ありがとうございます!参考にさせて頂きます!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる