اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب. حول كيفية عمل بحث سريع.


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

السادة الافاضل...

تحية طيبة وبعد...

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

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

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

شاكراً حسن تعاونكم ودمتم بخير.

الموضوع المذكور فيه الكود...

برنامج السيد.احمد زمان

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

وذلك باستخدام الكود التالي

كود

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

On Error Resume Next

If Target.Row <> 1 Then Exit Sub

Range("A3:A777").AutoFilter Field:=1, Criteria1:="=" & "*" & [D1] & "*", Operator:=xlOr _

, Criteria2:="="

If [D1] = "" Then ActiveSheet.ShowAllData

Range("D1").Select

Activewindow.SmallScroll Down:=-999

End Sub

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

السلام عليكم

أولا:

مرحبا بك أخي الفاضل بين إخوانك

ثانيا:

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

مع كامل إحترامنا وتقديرنا وتحياتنا لأخونا وأستاذنا / أحمد زمان

بل الأفضل أن ترفق أنت ملف من عندك

وتعمل عليه المطلوب لوتقدر بدون أكواد

وسيكون الأسهل عمل ذلك بالكود

ولو لم تقدر ، إشرح علي ملفك أنت ماتريد

لأن البدء من الأول أسهل وأسرع من التعديل

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

السلام عليكم

بعد اذن الأستاذ الكريم / طارق

2- نحنة كنا قد تركنا العمود A فارغ

ألان وضعنا دالة في العمود A بحيث نجمع البيانات من 5 الأعمدة التي بعده

وثم أضفنا الخلية الحمراء الموجودة في اعلى الصفحة

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

المهم في الموضوع هو عملية تجميع البيانات في عمود البحث كما ذكر في الشرح الموضح أعلاه

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

اولاً: شاكرا تعاونكم وردكم السريع.

ثانياً: سوف تجدون بالمرفقات ملف اكسل كتب به بعض البيانات بصورة مبسطة , ما اود فعله ساكتبه بشكل نقاط كالتالي:

1-أريد ان اقوم بعملية بحث عن طريق كلمة اذا كانت مذكورة في احد الصفوف او في اكثر من صف يقوم بتحديد كل الصفوف المذكورة بها تلك الكلمة. "وذلك عن طريق الزر المضاف بالورقة ولوهناك طريقة افضل لاباس بذلك :frown3: "

2-اظهار رسالة بانه قد تم ايجاد عدد؟؟ كذا من الصفوف هل تود النقل.اذا كان الجواب نعم ..اضغط استمرار,او الغاء في حالة عدم الرغبة. "هذه الاضافة اختيارية"

3-اظهار شاشة تبين الى اين سوف يتم النقل "وذلك عن طريق الزر المضاف بالورقة ولوهناك طريقة افضل لاباس بذلك :frown3: "...ولكن هناك حالتين:

الاول :النقل الى ورقة عمل معرفة الاسم.

ثانيا: النقل الى ورقة عمل جديدة وذلك عن طريق اضافتها. ومن ثم يصبح تغير الاسم حسب الامكانية هل هو تلقائي من كلمة البحث ام انا من يجب ان اغير الاسم فذلك حسب ما ترونه مناسباً.

هذا والله ولي التوفيق.ودمتم بخير

Book1.rar

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

العفو

مرفق البحث بواسطة الفلترة

و ممكن عمل المطلوب للترحيل

بحيث يتم عمل قائمة منسدلة باسماء الأوراق

اذا اخترت اسم ورقة يتم النقل لها

اذا تركت الخانة فارغة يتم النقل الى ورقة جديدة

آمل الإفادة

Book1.rar

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

ولد طيبة..

تحية لك وشاكراً تجاوبكم.

عملية البحث بالطريقة التى فعلتموها هي بالفعل ما اريد,ولكن بالنسبة للتحويل لم افهم ما انت قاصده.فاعذرني على جهلي,كيف اقوم بعمل قائمة منسدلة باسماء الاوراق ؟!!

وهناك عدة امور ارجوا ان لا اثقل عليك بها :

1- اذا رغبت بتطبيق عملية البحث على ملف جديد هل يجب ان اقوم بعمل المعادلة الموجودة في العمود A ؟

2-بالنسبة للكود هل بالامكان شرح التالي...

Target.Row <> 1 Then GoTo 9

Criteria1:="=*" & [c1] & "*"

واخيرا...

اشكر اهتمامكم ودمتم بخير

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

ولد طيبة..

1- اذا رغبت بتطبيق عملية البحث على ملف جديد هل يجب ان اقوم بعمل المعادلة الموجودة في العمود A ؟

2-بالنسبة للكود هل بالامكان شرح التالي...

Target.Row <> 1 Then GoTo 9

Criteria1:="=*" & [c1] & "*"

واخيرا...

اشكر اهتمامكم ودمتم بخير

اخي الباش مهندس المحترم

1- اي نعم يجب وضع المعادلة او الداله في العمود A

2- اذاكان السطر او الصف الهدف اي الذي تجري الكتابه به حاليا <> لايساوي اي ليس هو الصف رقم 1 اذا اذهب الى المعرف الذي وضعناه رقم 9 وهو موجود في آخر سطر في الكود - وبذلك يتم الخروج من الكود دون عمل اي شيء

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

المهم

تم انجاز الملف وهو الآن في اللمسات النهائية

= = = = = = = = =

بعد ادخال اي كلمات للبحث تظهر لك رسالة هل تريد نقل البيانات الآن

اذا كانت الإجابة لا - يتم ابقائك في نفس المكان من الورقة

اذاكانت الإجابة نعم

- يتم نقلك الى المكان المخصص لتحديد اسم الورقة المطلوب النقل لها

في هذا المكان تظهر لك اجمالي عدد الصفوف التي بها بيانات و عدد الصفوف التي تم اختيارها للنقل

يوجد هنا قائمة منسدلة لأساء الأوراق في الملف

اختار منها اسم الورقة المطلوب النقل لها ثم اضغط نقل البيانات

اذاكنت تريد نقل البيانات الى ورقة جديدة في الملف

ادخل اسم جديد للورقة التي تريد النقل لها

ثم

اضغط زر نقل البيانات

يتم ادراج ورقة عمل جديدة واسمها كما كتبته في الخلية

ويتم نقل البيانات لها

هل كدة نحنة ماشيين صح

آمل التجربة و اخباري بالنتيجة

Book1.rar

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

ياسلام عليك ,ماشيين صح,وصح الصح

ولكن النقل لم يتطبق بسبب انه يصدر لي رسالة " compile error Next without For " ,ولكن بما انك مازلت في اللمسات الاخيرة. فلم اعير هذه الرسالة بالاً.

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

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

تمت التجربة بنجاح.

ولكن بالنسبة الى اضافة ورقة عمل جديدة.اليس بالامكان تنفيذها؟

اخي المهندس طارق

اكتب في الخلية اسم الورقة المراد اضافتها

يتم اضافة ورقة جديدة بهذا الإسم ثم ترحل البيانات اليها

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

تمت تجربة ادخال الاسم للاضافة وكان الامر ناجح.

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

1-كيف يمكنني تطبيق عملية البحث في الملفات الاخرى.هل بنسخ الكود ام ماذا ؟

2-هل يمكن استبدال الخانة"C1" بـ "TextBox" ؟

3-هناك مشاركة للاخ:علي السحيب ترحيل بيانات الصف الذي تقف عليه وتعبئة النموذج به هل يمكننا الاستفادة من تلك الفكرة وذلك للاستغناء عن المعادلة التي يجب ان نتضعها في العمود "A1"؟

4- هل بالامكان شرح الاكواد المستعملة؟

وشاكراُ مجهودكم , ودمتم بخير

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information