بن خليفه قام بنشر مارس 30, 2016 قام بنشر مارس 30, 2016 أرجو المساعدة في كتابة كود البحث في اليوزر فورم في Textbox يحدد الكلمة في Listbox1 ( مثل ملف الأستاذ عبدالله باقشير ) ولكن وعند النقر على الكلمة في Listbox1 التي تحتوي العمود B تعطيني C,D,E المقابل لها بنفس طريقة دالة Vlookup ولكن في نفس الفورم .. شرح وافي في المرفق بحث.rar 1
الجموعي قام بنشر مارس 31, 2016 قام بنشر مارس 31, 2016 في 30/3/2016 at 02:41, بن خليفه said: أرجو المساعدة في كتابة كود البحث في اليوزر فورم في Textbox يحدد الكلمة في Listbox1 ( مثل ملف الأستاذ عبدالله باقشير ) ولكن وعند النقر على الكلمة في Listbox1 التي تحتوي العمود B تعطيني C,D,E المقابل لها بنفس طريقة دالة Vlookup ولكن في نفس الفورم .. شرح وافي في المرفق بحث.rar تفضل اخي بحث.rar 2
بن خليفه قام بنشر أبريل 1, 2016 الكاتب قام بنشر أبريل 1, 2016 17 ساعات مضت, الجموعي said: تفضل اخي بحث.rar أستاذي .. والله لو في طريقة تعبر عن الشكر أكثر من المنتدى بأكون أول من يستخدمها ويوجها لك يا رائع
بن خليفه قام بنشر أبريل 1, 2016 الكاتب قام بنشر أبريل 1, 2016 عذراً أخي الجموعي .. توجد نقطتين : الأولى أن تظهر في مربع ListBox العمود فقط في B وليس كامل الجدول الثاني في حال أردت اضافة بحث اخر في نفس اليوزر فورم لنفس الكود لكن يقوم بأخذ عمود اخر من شيت اخر في نفس اليوزرفورم لكن من CommandButton اخر
الجموعي قام بنشر أبريل 1, 2016 قام بنشر أبريل 1, 2016 4 ساعات مضت, بن خليفه said: عذراً أخي الجموعي .. توجد نقطتين : الأولى أن تظهر في مربع ListBox العمود فقط في B وليس كامل الجدول الثاني في حال أردت اضافة بحث اخر في نفس اليوزر فورم لنفس الكود لكن يقوم بأخذ عمود اخر من شيت اخر في نفس اليوزرفورم لكن من CommandButton اخر تفضل اخي المطلوب بحث معدل.rar 1
بن خليفه قام بنشر أبريل 2, 2016 الكاتب قام بنشر أبريل 2, 2016 أستاذ الجموعي .. جزاك الله خير والصراحة فكرة رائعة لكن الفورم اللي عندي يحتوي على صفحات .. وكلها تحتوي نفس المحتويات لكن كل صف مأخوذ من شيت في المرفق بحث معدل.rar
الجموعي قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 في 2/4/2016 at 14:25, بن خليفه said: أستاذ الجموعي .. جزاك الله خير والصراحة فكرة رائعة لكن الفورم اللي عندي يحتوي على صفحات .. وكلها تحتوي نفس المحتويات لكن كل صف مأخوذ من شيت في المرفق بحث معدل.rar معذرة عن التأخير في الرد بسبب المشاغل تفضل لعله المطلوب بحث معدل1.rar
بن خليفه قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 4 ساعات مضت, الجموعي said: معذرة عن التأخير في الرد بسبب المشاغل تفضل لعله المطلوب بحث معدل1.rar والله أشكرك يا غالي وهو المطلوب .. الله يسعد أيامك كلها
بن خليفه قام بنشر أبريل 11, 2016 الكاتب قام بنشر أبريل 11, 2016 في 4/4/2016 at 14:38, الجموعي said: معذرة عن التأخير في الرد بسبب المشاغل تفضل لعله المطلوب بحث معدل1.rar أستاذ / الجموعي .. طبقت الكود لكن عندي مشكلة أثناء وضع كود اخر الخاص بإظهار اليوزر واخفاء ملف الاكسل يظهر خطأ لأن كود الكومبو بوكس لابد أن يكون الشيت ظاهر وغير مخفي .. هل توجد طريقة لحل هذه المشكلة : الكود : Private Sub UserForm_Activate() Dim t As Integer Dim R As Variant For t = 3 To 4 R = Sheets(t).Name هنا يظهر الخطأ Me.ComboBox1.AddItem R Next End Sub Private Sub ComboBox1_Change() If Me.ComboBox1.Value = "" Then: Exit Sub End Sub Private Sub ListSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox1.Value = ListSearch.List(ListSearch.ListIndex, 0) Me.TextBox2.Value = ListSearch.List(ListSearch.ListIndex, 1) Me.TextBox3.Value = ListSearch.List(ListSearch.ListIndex, 2) Me.TextBox18.Value = ListSearch.List(ListSearch.ListIndex, 3) Me.TextBox19.Value = ListSearch.List(ListSearch.ListIndex, 4) End Sub Private Sub ButtonSearch_Click() On Error Resume Next Dim ws As Worksheet Dim V As Integer Dim LastRow As Integer Dim M As String Dim Q, F ListSearch.Clear If TextSearch.Text = "" Then GoTo 1 M = TextSearch.Text Set ws = Sheets(ComboBox1.Value) With ws LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row Set Q = .Range("B2:B" & LastRow).Find(M) If Not Q Is Nothing Then F = Q.Address Do If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then ListSearch.AddItem Q.Value ListSearch.List(V, 1) = Q.Offset(0, 1).Value ListSearch.List(V, 2) = Q.Offset(0, 2).Value ListSearch.List(V, 3) = Q.Offset(0, 3).Value ListSearch.List(V, 4) = Q.Offset(0, 4).Value ListSearch.List(V, 5) = Q.Offset(0, 5).Value V = V + 1 End If Set Q = .Range("B2:B" & LastRow).FindNext(Q) Loop While Not Q Is Nothing And Q.Address <> F End If End With 1 End Sub
الجموعي قام بنشر أبريل 11, 2016 قام بنشر أبريل 11, 2016 (معدل) 1 ساعه مضت, بن خليفه said: أستاذ / الجموعي .. طبقت الكود لكن عندي مشكلة أثناء وضع كود اخر الخاص بإظهار اليوزر واخفاء ملف الاكسل يظهر خطأ لأن كود الكومبو بوكس لابد أن يكون الشيت ظاهر وغير مخفي .. هل توجد طريقة لحل هذه المشكلة : الكود : Private Sub UserForm_Activate() Dim t As Integer Dim R As Variant For t = 3 To 4 R = Sheets(t).Name هنا يظهر الخطأ Me.ComboBox1.AddItem R Next End Sub أرفع لي الملف الذي قمت بالتعديل عليه الذي بهكود الخاص بإظهار اليوزر واخفاء ملف الاكسل تم تعديل أبريل 11, 2016 بواسطه الجموعي
ابوعبدالواجد قام بنشر أبريل 11, 2016 قام بنشر أبريل 11, 2016 السلام عليكم الاستاذ الجموعي حياك الله ممكن هذه الفكرة تطبق على الملفات وليس الشيتات فهرست العملاء.rar
بن خليفه قام بنشر أبريل 11, 2016 الكاتب قام بنشر أبريل 11, 2016 45 دقائق مضت, ابوعبدالواجد said: السلام عليكم الاستاذ الجموعي حياك الله ممكن هذه الفكرة تطبق على الملفات وليس الشيتات فهرست العملاء.rar منتظر الجموعي لأني ماشي معاه من بداية المشروع وأكيد تجي وشوفhttp://www.officena.net/ib/applications/core/interface/file/attachment.php?id=110560 المرفق
بن خليفه قام بنشر أبريل 13, 2016 الكاتب قام بنشر أبريل 13, 2016 (معدل) في 4/11/2016 at 18:08, الجموعي said: أرفع لي الملف الذي قمت بالتعديل عليه الذي بهكود الخاص بإظهار اليوزر واخفاء ملف الاكسل أستاذي الفاضل / الجموعي المرفق هو المشروع الذي أعمل عليه عيرت طريقة الكومبوبوكس شوف Page 5 , Page 4 , Page 3 يظهر لي خطأ - الصور في المرفق The New SSC 7.rar تم تعديل أبريل 13, 2016 بواسطه بن خليفه وضع مرفق
أبو حنــــين قام بنشر أبريل 15, 2016 قام بنشر أبريل 15, 2016 السلام عليكم اخي بالنسبة للصورة الاولى capture تعني ان هناك شيئ ينقص و كان موجودا على الفورم مثل زر او مربع نص ..... بالنسبة للصورة الثانية captue2 ذلك السطر الاصفر انزع منه الرقم 7
الردود الموصى بها