بحث في الليست بوكس

[ahed5567]

السلام عليكم  ممكن كواد بحث وتخزين البيانات في الليست بوكس بشرط ان اي شيء ابحث عنه لا يتم مسح ويتم البحث عن التالي المثل به مجمع بيانات 

وكل عام وانتم بالف خير

المصنف1.xls

[أحمد يوسف]

وعليكم السلام اخى الكريم

من الصعب أن تجد من يقوم بعمل كل اكواد الفورم لك فانت لا تعرف اوقات ومدى انشغال الأساتذة -فالفورم ليس به اية أكواد فارغ تماما

حاول وابحث بنفسك عن بعض الأكواد واذا تعثرت فى جزئية يمكنك رفعها 

فالمنتدى ملىء بالكنوز عليك اكتشافها والبحث عنها

 

تم تعديل أغسطس 12, 2019 بواسطه أحمد يوسف

[ahed5567]

 

Dim i As Long
Me.ListBox1.AddItem
For a = 1 To 5
Me.ListBox1.List(0, a - 1) = sheet1.Cells(1, a)
Next a
Me.ListBox1.Selected(0) = True
For i = 2 To sheet1.Range("a100").End(xlUp).offest(1, 0).Row
For j = 1 To 5
h = Application.WorksheetFunction.CountIf(sheet1.Range("a" & 2, "e" & i), _
sheet1.Cells(i, j))
If h = 1 And LCase(sheet1.Cells(i, j)) = LCase(Me.TextBox1) Or h = 1 And _
sheet1.Cells(i, j) = Val(Me.TextBox1) Then
Me.ListBox1.AddItem
For x = 1 To 5
Me.ListBox1.List(ListBox1.ListCount - 1, x - 1) = sheet1.Cells(i, x)
Next x
End If
Next j
Next i
  

 

[أحمد يوسف]

هذا الكود ناقص وغير مكتمل ولا ينفع معك

ولماذا أصلا العمل على الفورم ,على الرغم العمل على ملف الإكسيل مباشرة افضل واسرع وادق بكثير

[ahed5567]

ممكن الحل  يااخي