'リストボックスの内容を検索するコード
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'↑エンターイベントだとクリックした時にも反応してしまうのでKeyDownイベントにしています。
If KeyCode <> 13 Then Exit Sub '←エンターキー以外では動作しないように設定
Dim li As Long
For li = 0 To ListBox1.ListCount - 1 'ListCountで登録されているデータ数を取得
If ListBox1.List(li) = TextBox1.Text Then '配列のデータ上にTextBox1に入力されたデータと同じものがあるか判定
ListBox1.ListIndex = li 'ListIndexで選択位置を変数liに指定
Exit Sub
End If
Next li
'↓見つからなかった場合
MsgBox "見つかりませんでした"
End Sub
コメントを残す