اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





اريد البحث في اكثر من شيت

السلام عليكم ورحمة الله وبركاتة انا جديد على الاكسل والحمد لله اتعلم بسرعة فائقة والفضل يعود إلى الله عز وجل ثم الاستاذا ..



12-09-2018 12:08 صباحا
aboyazed1984
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2018
رقم العضوية : 7922
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 3-2-1984
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 19
الاعجاب : 3
 offline 

السلام عليكم ورحمة الله وبركاتة انا جديد على الاكسل والحمد لله اتعلم بسرعة فائقة
والفضل يعود إلى الله عز وجل ثم الاستاذا عماد غازي والاستاذة ساجدة غزاي ولهم كل الشكر والتقدير خاصة وللعامة
انا عملت الكثير من الاكواد في اليوزر فورم  لكن لم اصل إلى حل في عملية البحث في جميع الشيتات عندما اقوم بالبحث يبحث فقط في الشيت الاول وانا اريد ان يبحث في اي شيت وعند اي اضافة شيت جديد يكون ضمن عملية البحث بدون تعديل اكواد في كل مرة 
انتظر مروركم ياكرام وشكراً لكم على جهودكم المبذولة
 
 
  التعديل النهائي لنظام الصادر والوارد الآلأي.zip   تحميل zip مرات التحميل :(15)
الحجم :(25.488) KB







12-09-2018 11:21 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 offline 
look/images/icons/i1.gif اريد البحث في اكثر من شيت
وعليكم السلام
جرب التعديل التالي عله يفي بالغرض
Private Sub TextBox8_Change()
    Dim ws As Worksheet

    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    TextBox5.Value = ""
    TextBox6.Value = ""
    TextBox7.Value = ""

    Sheets(1).Activate
    ListBox1.Clear
    k = 0

    For Each ws In ThisWorkbook.Worksheets
        ss = ws.Cells(Rows.Count, 2).End(xlUp).Row

        For Each c In ws.Range("B2:B" & ss)
            b = InStr(c, TextBox8)
            If b > 0 Then
                ListBox1.AddItem
                ListBox1.List(k, 0) = ws.Cells(c.Row, 2).Value
                ListBox1.List(k, 1) = ws.Cells(c.Row, 1).Value
                ListBox1.List(k, 2) = ws.Cells(c.Row, 3).Value
                ListBox1.List(k, 3) = ws.Cells(c.Row, 4).Value
                ListBox1.List(k, 4) = ws.Cells(c.Row, 5).Value
                ListBox1.List(k, 5) = ws.Cells(c.Row, 6).Value
                ListBox1.List(k, 6) = ws.Cells(c.Row, 7).Value
                k = k + 1
            End If
        Next c
    Next ws
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، aboyazed1984، محمد النيل،




12-09-2018 11:56 صباحا
مشاهدة مشاركة منفردة [2]
aboyazed1984
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2018
رقم العضوية : 7922
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 3-2-1984
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 19
الاعجاب : 3
 offline 
look/images/icons/winner_first_h4h.gif اريد البحث في اكثر من شيت
شكراً لك اخي الكريم ياسر اشكر مجهودك المبذول وبارك الله لك في مالك وولدك وحياتك
للاسف الكود يقوم بتكرار في عملية البحث في الشيت الاول فقط يعني الموضوع يطلع لي اكثر من مره في الليست  بوكس نفس القيم
انا خبرتي قليلة لكن الحظ في الكود تنشيط لورقة العمل الاولى فقط لا اعلم هل انا غلطان او كلامي صحيح
هذا ما اقصد بالظبط
    Sheets(1).Activate
    





12-09-2018 12:54 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 offline 
look/images/icons/i1.gif اريد البحث في اكثر من شيت
جرب وضع بيانات مختلفة في أوراق العمل وارفق الملف مرة أخرى .. الكود يعمل عندي بشكل عادي ، وتنشيط ورقة العمل ليس له أي تأثير حيث أنه يوجد في الكود حلقة تكرارية لكل أوراق العمل وعلى هذا الأساس يتم ا لبحث

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




12-09-2018 01:37 مساء
مشاهدة مشاركة منفردة [4]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 429
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 20
قوة السمعة : 2357
الاعجاب : 693
 offline 
look/images/icons/i1.gif اريد البحث في اكثر من شيت
تمام اخى الكريم الكود يعمل بكل دقة كما اخبرك استاذنا الكبير ياسر له منا كل المحبة والإحترام
تفضل الملف وجرب بنفسك
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  search.rar   تحميل rar مرات التحميل :(16)
الحجم :(28.216) KB


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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


12-09-2018 01:45 مساء
مشاهدة مشاركة منفردة [5]
aboyazed1984
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2018
رقم العضوية : 7922
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 3-2-1984
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 19
الاعجاب : 3
 offline 
look/images/icons/i1.gif اريد البحث في اكثر من شيت
اشكرك اخي ياسر على تجاوبك معي هذا العمل قمت بإرفاقه وبه الكود المعدل 
وايضاً قمت بإرفاق صورة للنتيجة يوضح كلامي لك يقوم بتكرار النتيجة من شيت (1) فقط 
قمت باضافة بيانات جديدة لكن لافائدة 
شكراً لك مقدماً
 
 
  التعديل النهائي لنظام الصادر والوارد الآلأي.zip   تحميل zip مرات التحميل :(9)
الحجم :(150.664) KB






12-09-2018 01:57 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 offline 
look/images/icons/i1.gif اريد البحث في اكثر من شيت
في الأسطر الخاصة بإضافة العناصر للقائمة يجب الإشارة إلى ورقة العمل وقد نسيت تلك النقطة فعذراً لعدم تمكني من تجربة الكود بشكل صحيح
ws.Cells(c.Row, 2).Value

ستقوم بإضافة الإشارة لورقة العمل في الأسطر التي تقوم بإضافة العناصر إلى القائمة ...

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




12-09-2018 02:17 مساء
مشاهدة مشاركة منفردة [7]
aboyazed1984
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2018
رقم العضوية : 7922
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 3-2-1984
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 19
الاعجاب : 3
 offline 
look/images/icons/i1.gif اريد البحث في اكثر من شيت
لابأس اخي ياسر جل من لا يسهو اعتذر منك على الإطالة في هذه النقطة 
اخي أنا مبتداء في الاكسل والاكواد واليوزر فورم انا اتعلم منكم يا أستاذي الكريم 
أين اضع الكود بالظبط واشكرك من كل قلبي كلمة الشكر تعجز عند مجهودك 
وفقك الله لمى تحبه وترضه rolleyes

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




12-09-2018 04:50 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 offline 
look/images/icons/i1.gif اريد البحث في اكثر من شيت
تم تعديل الكود في المشاركة التي بها الكود .. ويوضع الكود في موديول الفورم .. كليك يمين على الفورم ثم View Code ثم استبدل الكود الموجود بالكود الحالي ..

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




12-09-2018 05:21 مساء
مشاهدة مشاركة منفردة [9]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 375
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 40
يتابعهم : 7
يتابعونه : 247
قوة السمعة : 2546
الاعجاب : 650
 offline 
look/images/icons/i1.gif اريد البحث في اكثر من شيت
بارك الله فيك أخى الحبيب / أبو البراء
كده اشتغل الكود تمام
الله ينور عليك  113

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




12-09-2018 06:34 مساء
مشاهدة مشاركة منفردة [10]
aboyazed1984
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2018
رقم العضوية : 7922
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 3-2-1984
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 19
الاعجاب : 3
 offline 
look/images/icons/i1.gif اريد البحث في اكثر من شيت
بارك الله فيك اخي الكريم نعم الآن الكود شغال 100% اشكرك على مجهودك الرائع لاعدمناك يا اخي الكريم
تحيه لك من القلب 
اشكرك جزيل الشكر 
جعله في ميزان حسناتك وجزاك الله وولديك كل الجزاء

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




12-09-2018 08:35 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 offline 
look/images/icons/i1.gif اريد البحث في اكثر من شيت
بارك الله فيك أخي الغالي محمد الدسوقي وعوداً حميداً .. وحشتنا مشاركاتك وفي انتظار هدية بمناسبة رجوعك

بارك الله فيك أخي الكريم أبو زايد ومشكور على دعواتك الطيبة 
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

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




14-09-2018 05:39 صباحا
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 offline 
look/images/icons/i1.gif اريد البحث في اكثر من شيت
قام الأخ الحبيب عماد غازي مشكوراً بوضع الحل في فيديو لمزيد من الاستفادة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل كود البحث وجلب البيانات بالفلترة ليشمل صفحتين مهند محسن
5 68 YasserKhalil
اكسل vba اسرع طريقة البحث بمجرد كتابه اول حرف فى كل اوراق العمل واظهار النتائج فى ليست بوكس emad ghazi
5 101 mahmoud ayad
البحث بجزء من النص وجلب كل النتائج بدالة معرفة YasserKhalil
6 660 YasserKhalil
البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى emad ghazi
12 161 Eslam Abdullah
كيفية البحث بواسطة الcombobox abushuber
0 72 abushuber

الكلمات الدلالية
اريد ، البحث ، اكثر ،


 







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



الساعة الآن 09:59 مساء

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