بحث بعدة شروط

[شعبان سعد عجور]

السادة الأفاضل السلام عليكم ورحمة الله وبركاته

مرفق ملف اكسيل اعمل عليه فى عملى البيانات فى الملف كبيرة ومنذ أن تعدى عدد الصفوف ال 10000 آلاف اجد صعوبة فى البحث واتمنى من سيادتكم التكرم بعمل شاشة بحث تساعدنا على سرعة البحث مع العلم اننى ابحث بالكلمة واحيانا بالحروف جزاكم الله خيرا

 

RASED GADED.xlsx

[حسين مامون]

استاد شعبان سعد عجور 

اليك الطريقة البسيطة ربما ستعجبك وضعت اربعة كومبوبوكسات واربعة ازرار للبحث حسب الاختيار  جرب المرفق

تحياتي

RASED GADED.xlsm

[شعبان سعد عجور]

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

[حسين مامون]

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

Private Sub Worksheet_Activate()
Dim ws As Worksheet: Set ws = Sheets("شاشة بحث")
Dim ws2 As Worksheet: Set ws2 = Sheets("الرصيد")
Dim lr, x, r
      ComboBox1.Clear
      ComboBox2.Clear
      ComboBox3.Clear
      ComboBox4.Clear
      ComboBox5.Clear

lr = ws2.Range("a" & Rows.Count).End(xlUp).Row
      For x = 2 To lr
      If ws2.Range("a" & x) <> "" Then
      ComboBox1.AddItem ws2.Range("a" & x)
      ComboBox2.AddItem ws2.Range("b" & x)
      ComboBox3.AddItem ws2.Range("c" & x)
      ComboBox4.AddItem ws2.Range("d" & x)
      ComboBox5.AddItem ws2.Range("e" & x)
      End If
      Next x

End Sub

 

RASED GADED.xlsm

[حسين مامون]

جزاك الله خيرا  والف تحية للاساذ علي 

تم التعديل

RASED GADED.xlsm

تم تعديل سبتمبر 11, 2019 بواسطه حسين مامون

[شعبان سعد عجور]

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

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

[حسين مامون]

استاد شعبان 

الف تحية

في مشاركتي الاولى قلت تجربة بسيطة لهذا النوع من البحث.

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

انصحك بانشاء فورم لاجراء البحث بالتيكتست بوكس واظهار النتيجة في اللسيت بوكس 

ساعمل على تجربة ونرى رايك 

 

 

[شعبان سعد عجور]

فى انتظارك واسف جدا على ازعاجك

[حسين مامون]

السلام عليكم

جرب الفورم

البحث باسم المجموعة  يمكنك البحث بأي كلمة في العمود (A)

البحث باسم الصنف نفس الشيء

تحياتي

RASED GADED.xlsm

[شعبان سعد عجور]

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

[حسين مامون]

بانسبة اظهار محتويات الفورم  المشكل فقط في اسم الصنف

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

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

 

RASED GADED.rar

[شعبان سعد عجور]

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

[حسين مامون]

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

تحياتي 

[شعبان سعد عجور]

استاذ حسين معلهشى مساعدة بسيطة عند ترحيل نتائج البحث الفورم بيرحل صنف واحد من الاصناف المبحوث عنها وبيكرره يعنى انا فى خانة البحث بالصنف لو كتبت موتور مكيف بيحصل 30 نوع منه ولكن لما ارحل ييجى الصنف الأول بس ويكرره 30مرة ها من حل لترحيل كل الاصناف من الفورم إلى جدول النتائج مع الشكر

RASED GADED.rar

[حسين مامون]

اعتذر بسبب الشغل تكون بعض الاخطاء في الاكواد

تم اضافة تركات اخرى ستكتشفها عند التنقل بين مربعات النص في الفورم 

 

RASED GADED.rar

تم تعديل سبتمبر 14, 2019 بواسطه حسين مامون

[حسين مامون]

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

RASED GADED.rar

[شعبان سعد عجور]

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

[حسين مامون]

جرب وان كان هناك خطا اخبرني

 

 

[شعبان سعد عجور]

ساجرب الفورم الجديد غدا بمشيئة الله واخبرك