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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil combobox برجاء المساعدة فى اظهار القائمة بشرط معين اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





ضبط فورم بحث لإظهار النتيجة فى الليست بوكس

السلام عليكم احبائى الكرام لدى ملف بحث فى فورم بمجرد اختيار اسم العمود من الكمبوبوكس وكتابة قيمة البحث فى تكست بوكس المف ..



10-12-2019 08:01 مساء
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 391
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 8
قوة السمعة : 522
الاعجاب : 34
 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 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

Private Sub UserForm_Click()

End Sub


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  2.xlsm   تحميل xlsm مرات التحميل :(11)
الحجم :(1158.212) KB





12-12-2019 12:25 مساء
مشاهدة مشاركة منفردة [1]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 221
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 165
الاعجاب : 58
 offline 
look/images/icons/i1.gif ضبط فورم بحث لإظهار النتيجة فى الليست بوكس
اخي مهند  لقد قمت بازالة اسطر الاكواد الخاصة بالخطا وعند تشغيل  الكود  ظهرت رسالة الخطا  run time error 6   over flow    هذا يعني  على حسب علمي ان بيانات كبيرة  وتحتاج الى تعريف من نوع  long   ليس من نوع  integer  ومع هذا  لا يزال يوجد خطا  في خاصية worksheetfunction   اذا حصلت على شيء انشاء الله  سازودك بها ننتظر من عمالقة هذا المنتدى ان يفيدونا      وانشاء الله   ستجد اجابة منهم 

أثارت هذه المشاركة إعجاب: مهند محسن، YasserKhalil،



12-12-2019 01:02 مساء
مشاهدة مشاركة منفردة [2]
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 391
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 8
قوة السمعة : 522
الاعجاب : 34
 offline 
look/images/icons/i1.gif ضبط فورم بحث لإظهار النتيجة فى الليست بوكس
بارك الله فيك استاذى الكريم -بعد تغيير integer  الى Long
أصبح الملف يعمل ولكنه ثقيل جدا  عند البحث وبيهنج الملف عند كتابة اى حرف او رقم بتكست بوكس البحث

أثارت هذه المشاركة إعجاب: YasserKhalil،



13-12-2019 11:02 صباحا
مشاهدة مشاركة منفردة [3]
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 391
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 8
قوة السمعة : 522
الاعجاب : 34
 offline 
look/images/icons/i1.gif ضبط فورم بحث لإظهار النتيجة فى الليست بوكس
اخوانى واساتذتى الكرام . هل يمكن حل هذه المشكلة ؟






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم حضور وانصراف عاملين واذن خروج ودخول مجدى يونس
28 2065 mamdouh
فورم يحتوي على تاريخ وطباعة وتنسيق الصفحات ahmad053
2 148 ahmad053
عرض الصور على الفورم من خلال الليست بوكس Display Pictures In ListBox On UserForm YasserKhalil
9 584 YasserKhalil
عمل زر فى الفورم لفتح شيت اكسل toytotan
1 57 toytotan
نص متحرك بشكل رائع على الفورم مع وضع روابط للنت الصقر
27 2178 Excelawy

الكلمات الدلالية
فورم ، -للأستاذ ، ياسر ، العربى ،


 







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

الساعة الآن 10:25 صباحا

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