ahed5567 قام بنشر أغسطس 12, 2019 مشاركة قام بنشر أغسطس 12, 2019 السلام عليكم ممكن كواد بحث وتخزين البيانات في الليست بوكس بشرط ان اي شيء ابحث عنه لا يتم مسح ويتم البحث عن التالي المثل به مجمع بيانات وكل عام وانتم بالف خير المصنف1.xls رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر أغسطس 12, 2019 مشاركة قام بنشر أغسطس 12, 2019 (معدل) وعليكم السلام اخى الكريم من الصعب أن تجد من يقوم بعمل كل اكواد الفورم لك فانت لا تعرف اوقات ومدى انشغال الأساتذة -فالفورم ليس به اية أكواد فارغ تماما حاول وابحث بنفسك عن بعض الأكواد واذا تعثرت فى جزئية يمكنك رفعها فالمنتدى ملىء بالكنوز عليك اكتشافها والبحث عنها تم تعديل أغسطس 12, 2019 بواسطه أحمد يوسف رابط هذا التعليق شارك More sharing options...
ahed5567 قام بنشر أغسطس 13, 2019 الكاتب مشاركة قام بنشر أغسطس 13, 2019 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 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر أغسطس 13, 2019 مشاركة قام بنشر أغسطس 13, 2019 هذا الكود ناقص وغير مكتمل ولا ينفع معك ولماذا أصلا العمل على الفورم ,على الرغم العمل على ملف الإكسيل مباشرة افضل واسرع وادق بكثير رابط هذا التعليق شارك More sharing options...
ahed5567 قام بنشر أغسطس 13, 2019 الكاتب مشاركة قام بنشر أغسطس 13, 2019 ممكن الحل يااخي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان