اذهب الي المحتوي
أوفيسنا

فورم بحث في عدة ملفات اكسل عن طريق ملف رئيسي


الردود الموصى بها

هوه ده الكود اللي ييحث عليه

شكرا لك

ملفي به اوراق واريد ان يبحث في اوراق الملف بس بالميزة بتاعة الجدول

وكمان يتم البحث بدون الضغط على زر بحث بمجرد كتابة حرف

ونتائج البحث تكون مرتبه هجائ عشان لو فيه اسم مكرر نقدر نكشفه

رابط هذا التعليق
شارك

استاذى البروفيسور وعملاق الاكسيل استاذ خبور تاخر ردك عليا بخصوص طلبى ارجو منك سعة صدرك لاننى محتاج هذ التعديل جدا فى شغلى جزاك الله عنا كل الخير فى انتظارك اخى الغالى ومعلمى الحبيب

رابط هذا التعليق
شارك

لسلام عليكم

الاخ / علي الحساني -------حفظه الله

هذا الكود مخصص للبحث واظهار العناوين امامك ( اسم الملف اسم الورقة عنوان الخلية)

وعند الضغط على احد نتائج البحث يذهب بك اليه

الخلاصة ليس فورم بحث لاظهار نتائج معينة على الفورم

واريده ان يكون عام اي يستخدم للكل

وصلت الفكرة اخي

هذا ودمتم في حفظ الله

رابط هذا التعليق
شارك

مشكور اخى خبور مع اننى لم افهم شىء من اخر رد منك وجزاك الله عنا كل الخير انا كل اللى محتاجة ظهور اسماء الاعمده عند البحث على العموم الف شكر ليك اخى الغالى واستاذى خبور

رابط هذا التعليق
شارك

السلام عليكم

مشكور اخى خبور مع اننى لم افهم شىء من اخر رد منك

افتح اي ملف اكسل

ومن القائمة تحرير اختار بحث

يظهر لك فورم

اكتب اي كلمة تريد البحث عنها داخل الملف

ما هي النتائج التي يعرضها لك هذا الفورم ؟؟

واذا ضغطت على اي نتيجة ما الذي يحصل ؟؟

هذا ما اردت شرحه لك

تم تعديل بواسطه خبور خير
رابط هذا التعليق
شارك

  • 1 month later...

ممتاز كما عودتنا دوما

بارك الله فيك وجزاك الله خيرا

عندي سؤال لو تكرمت باجابته

اضفت ملف ولكنه مشغول في 2007 يعني نوع الفايل xlsx

فلم يستطيع قرائته للبحث لأن الملفات الاخرى xlx

عدلت الكود ليقرأ الملف الحديث ولكنه امتنع عن قراءة الملفات القديمة

حاولت اضافة كلمة or او وضع فاصلة او ما شابه ولم تعمل معي لعدم معرفتي بالبرمجة

فما الكود المفروض اضافته لاتاحة قراءة كل انواع الفايلات وبارك الله فيك مرة اخرى

تم تعديل بواسطه ابو الحمز
رابط هذا التعليق
شارك

السلام عليكم

انا استخدم اوفيس 2003

ولا يوجد عندي اوفيس 2007

جرب التعديل في التالي:

غير الكود الممائل لهذا الكود في فورم البحث بالتالي:

Private Sub UserForm_Activate()

Dim C As Integer, R As Integer

Dim My_path As String, K As String

Set MyRange = Range("MyRange_Find")

Comb_Find_Fill.Clear

Comb_Find_Fill.AddItem "بحث في جميع الملفات  ON "

With MyRange

    For C = 1 To .Rows.Count

        If .Cells(C, 4).Text = "ON" Then

            K = .Cells(C, 1).Text

            My_path = ActiveWorkbook.Path & "\" & K

            If Not Dir(My_path, vbDirectory) = vbNullString Then

                Comb_Find_Fill.AddItem K

                Comb_Find_Fill.List(R + 1, 1) = .Cells(C, 2)

                Comb_Find_Fill.List(R + 1, 2) = .Cells(C, 3)

                R = R + 1

                If Workbook_Open(K) = False Then

                    OpenFill My_path

                End If

            End If

        End If

    Next C

End With

Comb_Find_Fill.Text = Comb_Find_Fill.List(0)

Check_Button_Find.Value = False

End Sub

حيث قمت بازالة نوع الملف من المتغير K

وفي عمود اسماء الملفات

اضف نوع الملف لتسمية الملف

مثلا:

Class1.xls

KHBOOR.xlsx

جرب الطريقة دي واخبرنا بالنتيجة

تم تعديل بواسطه خبور خير
  • Like 1
رابط هذا التعليق
شارك

  • 7 months later...
  • 9 months later...
  • 1 year later...

السلام عليكم استاذنا الغالى خبور

انا شخصيا استفدت من هذا البرنامج كثيراً وطبقته علي اوفيس 2007 ويعمل بنجاح

وجزاك الله خير الجزاء عن كل ما استفاد بهذا الابداع .

وفي استفسار في فورم البحث دائما يظهر في الشيت الاخير الاسم مرتين

وتم ارفاق صورة كتوضيح

رابط هذا التعليق
شارك

  • 2 weeks later...

استاذى استاذ عبد الله

لى طلب لو سمحت فى هذا العمل الجبار

اعزرني لكثرة الطلبات منكم

هل ممكن يكون البحث فى الملفات وهى مغلقة لانى اريد البحث فى اكثر من 10 ملفات

مع الامكانية اختيار صفحة البحث فى الملفات

مع جزيل الشكر والاحترام

جزاك الله كل خير وصحة و عاافية

رابط هذا التعليق
شارك

  • 10 months later...

استاذى استاذ عبد الله

لى طلب لو سمحت فى هذا العمل الجبار

اعزرني لكثرة الطلبات منكم

هل ممكن يكون البحث فى الملفات وهى مغلقة لانى اريد البحث فى اكثر من 10 ملفات

مع الامكانية اختيار صفحة البحث فى الملفات

مع جزيل الشكر والاحترام

جزاك الله كل خير وصحة و عاافية

السلام عليكم   أضم صوتي لصوت كنان هل يمكن تنفيذ المطلوب

رابط هذا التعليق
شارك

  • 3 weeks later...

استاذنا السلام عليكم ورحمة الله وبركاته 

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

رابط هذا التعليق
شارك

السلام عليكم

الاخ / علي الحساني -------حفظه الله

كل الاعمال (---) هنا في المنتدى لوجه الله الكريم لا تحتاج في استخدامها لاذن

من احد .

استنفع منها ونحن لك من الشاكرين.

======================================================================

يجب ان تعرف ان هذا العمل يتلخص في الملف ( الصفحة الرئيسية)

انسخ هذا الملف والصقه في الفايل الذي يضم ملفاتك الذي تريد البحث فيها

افتح الملف وامسح الجدول القديم وقم باضافة المعلومات الجديدة فيه

من اسماء الملفات وغيره مما هو معرف من عناوين

وكده انتهت ىالحكاية وستبدا البحث في ملفاتك المعنونة

======================================================================

سوال 

كيف يمكن اضافة مسارات الملفات الاخري الي ملف الصفحة الرئسية 

وليكن عند خمسة ملفات علي جهازي اريد اضافتهم ليتم البحث فيهم 

وشكرا

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information