أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene مجدى يونس-- لا تميز خلال هذه الفترة YasserKhalil تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره اكسيل اسئله واجابات


اعلان هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف

بسم الله الرحمن الرحيم اقدم لكم اليوم برنامج لادخال البيانات والبحث عنها باي شرط بحث حسب رغبتكم وعرض النتائج داخل ليست ..



17-09-2017 10:31 صباحا
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1019
الجنس : ذكر
الدعوات : 12
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 562
قوة السمعة : 7228
الاعجاب : 45
موقعي : زيارة موقعي
 offline 

بسم الله الرحمن الرحيم

اقدم لكم اليوم برنامج لادخال البيانات والبحث عنها باي شرط بحث حسب رغبتكم وعرض  النتائج داخل ليست بوكس

ويمكنكم التعديل على اي بيان وايضا يمكنكم عرض تقرير عن اي بحث  داخل شيت مستقل

وامكانية حذف بيان غير مرغوب به من شيت البيانات

طريقة العمل كالاتي

لادخال البيانات تكتب في اسفل الفورم داخل التكست بوكس ونتجاهل الخاصة بالصف  لانها ضمن اعدادات البحث ونضغط علي اضافة

للبحث عن بيان يتم اختيار الحقل المراد البحث داخله ثم نكتب ما نريد داخل  تكست البحث عن  وتظهر النتيجة داخل الليست بوكس

للتعديل على صف يتم الضغط دبل كليك  علي الصف داخل الليست بوكس ليرحل الى التكست بوكس اسفل الفورم ومن ثم التعديل والضغط على تعديل 

وللحذف يتم الضغط دبل كليك على الصف داخل الليست بوكس ليرحل الى التكست بوكس اسفل الفورم ومن ثم الضغط على حذف

لاستخراج نتيجة البحث  في شيت مستقل يتم الضغط علي تقرير بعد عمليه البحث ليتم ترحيل البيانات الى شيت التقرير ريبورت 

صورة الفورم

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

الكود المستخدم داخل الملف

Private Sub CommandButton1_Click()
    Dim LastRow As Integer
    Dim ii As Integer
    With Sheets("Data")
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
        .Cells(LastRow, 2).Value = TextBox3.Text
        .Cells(LastRow, 3).Value = TextBox4.Text
        .Cells(LastRow, 4).Value = TextBox5.Text
        .Cells(LastRow, 5).Value = TextBox6.Text
        .Cells(LastRow, 6).Value = TextBox7.Text
        .Cells(LastRow, 7).Value = TextBox8.Text
        .Cells(LastRow, 8).Value = TextBox9.Text
        .Cells(LastRow, 9).Value = TextBox10.Text
    End With
    For ii = 2 To 10
        Me.Controls("TextBox" & ii).Value = ""
    Next
End Sub
Private Sub CommandButton2_Click()
    On Error Resume Next
    ii = 2
    For i = 0 To Me.ListBox1.ColumnCount
        Me.ListBox1.List(ListBox1.ListIndex, i) = Me.Controls("TextBox" & ii).Value
        ii = ii + 1
    Next
    With Sheets("Data")
        .Cells(TextBox2, 2).Value = TextBox3.Text
        .Cells(TextBox2, 3).Value = TextBox4.Text
        .Cells(TextBox2, 4).Value = TextBox5.Text
        .Cells(TextBox2, 5).Value = TextBox6.Text
        .Cells(TextBox2, 6).Value = TextBox7.Text
        .Cells(TextBox2, 7).Value = TextBox8.Text
        .Cells(TextBox2, 8).Value = TextBox9.Text
        .Cells(TextBox2, 9).Value = TextBox10.Text
    End With
End Sub
Private Sub CommandButton3_Click()
    Sheets("Data").Rows(TextBox2).Delete Shift:=xlUp
    On Error Resume Next
    ii = 2
    For i = 0 To Me.ListBox1.ColumnCount
        Me.ListBox1.List(ListBox1.ListIndex, i) = ""
        Me.Controls("TextBox" & ii).Value = ""
        ii = ii + 1
    Next
End Sub
Private Sub CommandButton4_Click()
    With Sheets("report")
        .Range("b3:i200").ClearContents
        Z = 3
        For V = 0 To ListBox1.ListCount - 1
            .Cells(Z, 2).Value = ListBox1.List(V, 1)
            .Cells(Z, 3).Value = ListBox1.List(V, 2)
            .Cells(Z, 4).Value = ListBox1.List(V, 3)
            .Cells(Z, 5).Value = ListBox1.List(V, 4)
            .Cells(Z, 6).Value = ListBox1.List(V, 5)
            .Cells(Z, 7).Value = ListBox1.List(V, 6)
            .Cells(Z, 8).Value = ListBox1.List(V, 7)
            .Cells(Z, 9).Value = ListBox1.List(V, 8)
            Z = Z + 1
        Next
    End With
End Sub
Private Sub CommandButton5_Click()
    Dim x As Date
    Dim y As Date
    Dim V As Long, Z As Long
    With Sheets("Data")
    If TextBox11.Text = "" Then Exit Sub
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        x = Format(TextBox11.Text, "dd/mm/yyyy")
        y = Format(TextBox12.Text, "dd/mm/yyyy")
        V = 0
        ListBox1.Clear
        For Z = 3 To LastRow
            If .Cells(Z, 3).Value >= x And .Cells(Z, 3).Value <= y Then
                ListBox1.AddItem
                ListBox1.List(V, 0) = Z
                ListBox1.List(V, 1) = .Cells(Z, 2).Value
                ListBox1.List(V, 2) = .Cells(Z, 3).Text
                ListBox1.List(V, 3) = .Cells(Z, 4).Value
                ListBox1.List(V, 4) = .Cells(Z, 5).Value
                ListBox1.List(V, 5) = .Cells(Z, 6).Value
                ListBox1.List(V, 6) = .Cells(Z, 7).Value
                ListBox1.List(V, 7) = .Cells(Z, 8).Value
                ListBox1.List(V, 8) = .Cells(Z, 9).Value
                V = V + 1
            End If
        Next
    End With
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    ii = 2
    For i = 0 To Me.ListBox1.ColumnCount
        Me.Controls("TextBox" & ii).Value = Me.ListBox1.List(ListBox1.ListIndex, i)
        ii = ii + 1
    Next
End Sub
Private Sub TextBox1_Change()
    On Error Resume Next
    Dim ws As Worksheet
    Dim V As Integer
    Dim LastRow As Integer
    Dim M As String
    Dim Q, F
    ListBox1.Clear
    If TextBox1.Text = "" Then GoTo 1
    M = TextBox1.Text
    Set ws = Sheets("Data")
    With ws
        x = ComboBox1.ListIndex + 2
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        Set Q = Range(.Cells(2, x), .Cells(LastRow, x)).Find(M)
        If Not Q Is Nothing Then
            F = Q.Address
            Do
                If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then
                    ListBox1.AddItem Q.Row
                    ListBox1.List(V, 1) = .Cells(Q.Row, 2).Value
                    ListBox1.List(V, 2) = .Cells(Q.Row, 3).Value
                    ListBox1.List(V, 3) = .Cells(Q.Row, 4).Text
                    ListBox1.List(V, 4) = .Cells(Q.Row, 5).Value
                    ListBox1.List(V, 5) = .Cells(Q.Row, 6).Value
                    ListBox1.List(V, 6) = .Cells(Q.Row, 7).Value
                    ListBox1.List(V, 7) = .Cells(Q.Row, 8).Value
                    ListBox1.List(V, 8) = .Cells(Q.Row, 9).Value
                    V = V + 1
                End If
                Set Q = Range(.Cells(2, x), .Cells(LastRow, x)).FindNext(Q)
            Loop While Not Q Is Nothing And Q.Address <> F
        End If
    End With
1 End Sub



لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

وبالمرفقات نسخة اخرى معدلة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
اعداد / ياسر العربي
تحياتي
 
 
  all in 1.rar   تحميل rar مرات التحميل :(157)
الحجم :(92.55) KB


أثارت هذه المشاركة إعجاب: كاري محمد، صلاح الصغير، مدحت حافظ،


توقيع :Yasser Elaraby
663013020





17-09-2017 10:47 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1629
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 524
قوة السمعة : 16698
الاعجاب : 83
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف
رائع يا عربى الله ينور
تعشب شاى
142



توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله




17-09-2017 10:51 صباحا
مشاهدة مشاركة منفردة [2]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1019
الجنس : ذكر
الدعوات : 12
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 562
قوة السمعة : 7228
الاعجاب : 45
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف
تسلم حبيبي سبقتك 
121
142




توقيع :Yasser Elaraby
663013020




17-09-2017 10:56 صباحا
مشاهدة مشاركة منفردة [3]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 528
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 479
قوة السمعة : 6379
الاعجاب : 21
 offline 
look/images/icons/i1.gif ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف
أخى الحبيب / ياسر العربى
أكثر من رائع وعمل ممتاز
بارك الله فيك






17-09-2017 11:02 صباحا
مشاهدة مشاركة منفردة [4]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1019
الجنس : ذكر
الدعوات : 12
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 562
قوة السمعة : 7228
الاعجاب : 45
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف
اخي الغالي أ/ محمد الدسوقى 
مشكور على مروركم العطر ودعائكم الطيب
142




توقيع :Yasser Elaraby
663013020




17-09-2017 11:25 صباحا
مشاهدة مشاركة منفردة [5]
khaled alborene
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 614
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 9
يتابعونه : 6
قوة السمعة : 738
الاعجاب : 16
 Online 
look/images/icons/i1.gif ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف
استاذ ياسر بقدر اغير عناوين الاعمدة 
يعني بدل ما يكون بيان 1 احطه اسم العميل 






17-09-2017 11:39 صباحا
مشاهدة مشاركة منفردة [6]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1019
الجنس : ذكر
الدعوات : 12
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 562
قوة السمعة : 7228
الاعجاب : 45
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف
تمام تقدر تغير زي ما انت محتاج دي مجرد تسميات افتراضية ممكن تغيرها زي ما انت محتاج
هتغيرها في الشيتات وتدخل على الفورم داخل محرر الاكواد وتعدل حسب طلبك
142
 



توقيع :Yasser Elaraby
663013020




20-09-2017 04:21 صباحا
مشاهدة مشاركة منفردة [7]
Salamco
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 216
المشاركات : 220
الجنس : ذكر
تاريخ الميلاد : 6-6-1980
يتابعهم : 7
يتابعونه : 2
قوة السمعة : 67
الاعجاب : 0
 offline 
look/images/icons/i1.gif ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف
عمل رائع جزاك الله خيرا
استاذ بس اذا ردت اظهر اعمده اكثر في الليست بوكس فانها لاتظهر فيه ماهو الحل وشكرا لجهودكم






20-09-2017 10:58 مساء
مشاهدة مشاركة منفردة [8]
aliraqi
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 569
المشاركات : 7
الجنس : ذكر
تاريخ الميلاد : 16-9-1982
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف
السلام عليكم استاذ عدلت على الملف ولكن حدثت بعض الاشكالات اتمنى منك حل لها ولك الاجر
 
 
  القيد العام لثانوية عبدالرحمن الناصر1.rar   تحميل rar مرات التحميل :(8)
الحجم :(243.319) KB







20-09-2017 11:04 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف
أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك
يفضل أن تكون الطلبات في موضوعات مستقلة بعيداً عن الشروحات ويمكن الإشارة للموضوع في حين طرح الموضوع الجديد كنوع من التنبيه لمن يريد تقديم المساعدة
وهذا في مصلحتك حيث عادةً لا يلتفت إلى الطلبات في المشاركات الفرعية ..
قم بطرح موضوع جديد ومرفقاً للملف مع وضع بعض النتائج المتوقعة






26-04-2018 12:05 صباحا
مشاهدة مشاركة منفردة [10]
احمد سيف
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 229
المشاركات : 26
الجنس : ذكر
تاريخ الميلاد : 1-1-1988
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 42
الاعجاب : 1
 offline 
look/images/icons/i1.gif ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف

هل من الممكن زيادة عدد الأعمدة أكثرمن 20 عمود في الليست بوكس








26-04-2018 06:34 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف






09-06-2018 05:59 صباحا
مشاهدة مشاركة منفردة [12]
الترياق
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-01-2018
رقم العضوية : 3578
المشاركات : 39
الجنس : ذكر
تاريخ الميلاد : 14-8-1968
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 76
الاعجاب : 1
 offline 
look/images/icons/i1.gif ادخال - بحث واستدعاء في ليست بوكس- تعديل - تقرير بحث - حذف
السلام عليكم اعذروني مازلت مبتدأ وليس سوى ان ادعو لكم بالتوفيق.







الكلمات الدلالية
بوكس- ، ليست ، واستدعاء ، ادخال ، تعديل ، تقرير ،


 







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



الساعة الآن 10:21 مساء

أعلن هنا
أعلن هنا
أعلن هنا