| طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف | |
|
|
كاتب الموضوع | رسالة |
---|
Eissasoft
عدد المساهمات : 14 تاريخ التسجيل : 31/03/2019 العمر : 52
| موضوع: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف الجمعة أبريل 19, 2019 2:59 am | |
| بسم الله الرحمن الرحيم
السادة الأفاضل مسئولي ومشرفي ورواد المنتدى الأفاضل :
تحية طيبة من عند الله ... وبعد
أرجوا من سيادتكم التكرم بمراجعة الكود التالي وتصحيح ما به من خطأ حتى يتم البحث في الملف من الشيت رقم 5 حتى نهاية الملف .
أرجوا أن ينال طلبي هذا رعاية واهتمام سيادتكم كما عهدناكم دائما
وبارك الله فيكم جميعا ولكم جزيل الشكر والتقدير مقدما - الكود:
-
Private Sub TextBox1000_Change() If TextBox1000.Value = "" Then ListBox1.Clear: Exit Sub Dim x As Worksheet ListBox1.Clear k = 0 For Each x In ThisWorkbook.Worksheets SS = x.Cells(Rows.Count, 10).End(xlUp).Row For Each c In x.Range("D10biggrin2" & SS) b = InStr(c, TextBox1000) If c Like TextBox1000.Value & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = Cells(c.Row, 4).Value ListBox1.List(k, 1) = c.Row k = k + 1 End If Next c Next x End Sub ومرفق الملف للتجربة والمعاينة عليهhttps://up.top4top.net/downloadf-1203pk2qp1-rar.html | |
|
| |
Eissasoft
عدد المساهمات : 14 تاريخ التسجيل : 31/03/2019 العمر : 52
| موضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف الجمعة أبريل 19, 2019 4:55 pm | |
| الأستاذ الفاضل مجدي يونس للمساعدة فقد تم تعديل كود البحث من بعض الأخوة في المنتديات الأخرى ويتبقى عند الضغط على ناتج البحث في الليست بوكس يتم عرض بيانات مختلفة عن البيانات المضبوطة ويعرض بيانات من صفحات أخرى بالله عليك أرجوا المساعدة | |
|
| |
Eissasoft
عدد المساهمات : 14 تاريخ التسجيل : 31/03/2019 العمر : 52
| موضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف الجمعة أبريل 19, 2019 4:58 pm | |
| الكود الذي تم تعديله هو كما يلى ولكن نتيجة الضغط كما بالصور السابقة : - الكود:
-
Private Sub TextBox1000_Change() Dim ws As Worksheet Dim c As Range Dim lr As Long Dim k As Long
If TextBox1000.Value = "" Then ListBox1.Clear: Exit Sub ListBox1.Clear: k = 0
For Each ws In ThisWorkbook.Worksheets(Array("2013", "2014", "2015", "2016", "2017")) lr = ws.Cells(Rows.Count, 1).End(xlUp).Row For Each c In ws.Range("D10:D" & lr) If c Like TextBox1000.Value & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = ws.Cells(c.Row, 4).Value ListBox1.List(k, 1) = c.Row k = k + 1 End If Next c Next ws End Sub | |
|
| |
Eissasoft
عدد المساهمات : 14 تاريخ التسجيل : 31/03/2019 العمر : 52
| موضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف الجمعة أبريل 19, 2019 10:56 pm | |
| | |
|
| |
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
| موضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف الإثنين أبريل 22, 2019 11:52 pm | |
| عزيزى اهلا بك بالمنتدى ارجوا رفع الملف على رابط خارجى واسف للتاخير فى الرد لان النت مقطوع عندى _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
| |
Eissasoft
عدد المساهمات : 14 تاريخ التسجيل : 31/03/2019 العمر : 52
| موضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف الثلاثاء أبريل 23, 2019 2:06 pm | |
| الملف مرفوع على رابط خارجي الملف | |
|
| |
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
| موضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف السبت أبريل 27, 2019 11:15 am | |
| تم حفظ الملف الفورم مليان والفورم غير مرتب فى التكست بوكس واكيد ده سبب المشكلة جرب الطريقة فى الصورة المرفقة بوضع ارقام للعواميد للتاكد من رقم عمود البحث سبق وشرحت الطريقة دى المطلوب الفورم يعمل لاى شيت يوجد صفحات متعددة لما ارجع البيت اشوفه على مهل طلباتك عند الضغط على ناتج البحث في الليست بوكس يتم عرض بيانات مختلفة عن البيانات المضبوطة ويعرض بيانات من صفحات أخرى وان شاء الله ارد عليك بعد شم النسيم _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
| |
مجدى يونس Admin
عدد المساهمات : 3773 تاريخ التسجيل : 22/02/2013 العمر : 69
| موضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف الجمعة مايو 10, 2019 10:42 am | |
| بالنسبة لزر الطباعة ادخل على الزر وضع الاكواد التالية ودى صورة من نتيجة الطباعة - الكود:
-
Private Sub CommandButton5_Click() CommandButton1.Visible = False CommandButton4.Visible = False CommandButton5.Visible = False ButtonExit.Visible = False Image1.Visible = False Image2.Visible = False Frame4.Visible = False Me.PrintForm CommandButton1.Visible = True CommandButton4.Visible = True CommandButton5.Visible = True ButtonExit.Visible = True Image1.Visible = True Image2.Visible = True Frame4.Visible = True End Sub _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
| |
| طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف | |
|