عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي سنتشرف بتسجيلك شكرا ادارة المنتدي
الاستاذ مجدى
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي سنتشرف بتسجيلك شكرا ادارة المنتدي
الاستاذ مجدى
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
عدد المساهمات : 3708 تاريخ التسجيل : 22/02/2013 العمر : 68
موضوع: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو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 مرات
baddaon, اسلام اسلام, نبيل المحاسب و Rami يعجبهم هذا الموضوع
khairy
عدد المساهمات : 24 تاريخ التسجيل : 11/09/2017
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 السبت أكتوبر 19, 2019 7:49 am
بارك اللة فيك وجزاك اللة عنا خير الجزاء
ياريت ملف العمل لتعم الفاءدة
مجدى يونس Admin
عدد المساهمات : 3708 تاريخ التسجيل : 22/02/2013 العمر : 68
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو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
عدد المساهمات : 3708 تاريخ التسجيل : 22/02/2013 العمر : 68
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء أكتوبر 22, 2019 3:17 pm
شكرا ولاداعى لنسخ الموضوع
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
نورالدين بوكرو
عدد المساهمات : 25 تاريخ التسجيل : 30/12/2018 العمر : 62
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء أكتوبر 22, 2019 10:31 pm
ما شاء الله بوركت
مجدى يونس Admin
عدد المساهمات : 3708 تاريخ التسجيل : 22/02/2013 العمر : 68
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء أكتوبر 22, 2019 11:49 pm
شكرا
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
رشيد
عدد المساهمات : 34 تاريخ التسجيل : 23/07/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء أكتوبر 30, 2019 12:40 pm
كل اعمالك مفيدة جزاكم الله خيرا
مجدى يونس Admin
عدد المساهمات : 3708 تاريخ التسجيل : 22/02/2013 العمر : 68
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء أكتوبر 30, 2019 2:15 pm
الف شكر
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
tarek ahmed
عدد المساهمات : 2 تاريخ التسجيل : 05/03/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء نوفمبر 05, 2019 9:47 am
تسلم ايدك
مجدى يونس Admin
عدد المساهمات : 3708 تاريخ التسجيل : 22/02/2013 العمر : 68
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء نوفمبر 05, 2019 1:54 pm
شكرا لك
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
ابوعمر
عدد المساهمات : 56 تاريخ التسجيل : 26/02/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأحد نوفمبر 10, 2019 7:27 am
عمل رائع بارك الله فيك
مجدى يونس Admin
عدد المساهمات : 3708 تاريخ التسجيل : 22/02/2013 العمر : 68
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأحد نوفمبر 10, 2019 12:03 pm
شكرا لك
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
akaraki
عدد المساهمات : 2 تاريخ التسجيل : 11/03/2015
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الإثنين نوفمبر 11, 2019 1:13 pm
Thanks
مجدى يونس Admin
عدد المساهمات : 3708 تاريخ التسجيل : 22/02/2013 العمر : 68
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الإثنين نوفمبر 11, 2019 3:23 pm
شكرا
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
ادريس
عدد المساهمات : 20 تاريخ التسجيل : 24/09/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الثلاثاء نوفمبر 12, 2019 9:45 pm
بارك اللة فيك
مجدى يونس Admin
عدد المساهمات : 3708 تاريخ التسجيل : 22/02/2013 العمر : 68
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء نوفمبر 13, 2019 12:43 am
وبارك فيك
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
peachgreen010
عدد المساهمات : 12 تاريخ التسجيل : 13/11/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء نوفمبر 13, 2019 10:26 am
khairy كتب:
بارك اللة فيك وجزاك اللة عنا خير الجزاء مشكووووور ياريت ملف العمل لتعم الفاءدة
مجدى يونس Admin
عدد المساهمات : 3708 تاريخ التسجيل : 22/02/2013 العمر : 68
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء نوفمبر 13, 2019 12:37 pm
الف شكر
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
abm_bakry
عدد المساهمات : 1 تاريخ التسجيل : 13/11/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 السبت نوفمبر 16, 2019 1:47 pm
جزاك الله خيرا أخى الكريم
مجدى يونس Admin
عدد المساهمات : 3708 تاريخ التسجيل : 22/02/2013 العمر : 68
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 السبت نوفمبر 16, 2019 3:54 pm
الف شكر
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
faraktoz
عدد المساهمات : 12 تاريخ التسجيل : 08/07/2017
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء نوفمبر 20, 2019 7:36 am
khairy كتب:
بارك اللة فيك وجزاك اللة عنا خير الجزاء
ياريت ملف العمل لتعم الفاءدة
مجدى يونس Admin
عدد المساهمات : 3708 تاريخ التسجيل : 22/02/2013 العمر : 68
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الأربعاء نوفمبر 20, 2019 1:31 pm
الكود موجود
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
saleh
عدد المساهمات : 6 تاريخ التسجيل : 23/11/2019
موضوع: رد: فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 السبت نوفمبر 23, 2019 9:18 pm