コンボ１→鈴木一郎 コンボ３→鈴木専務 鈴木部長 須藤係長 杉村課長 コンボ３には先頭一致で「す」を検索し絞り込みで表示したいのですがむずかしいでしょうか？あるいは漢字一文字で検索でもいいのですが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
