آموزشی جستجو در لیست باکس ابین چند ایتم

[ali.b]

سلام
فرض زمانی پیش میاد میخواهید در لیست باکس یک کلیه خاصی را بین چند کلیه در یک آیتم واقع هستن رو جستجو کنید مثلا لامپ-سیم-چسب
دقت کنید کد بر اسسا نیازمن کد نویسی شده و برای استفاده در جای دیگر باید ویرایش کنید منظور تنها بخش ابی هست که باید دقت کنید

ListBox4.Clear'Dim arrLstBox(1 To 10, 1 To 14)
'ListBox5.list = arrLstBox()


With ListBox4
.ColumnCount = 3
  .AddItem
  .List(0, 0) = Sheet4.Range("B1").Value 'header
  .List(0, 1) = Sheet4.Range("C1").Value 'header
  .List(0, 2) = Sheet4.Range("D1").Value 'header
  .Font = "B Nazanin"
End With


For Each k In Sheet4.Range("K1", Sheet4.Range("K65536").End(xlUp)) '.SpecialCells(xlCellTypeVisible)
If k.Value = "" Then
ListBox4.Clear
Exit Sub
End If
If k.Offset(0, 2).Value <> "False" And[COLOR=#0000ff] InStr(1, k, TextBox22.Text, vbTextCompare)[/COLOR] Then
With ListBox4
.ColumnCount = 3
.AddItem
.List(.ListCount - 1, 0) = k.Offset(0, -9).Value
.List(.ListCount - 1, 1) = k.Offset(0, -8).Value
.List(.ListCount - 1, 2) = k.Offset(0, -7).Value
.Font = "B Nazanin"
End With


End If
Next k