EXCEL VBA リストボックスの表示について
EXCEL VBA リストボックスの表示について
Dim rngCell As Range
Dim strStr As String
Dim strCom As String
Dim strId As String
UserForm1.ListBox1.Clear
strStr = UserForm1.TextBox.text
If strStr = "" Then Exit Sub
ThisWorkbook.Worksheets("sheet1").Activate
For Each rngCell In [a:a]
If rngCell.Value Like "*" & strStr & "*" Then
If InStr(strCom, rngCell.Value) = 0 Then
strCom = rngCell.Offset(0, 5).Value
UserForm1.ListBox1.AddItem strCom
strCom = ""
strId = rngCell.Offset(0, 6).Value
UserForm1.ListBox1.AddItem strId
strId = ""
End If
End If
Next
End Sub
上記のようなコードを作成しました。
キーワードを入力すると決まった行から結果を出力しリストボックスに表示します。
２つの行から結果が出力されるのですがリストボックスの結果表示が上下になってしまいます。
希望としては aaaaa bbbbb と言うように横表示になればと思っています。
＆でつなげる方法もありますがリストボックスのColunmWidthsで指定したとおりの間隔で表示させたいと思っています。
どうか助言をお願いいたします。
補足
ご回答ありがとうございます 質問の言葉が足りなかったようです ScrollBarは確かにつきますが、そのListBoxをマウスのホイールでのスクロールに対応させたい のです ComboBoxはホイールでのスクロールができますが ListBoxはできずに不便を感じています 解決する方法がありましたらよろしくお願いします