الاستاذ مجدى
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي







 
الرئيسيةالأستاذ التعليماليوميةس .و .جبحـثالأعضاءضع التسجيلالمجموعاتدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل كاري محمد فمرحبا به


شاطر | 
 

 فورم بحث وتعديل واضافة بيانات الدرس التاسع ListBox

اذهب الى الأسفل 
كاتب الموضوعرسالة
مجدى يونس
Admin
avatar

عدد المساهمات : 1096
تاريخ التسجيل : 22/02/2013
العمر : 64

مُساهمةموضوع: فورم بحث وتعديل واضافة بيانات الدرس التاسع ListBox    الجمعة يناير 11, 2019 6:55 am

فورم بحث وتعديل واضافة بيانات الدرس التاسع ListBox



الكود:
Private Sub TextBox1_Change()
TextBox2.Value = ""
 TextBox3.Value = ""
 TextBox4.Value = ""
 TextBox5.Value = ""
If TextBox1.Value <> "" Then
Set aa = Range("magdi").Find(TextBox1.Value)
If Not aa Is Nothing Then
TextBox2.Text = Cells(aa.Row, 1).Value
TextBox3.Text = Cells(aa.Row, 2).Value
TextBox4.Text = Cells(aa.Row, 4).Value
TextBox5.Text = Cells(aa.Row, 5).Value
End If
End If
End Sub


الكود:
Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
TextBox1.Value = ListBox1.List(i, 0)
TextBox2.Text = ListBox1.List(i, 1)
TextBox3.Text = ListBox1.List(i, 2)
TextBox4.Text = ListBox1.List(i, 3)
TextBox5.Text = ListBox1.List(i, 4)

End If
Next i
End Sub


الكود:
Private Sub TextBox6_Change()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
Sheets(1).Activate
ListBox1.Clear
ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
k = 0
For Each c In Range("B6:B" & ss)
B = InStr(c, TextBox6)
If B > 0 Then
ListBox1.AddItem
 ListBox1.List(k, 0) = Cells(c.Row, 2).Value
  ListBox1.List(k, 1) = Cells(c.Row, 1).Value
   ListBox1.List(k, 2) = Cells(c.Row, 3).Value
    ListBox1.List(k, 3) = Cells(c.Row, 4).Value
     ListBox1.List(k, 4) = Cells(c.Row, 5).Value
   k = k + 1
End If
Next c
End Sub



_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في الأحد يناير 13, 2019 6:34 am عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
myabaz2000



عدد المساهمات : 10
تاريخ التسجيل : 12/01/2018

مُساهمةموضوع: حفظك الله   السبت يناير 12, 2019 1:27 am

حفظك الله
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
مجدى يونس
Admin
avatar

عدد المساهمات : 1096
تاريخ التسجيل : 22/02/2013
العمر : 64

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات الدرس التاسع ListBox    السبت يناير 12, 2019 8:10 am

شكرا

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
 
فورم بحث وتعديل واضافة بيانات الدرس التاسع ListBox
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: