الاستاذ مجدى
طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف 829894
ادارة المنتدي طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف 103798

طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Uoou_u10





 
الرئيسيةالأستاذ التعليمضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل محمود تارى فمرحبا به


شاطر
 

 طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف

اذهب الى الأسفل 
كاتب الموضوعرسالة
Eissasoft

Eissasoft

عدد المساهمات : 11
تاريخ التسجيل : 31/03/2019
العمر : 48

طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Empty
مُساهمةموضوع: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف   طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Avatarالجمعة أبريل 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

Eissasoft

عدد المساهمات : 11
تاريخ التسجيل : 31/03/2019
العمر : 48

طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Empty
مُساهمةموضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف   طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Avatarالجمعة أبريل 19, 2019 4:55 pm

الأستاذ الفاضل مجدي يونس للمساعدةطلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Aoyo_210
طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Aoyo10

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

Eissasoft

عدد المساهمات : 11
تاريخ التسجيل : 31/03/2019
العمر : 48

طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Empty
مُساهمةموضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف   طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Avatarالجمعة أبريل 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

Eissasoft

عدد المساهمات : 11
تاريخ التسجيل : 31/03/2019
العمر : 48

طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Empty
مُساهمةموضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف   طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Avatarالجمعة أبريل 19, 2019 10:56 pm

للرفع للمساعدة
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 2996
تاريخ التسجيل : 22/02/2013
العمر : 65

طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Empty
مُساهمةموضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف   طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Avatarالإثنين أبريل 22, 2019 11:52 pm

عزيزى اهلا بك بالمنتدى
ارجوا رفع الملف على رابط خارجى
واسف للتاخير فى الرد لان النت مقطوع عندى

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
Eissasoft

Eissasoft

عدد المساهمات : 11
تاريخ التسجيل : 31/03/2019
العمر : 48

طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Empty
مُساهمةموضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف   طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Avatarالثلاثاء أبريل 23, 2019 2:06 pm

الملف مرفوع على رابط خارجي
الملف
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 2996
تاريخ التسجيل : 22/02/2013
العمر : 65

طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Empty
مُساهمةموضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف   طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Avatarالسبت أبريل 27, 2019 11:15 am

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

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 2996
تاريخ التسجيل : 22/02/2013
العمر : 65

طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Empty
مُساهمةموضوع: رد: طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف   طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Avatarالجمعة مايو 10, 2019 10:42 am

بالنسبة لزر الطباعة ادخل على الزر وضع الاكواد التالية
ودى صورة من نتيجة الطباعة


طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Aoo14

الكود:
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

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
طلب مساعدة في تصحيح الكود الخاص بالبحث حتى يقوم بالبحث في كل صفحات الملف
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: