برنامج يبحث عن الاسم او الرقم

[الظيافلة]

تحية للجميع

اولا انا محمد ابو صيام من الاردن واعمل في شركة لبيع الرخام

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

ومرفق ملف للتوضيح وشكرا لجهودكم

وشكرا للجميع

example.rar

تم تعديل أكتوبر 23, 2007 بواسطه الظيافلة

[أبو أنس حاجب]

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

أخي أبا صيام أظن أن الفلترة تجزي فيما تريد ولاداعي لاستخدام الدوال وهي ممكنة أنظر المرفق.

أبوأنس

example.rar

[الظيافلة]

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

[omar elhosseini]

السلام عليكم

الاخ الظيافلة

حل اخونا أبوأنس هو حل نموذجى جزاه الله كل خير

وهو يعمل مع اى عدد من العملاء بدون تعديل

ولكن اليك الحل بصورة اخرى ربما يكون هو طلبك

example_2.rar

تم تعديل أكتوبر 30, 2007 بواسطه أبو تامر

[الظيافلة]

عزيزي شكرا لك لكن الملف لا يعمل عندي ويظهر error

[omar elhosseini]

اسف اخى لقد وضعت الملف الخطأ

تعم تعديل المرفق

اعد تحميل الملف مرة اخرى

[احمدزمان]

السلام عليكم

حل جميل و رائع جدا جدا جدا ابوتامر

جزاك الله خيرا

[cleaverman]

شكرا لجميع الاخوة الافاضل

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

هذا اذا كان الهدف نشر المعرفة

لان الملف المرفق مكان الدالة او المعادلة مخفي

نرجو لا تبخلوا علينا

[Raja_77]

شكرا لجميع الاخوة الافاضل

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

هذا اذا كان الهدف نشر المعرفة

لان الملف المرفق مكان الدالة او المعادلة مخفي

نرجو لا تبخلوا علينا

بارك الله فيكم ايها الاخوة الكرام

وانا اضم صوتي الى صوت اخي 'cleaverman

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

من ردود الاخوة الكرام لذلك اكثر من التطبيق اهمية هو الشرح

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

وتقبل تحياتي

[cleaverman]

الاخ ابو تامر

اين الرد علينا

[الشاهد939]

وانا اضم صوتي الى صوت اخي 'cleaverma

او على الاقل نعرف كيف نطلع الداله

تم تعديل نوفمبر 15, 2007 بواسطه الشاهد939

[على الحسانى]

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

[Raja_77]

السلام عليكم

بالنسبة للجدول الموجود فالحل هو تطبيق مباشر للـ Data / Auto Filter وهذه

نقوم بها طبعاً بعد تحديد العمودين اسم العميل و رقم طلب الانتاج

وكان رجائي من الاخوة الكرام هو توضيح الخطوات ليس فقط للسائل ولكن اغتنام

الفرصة لشرح الامور كي تكون الفائدة عامة لا خاصة وكما يبدو فإن الاخوة الاعضاء

متفقون معي كما تشير طلباتهم

والله الموفق

[omar elhosseini]

الاخوة الاعزاء

لقد سبق شرح هذا الموضع عشرات المرات سابقا

فلو وجد احدكم من وقته بعض الدقائق ليبحث فى المنتدى بإستخدام خاصية البحث عن (التصفية المتقدمة)

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

وعلى العموم التصفية المتقدمة يمكن استخدامها من قائمة (ادوات / تصفية / تصفية متقدمة)

ولكن فى هذا الملف تم استخدام كود التصفية المتقدمة بدلا من استخدامها من خلال القوائم

والفرق الوحيد بين استخدامها من خلال القوائم او استخدامها من خلال كود الفجوال هو فرق واحد فقط وهو :

عند استخدام التصفية المتقدمة من خلال القوائم يجب ان تكون المعطيات والمخرجات فى ورقة واحدة

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

والكود المستخدم يستقيل ثلاثة متغيرات :

[left]
Range("MyData").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "MyCri"), CopyToRange:=Range("MyRes"), Unique:=False[/left]

وقد استخدمت اسماء النطاقات لأسماء الامدية بدلا من العناوين المرجعية .

المتغير الاول : هو مدى جدول البيانات الاساسى المراد استخراج البيانات منه او عنوانه

وهو مدى مسمى بأسم (MyData)

المتغير الثانى : هو مدى الشروط التى سيتم استخراج البيانات على اساسه وهو المدى (MyCri)

المتغير الثالث : هو النطاق او المدى الذى سيتم وضع النتائج المستخرجة فيه وهو المدى المسمى (MyRes)

وهناك ملحوظه هامة جدا !!!!!!!!!!

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

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

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

استيعاب اى شرح للأكواد .

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

المتقدمة يجب اجادة التصفية المتقدمة من خلال القوائم اولا !!!!!

[cleaverman]

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

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

ثالثا بالنسبة لي شخصيا انا لي دراية كافية لكى استوعب ما تقولونه بس لي عتب ضغير ان طريقة الشرح تكون خطوط عريضة يعنى من شرحك عرفت ان هناك 3 مدي - الاول My data وده الجدول الاساسي اللي فيه البيانات - التاني Mycri مدى الشروط ما المقصود هل المقصود العمودين اللذين فيهما اسم العميل ورقم طلب الانتاج ام ماذا - الثالث المدى Myres المقصود بيه الورقة الجديده التى سأقوم بوضع البيانات فيها


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

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

تم تعديل نوفمبر 17, 2007 بواسطه cleaverman

[ابو اسامة العينبوسي]

السلام عليكم

هناك شئ اسمه تسميه النطاق

تحدد مجموعه من الخلايا ثم تسميها باسم محدد

من قائمة ادراج >الاسم>تعريف

http://www.contextures.com/xlNames01.html

[cleaverman]

شكرا لك اخى ابو اسامة

سؤالي ليس هذا انا اعرف كيفية تسمية النطاقات واعمل على الاكسيل منذ فترة وتقدر تقول ان الاساسيات موجوده

عايز اشتغل بالتصفية التلقائية من القوائم