عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي سنتشرف بتسجيلك شكرا ادارة المنتدي
الاستاذ مجدى
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 السبت أكتوبر 19, 2019 5:56 am
فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3
الفيديو
الكود
الكود:
Private Sub Cmdexit_Click() Dim iexit As VbMsgBoxResult iexit = MsgBox("هل تريد الخروج وغلق الفورم", vbQuestion + vbYesNo, "فورم الخروج من الفورم") If iexit = vbYes Then Unload Me End If End Sub
Private Sub ComboBox1_Change() Dim i As Long, lr As Long, ws As Worksheet Set ws = Sheets("sheet1") lr = ws.Range("a" & Rows.Count).End(xlUp).Row For i = 2 To lr If Val(Me.ComboBox1.Value) = ws.Cells(i, "a") Then TextBox1.Value = ws.Cells(i, "b").Value TextBox2.Value = ws.Cells(i, "c").Value TextBox3.Value = ws.Cells(i, "d").Value TextBox4.Value = ws.Cells(i, "e").Value TextBox5.Value = ws.Cells(i, "f").Value TextBox6.Value = ws.Cells(i, "g").Value End If Next i End Sub
Private Sub ComboBox2_Change() Dim y As Long, lr As Long, ws As Worksheet Set ws = Sheets("sheet1") lr = ws.Range("b" & Rows.Count).End(xlUp).Row For y = 2 To lr If Val(Me.ComboBox2.Value) = ws.Cells(y, "b") Then TextBox1.Value = ws.Cells(i, "c").Value TextBox2.Value = ws.Cells(i, "d").Value TextBox3.Value = ws.Cells(i, "e").Value TextBox4.Value = ws.Cells(i, "f").Value TextBox5.Value = ws.Cells(i, "g").Value TextBox6.Value = ws.Cells(i, "h").Value End If Next y End Sub
Private Sub CommandButton1_Click() ListBox1.ColumnCount = 7 ListBox1.RowSource = "a2:g50"
Private Sub CommandButton3_Click() Dim i As Integer If MsgBox("هل تريد الذهاب للسطر المختار", vbYesNo + vbQuestion, "اختار بين الموافقة والرفض") = vbYes Then
For i = 1 To Range("A1000").End(xlUp).Row If Cells(i, 1) = ListBox1.List(ListBox1.ListIndex) Then Rows(i).Select Selection.Delete End If Next i End If
Private Sub CommandButton5_Click() Unload Me End Sub
Private Sub Label2_Click()
End Sub Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i As Long, lr As Long, ws As Worksheet Set ws = Sheets("sheet1") lr = ws.Range("a" & Rows.Count).End(xlUp).Row For i = 2 To lr If Val(Me.ListBox1.Value) = ws.Cells(i, "a") Then TextBox1.Value = ws.Cells(i, "b").Value TextBox2.Value = ws.Cells(i, "c").Value TextBox3.Value = ws.Cells(i, "d").Value TextBox4.Value = ws.Cells(i, "e").Value TextBox5.Value = ws.Cells(i, "f").Value TextBox6.Value = ws.Cells(i, "g").Value End If Next i End Sub
Private Sub ListBox2_Click()
End Sub
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) For i = 0 To ListBox2.ListCount If ListBox2.Selected(i) = True Then
TextBox1.Value = ListBox2.List(i, 0) TextBox2.Text = ListBox2.List(i, 1) TextBox3.Text = ListBox2.List(i, 2) TextBox4.Text = ListBox2.List(i, 3) TextBox5.Text = ListBox2.List(i, 4) TextBox6.Text = ListBox2.List(i, 5) End If Next i End Sub
Private Sub TextBox7_Change() TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" Sheets(1).Activate ListBox2.Clear ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row k = 0 For Each c In Range("B2:B" & ss) B = InStr(c, TextBox7) If B > 0 Then ListBox2.AddItem ListBox2.List(k, 0) = Cells(c.Row, 2).Value ListBox2.List(k, 1) = Cells(c.Row, 1).Value ListBox2.List(k, 2) = Cells(c.Row, 3).Value ListBox2.List(k, 3) = Cells(c.Row, 4).Value ListBox2.List(k, 4) = Cells(c.Row, 5).Value ListBox2.List(k, 5) = Cells(c.Row, 6).Value k = k + 1 End If Next c End Sub Private Sub UserForm_Activate() TextBox7.SetFocus For i = 2 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row ListBox2.AddItem ListBox2.List(i - 2, 0) = Cells(i, 2).Value ListBox2.List(i - 2, 1) = i Next i End Sub
حمل الملف بعد وضع رد وسيحمل على جهازك فورا
عدل سابقا من قبل مجدى يونس في الأحد أكتوبر 20, 2019 7:39 am عدل 2 مرات
arsalanamin, baddaon, اسلام اسلام, نبيل المحاسب و Rami يعجبهم هذا الموضوع
khairy
عدد المساهمات : 24 تاريخ التسجيل : 11/09/2017
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 السبت أكتوبر 19, 2019 7:49 am
بارك اللة فيك وجزاك اللة عنا خير الجزاء
ياريت ملف العمل لتعم الفاءدة
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 السبت أكتوبر 19, 2019 10:33 am
لو سمعت الفيديو مكنتش طلبت الملف وعموما الكود بالاعلى
abdo
عدد المساهمات : 103 تاريخ التسجيل : 18/04/2017
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 السبت أكتوبر 19, 2019 8:03 pm
ممتاز استاذ جزاك الله كل الخير
ابوعمر
عدد المساهمات : 56 تاريخ التسجيل : 26/02/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء أكتوبر 22, 2019 1:51 pm
عمل رائع بارك الله فيك
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء أكتوبر 22, 2019 3:17 pm
شكرا ولاداعى لنسخ الموضوع
نورالدين بوكرو
عدد المساهمات : 25 تاريخ التسجيل : 30/12/2018 العمر : 63
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء أكتوبر 22, 2019 10:31 pm
ما شاء الله بوركت
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء أكتوبر 22, 2019 11:49 pm
شكرا
رشيد
عدد المساهمات : 34 تاريخ التسجيل : 23/07/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء أكتوبر 30, 2019 12:40 pm
كل اعمالك مفيدة جزاكم الله خيرا
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء أكتوبر 30, 2019 2:15 pm
الف شكر
tarek ahmed
عدد المساهمات : 2 تاريخ التسجيل : 05/03/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء نوفمبر 05, 2019 9:47 am
تسلم ايدك
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء نوفمبر 05, 2019 1:54 pm
شكرا لك
ابوعمر
عدد المساهمات : 56 تاريخ التسجيل : 26/02/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأحد نوفمبر 10, 2019 7:27 am
عمل رائع بارك الله فيك
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأحد نوفمبر 10, 2019 12:03 pm
شكرا لك
akaraki
عدد المساهمات : 3 تاريخ التسجيل : 11/03/2015
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الإثنين نوفمبر 11, 2019 1:13 pm
Thanks
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الإثنين نوفمبر 11, 2019 3:23 pm
شكرا
ادريس
عدد المساهمات : 20 تاريخ التسجيل : 24/09/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء نوفمبر 12, 2019 9:45 pm
بارك اللة فيك
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء نوفمبر 13, 2019 12:43 am
وبارك فيك
peachgreen010
عدد المساهمات : 12 تاريخ التسجيل : 13/11/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء نوفمبر 13, 2019 10:26 am
khairy كتب:
بارك اللة فيك وجزاك اللة عنا خير الجزاء مشكووووور ياريت ملف العمل لتعم الفاءدة
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء نوفمبر 13, 2019 12:37 pm
الف شكر
abm_bakry
عدد المساهمات : 1 تاريخ التسجيل : 13/11/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 السبت نوفمبر 16, 2019 1:47 pm
جزاك الله خيرا أخى الكريم
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 السبت نوفمبر 16, 2019 3:54 pm
الف شكر
faraktoz
عدد المساهمات : 12 تاريخ التسجيل : 08/07/2017
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء نوفمبر 20, 2019 7:36 am
khairy كتب:
بارك اللة فيك وجزاك اللة عنا خير الجزاء
ياريت ملف العمل لتعم الفاءدة
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء نوفمبر 20, 2019 1:31 pm
الكود موجود
saleh
عدد المساهمات : 6 تاريخ التسجيل : 23/11/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 السبت نوفمبر 23, 2019 9:18 pm