بن خليفه قام بنشر مارس 30, 2016 قام بنشر مارس 30, 2016 أرجو المساعدة في كتابة كود البحث في اليوزر فورم في Textbox يحدد الكلمة في Listbox1 ( مثل ملف الأستاذ عبدالله باقشير ) ولكن وعند النقر على الكلمة في Listbox1 التي تحتوي العمود B تعطيني C,D,E المقابل لها بنفس طريقة دالة Vlookup ولكن في نفس الفورم .. شرح وافي في المرفق بحث.rar 1
الجموعي قام بنشر مارس 31, 2016 قام بنشر مارس 31, 2016 في 30/3/2016 at 01:41, بن خليفه said: أرجو المساعدة في كتابة كود البحث في اليوزر فورم في Textbox يحدد الكلمة في Listbox1 ( مثل ملف الأستاذ عبدالله باقشير ) ولكن وعند النقر على الكلمة في Listbox1 التي تحتوي العمود B تعطيني C,D,E المقابل لها بنفس طريقة دالة Vlookup ولكن في نفس الفورم .. شرح وافي في المرفق بحث.rarFetching info... Expand تفضل اخي بحث.rarFetching info... 2
بن خليفه قام بنشر أبريل 1, 2016 الكاتب قام بنشر أبريل 1, 2016 في 31/3/2016 at 20:49, الجموعي said: تفضل اخي بحث.rarFetching info... Expand أستاذي .. والله لو في طريقة تعبر عن الشكر أكثر من المنتدى بأكون أول من يستخدمها ويوجها لك يا رائع
بن خليفه قام بنشر أبريل 1, 2016 الكاتب قام بنشر أبريل 1, 2016 عذراً أخي الجموعي .. توجد نقطتين : الأولى أن تظهر في مربع ListBox العمود فقط في B وليس كامل الجدول الثاني في حال أردت اضافة بحث اخر في نفس اليوزر فورم لنفس الكود لكن يقوم بأخذ عمود اخر من شيت اخر في نفس اليوزرفورم لكن من CommandButton اخر
الجموعي قام بنشر أبريل 1, 2016 قام بنشر أبريل 1, 2016 في 1/4/2016 at 16:15, بن خليفه said: عذراً أخي الجموعي .. توجد نقطتين : الأولى أن تظهر في مربع ListBox العمود فقط في B وليس كامل الجدول الثاني في حال أردت اضافة بحث اخر في نفس اليوزر فورم لنفس الكود لكن يقوم بأخذ عمود اخر من شيت اخر في نفس اليوزرفورم لكن من CommandButton اخر Expand تفضل اخي المطلوب بحث معدل.rarFetching info... 1
بن خليفه قام بنشر أبريل 2, 2016 الكاتب قام بنشر أبريل 2, 2016 أستاذ الجموعي .. جزاك الله خير والصراحة فكرة رائعة لكن الفورم اللي عندي يحتوي على صفحات .. وكلها تحتوي نفس المحتويات لكن كل صف مأخوذ من شيت في المرفق بحث معدل.rar
الجموعي قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 في 2/4/2016 at 13:25, بن خليفه said: أستاذ الجموعي .. جزاك الله خير والصراحة فكرة رائعة لكن الفورم اللي عندي يحتوي على صفحات .. وكلها تحتوي نفس المحتويات لكن كل صف مأخوذ من شيت في المرفق بحث معدل.rarFetching info... Expand معذرة عن التأخير في الرد بسبب المشاغل تفضل لعله المطلوب بحث معدل1.rarFetching info...
بن خليفه قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 في 4/4/2016 at 11:38, الجموعي said: معذرة عن التأخير في الرد بسبب المشاغل تفضل لعله المطلوب بحث معدل1.rarFetching info... Expand والله أشكرك يا غالي وهو المطلوب .. الله يسعد أيامك كلها
بن خليفه قام بنشر أبريل 11, 2016 الكاتب قام بنشر أبريل 11, 2016 في 4/4/2016 at 11:38, الجموعي said: معذرة عن التأخير في الرد بسبب المشاغل تفضل لعله المطلوب بحث معدل1.rarFetching info... Expand أستاذ / الجموعي .. طبقت الكود لكن عندي مشكلة أثناء وضع كود اخر الخاص بإظهار اليوزر واخفاء ملف الاكسل يظهر خطأ لأن كود الكومبو بوكس لابد أن يكون الشيت ظاهر وغير مخفي .. هل توجد طريقة لحل هذه المشكلة : الكود : 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 (معدل) في 11/4/2016 at 13:23, بن خليفه 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 Expand أرفع لي الملف الذي قمت بالتعديل عليه الذي بهكود الخاص بإظهار اليوزر واخفاء ملف الاكسل تم تعديل أبريل 11, 2016 بواسطه الجموعي
ابوعبدالواجد قام بنشر أبريل 11, 2016 قام بنشر أبريل 11, 2016 السلام عليكم الاستاذ الجموعي حياك الله ممكن هذه الفكرة تطبق على الملفات وليس الشيتات فهرست العملاء.rar
بن خليفه قام بنشر أبريل 11, 2016 الكاتب قام بنشر أبريل 11, 2016 في 11/4/2016 at 15:09, ابوعبدالواجد said: السلام عليكم الاستاذ الجموعي حياك الله ممكن هذه الفكرة تطبق على الملفات وليس الشيتات فهرست العملاء.rarFetching info... Expand منتظر الجموعي لأني ماشي معاه من بداية المشروع وأكيد تجي وشوفhttp://www.officena.net/ib/applications/core/interface/file/attachment.php?id=110560 المرفق
بن خليفه قام بنشر أبريل 13, 2016 الكاتب قام بنشر أبريل 13, 2016 (معدل) في 11/4/2016 at 15:08, الجموعي said: أرفع لي الملف الذي قمت بالتعديل عليه الذي بهكود الخاص بإظهار اليوزر واخفاء ملف الاكسل Expand أستاذي الفاضل / الجموعي المرفق هو المشروع الذي أعمل عليه عيرت طريقة الكومبوبوكس شوف Page 5 , Page 4 , Page 3 يظهر لي خطأ - الصور في المرفق The New SSC 7.rar تم تعديل أبريل 13, 2016 بواسطه بن خليفه وضع مرفق
أبو حنــــين قام بنشر أبريل 15, 2016 قام بنشر أبريل 15, 2016 السلام عليكم اخي بالنسبة للصورة الاولى capture تعني ان هناك شيئ ينقص و كان موجودا على الفورم مثل زر او مربع نص ..... بالنسبة للصورة الثانية captue2 ذلك السطر الاصفر انزع منه الرقم 7
الردود الموصى بها