Excel VBA 質問スレ Part69at TECHExcel VBA 質問スレ Part69 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト147:144 20/12/29 06:25:34.42 r4ksfnFx0.net すみません、Stylesプロパティが2 - fmStyleDropDownListだったからValueに代入できなかったんですね…… ComboBox2.ListIndex = 0 にしたら直りました。お目汚しすみません。 148:デフォルトの名無しさん 20/12/29 15:15:22.81 eRbfzaAa0.net コンボ１→鈴木一郎 コンボ３→鈴木専務 鈴木部長 須藤係長 杉村課長 コンボ３には先頭一致で「す」を検索し絞り込みで表示したいのですがむずかしいでしょうか？あるいは漢字一文字で検索でもいいのですがMatchFound関数を使用するのではないかと思うのですが検討もつきません Option Explicit Private Sub ComboBox2_Change() End Sub Private Sub UserForm_Initialize() Dim r As Long ComboBox1.ColumnCount = 2 For r = 1 To Sheet3.Range("A" & Rows.Count).End(xlUp).Row ComboBox1.AddItem Range("DB!A" & 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 = 2 To Sheet3.Cells(r, Columns.Count).End(xlToLeft).Column ComboBox2.AddItem Sheet3.Cells(r, c).Value Next End Sub 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch