نجوم المشاركات

السلام عليكم ورحمة الله أخي الكريم، أستسمح أخي الحبيب أحمد للقيام بتعديل طفيف على معادلتي التحقق من الصحة validation للخليتين C1 و E1 حسب المطلوب... أخوك بن علية قائمة منسدلةAZ.rar

بسم الله الرحمن الرحيم الخوه الأعضاء ومشرفى امنتدى بارك الله فيكم وزاد من علمكم لينتفع به اهل الأسلاموالجميع كنت اريد عمل يوميه يتم فيا تسجيل الأيرادات يوميا( البيع النقدى او تحصيل من عملاء ) وكذلك المصروفات والسداد الخاص بالموردين ( كمثال 1200 جنيه ايراد يومى ومصروف 100 وسداد خاص بالموردين 500 فيكون المتبقى 600 جنيه فى الخزينه وفى اليوم الثانى عند اضافه الأيراد وليكن 500 جنيه اذن الخزينه تساوى 500 + 600 وظهر الرصيد الأجمالى للخزينه فور اضافهالأيراد لليوم الثانى او تحصيل مبالغ من عملاء هكذا ) . هذا التصميم تم تنفيذه على الأكسل بصوره اوسع واكبر ولكن مع كبر حجم البيانات اصيب الملف بالشلل فكنت اريد تصميم هذا العمل على الأكسس وكنت اريد المساعده الممكنه للبدء فى تصميم هذا البرنامج . واعلم جيدا ان لتصميم القاعده خطوات كثيره منها اضافه حسابات العملاء( آجل ونقدى ) والموردين ( آجل ونقدى ) والمصروفات بأنواعها وتفاصيل كثيره , فأرجو من الله البدء بعمل هذا البرنامج خطوه خطوه حتى يستفد الجميع

السلام عليكم المصفوفات الجداول تعريف مبسط : التعامل مع اكثر من قيمة واحدة تطبيقات عملية الدرس الاول : المصفوفات Arrays rArr = Array("A", "B", "C") اذا اردنا ان نضع الصفيف هذا على صف واحد وثلائة اعمدة Sub kh_1() Dim rArr rArr = Array("A", "B", "C") Range("A1").Resize(1, 3).Value = rArr End Sub اذا اردنا ان نضع الصفيف هذا على ثلاثة صفوف وعمود واحد تعرفون الدالة TRANSPOSE إرجاع نطاق خلايا عمودى كنطاق أفقي، أو بالعكس. يجب إدخال TRANSPOSE كصيغة صفيف في نطاق به نفس عدد الصفوف والأعمدة، على الترتيب، مثل صفيف الأعمدة والصفوف الخاصة به. استخدم TRANSPOSE لتبديل الاتجاه العمودي والأفقي لصفيف في ورقة عمل. بناء الجملة TRANSPOSE(array) Array (الصفيف) هو الصفيف أو نطاق الخلايا في ورقة العمل التي ترغب في تحويلها. يتم إنشاء تحويل الصفيف باستخدام الصف الأول للصفيف على أنه العمود الأول للصفيف الجديد، والصف الثاني للصفيف على أنه العمود الثاني للصفيف الجديد، وهكذا. ============================================================ Sub kh_2() Dim rArr rArr = Array("A", "B", "C") rArr = WorksheetFunction.Transpose(rArr) Range("A1").Resize(3, 1).Value = rArr End Sub يتبع لمتابعة الموضوع افضل ان تضعوا هذه الاكواد في ملف الان نقوم باضافة فورم ونضيف التالي ListBox1 CommandButton1 CommandButton2 اضف هذه الاكواد للفورم Private Sub CommandButton1_Click() Dim rArr rArr = Array("A", "B", "C") Me.ListBox1.List = rArr End Sub Private Sub CommandButton2_Click() Dim rArr rArr = Array("A", "B", "C") Me.ListBox1.Column = rArr End Sub Private Sub UserForm_Initialize() Me.ListBox1.ColumnCount = 3 End Sub بعد فتح الفورم اضغط على الازرار CommandButton1 CommandButton2 ما هي النتيجة يتبع ============================================================= المصفوفة Array("A", "B", "C") من النوع Variant وذو البعد الواحد واول دليل لعناصرها LBound صفر وآخر دليل لعناصرها UBound عدد عناصرها ناقص واحد ونضيف عناصرها دفعة واحدة ============================================================= بعض الدالات للسلاسل النصية تعطي نتائج صفيف مثل SPLIT FILTER ناخذ مثال عن SPLIT Sub kh_Split() Dim MyAr MyAr = Split("عبدالله علي احمد باقشير") Range("A1").Resize(1, UBound(MyAr) + 1).Value = MyAr End Sub =========================================================== =========================================================== =========================================================== الدرس الثاني : الجداول المفهرسة عبارة عن متغيرات مفهرسة Indexed Variables تحتوي على بيانات عديدة من نفس النوع Data Type . كل مصفوفة لها اسم واحد يمكن استخدامه للرجوع إلى أي عنصر فيها وذلك باقتران هذا الاسم بدليل يمثل مكان العنصر فيها ، ويمكن انشاء مصفوفة لإحتواء أي نوع من أنواع البيانات مثل : النصوص والأعداد الحقيقية و الصحيحة وغيرها ، فأنواع البيانات المتوفرة في الفيجيوال بيسك هي : Data Type in VB: {Byte, Boolean, Integer, Long, Single, Double, Currency, Decimal, Date, Object, String, Variant, User-defined }. واستخدام المصفوفات في البرمجة يساعد في صناعة أكواد قصيرة وبسيطة ذات قوة كبيرة لأنه يمكن بناء Loops تتعامل بكفاءة مع المصفوفات مهما كان عدد عناصرها وذلك باستخدام دليل العنصر Index Number . ================================================= الخصائص الأساسية للمصفوفة في الفيجيوال بيسك : اسم المصفوفة يمثل عنوان Address في الذاكرة ؛ ولا يمكن تغييره أثناء تنفيذ البرنامج . يمكن الإعلان عن مصفوفة لأي نوع من أنواع البيانات بما في ذلك الأنواع المعرفة من قبل المستخدم User-defined type والـ Object Variables . كل وحدة بيانات منفردة في المصفوفة تسمى عنصر Element . جميع العناصر تكون من نفس النوع إلا في حالة الإعلان عن المصفوفة كـ Variant Data Type . جميع العناصر تكون مخزنة على التتابع في ذاكرة الحاسوب ودليل أول عنصر هو الصفر كـ Default ويمكن جعله 1 باستخدام جملة في بداية الوحدة النمطية Option Base 1 لكل مصفوفة حداً أعلى Upper bound ، وحداً أدنى Lower bound ؛ وعناصر المصفوفة تكون محصورة بين هذين الحدين . من الممكن أن تكون المصفوفة ذات بعد واحد أو متعددة الأبعاد . تحديد الحدين الأعلى والأدنى للمصفوفة Upper bound & Lower bound: عند الإعلان عن مصفوفة، يكتب الحد الأعلى بعد الاسم وبين الأقواس. لا يمكن أن يزيد الحد الأعلى عن نطاق نوع المتغير Long Data Type. الحد الأدنى الإفتراضي Default هو الصفر. اذا عرفت عن هذا المتحول بـــــ Limiteinf To LimiteSup في مكان الوسيط Indexs تكون قد عرفت جدولا بعدد عناصر محدد وبارقام دليل محددة وهذه الطريقة افضل للاستخدام للفهم السريع للوسيط Indexs Dim ay(1 To 3, 1 To 2) As String ----------------------------------------------------------------------------- ay(1 To 3, 1 To 2) لمعرفة الدليل الاول والاخير لليعد الملون بالاحمر للمتحول LBound(ay, 1) UBound(ay, 1) لمعرفة الدليل الاول والاخير للبعد الملون بالازرق للمتحول LBound(ay, 2) UBound(ay, 2) ================================================================== ================================================================== ملحوظة عند إضافة أبعاد المصفوفة فإن مساحة التخزين المطلوبة سوف تزيد زيادة كبيرة ولذلك ينبغي الاحتراس وتفادي استخدام النوع Variant قدر الإمكان لما يتطلبه من مساحة تخزينية كبيرة! ================================================================== ================================================================== المصفوفة ذات الحجم الثابت نعلن عنها بأحد أوامر الإعلان (Public or Private or Dim or Static) مع تحديد عدد العناصر في الأقواس Dim ay(1 To 3, 1 To 2) As String مثال 1: Sub kh_Array1() Dim ay(1 To 3, 1 To 2) As String ay(1, 1) = "A" ay(2, 1) = "B" ay(3, 1) = "C" ay(1, 2) = "D" ay(2, 2) = "E" ay(3, 2) = "F" Range("A1").Resize(3, 2).Value = ay End Sub مثال 2 جدول ضرب Sub KH_5() Dim sArr(1 To 12, 1 To 10) As Integer Dim ContRow As Integer, ContColmn As Integer Dim c As Integer, r As Integer ContRow = UBound(sArr, 1) ContColmn = UBound(sArr, 2) For r = 1 To ContRow For c = 1 To ContColmn sArr(r, c) = r * c Next Next Range("A1").Resize(ContRow, ContColmn).Value = sArr End Sub المصفوفات متغيرة الحجم Dynamic Array: في بعض الأحيان، لا نعرف مسبقاً حجم المصفوفة التي سنستخدمها في البرنامج بالضبط، وقد نريد تغيير حجم المصفوفة أثناء تشغيل البرنامج، هنا سنحتاج إلى المصفوفات ذات الحجم المتغير Dynamic حيث يمكننا تغيير حجمها في أي وقت. تعتبر المصفوفات متغيرة الحجم أحد مميزات الفيجيوال بيسك، وهي تساعد في تنظيم الذاكرة بكفاءة. فمثلاً، يمكن استخدام مصفوفة كبيرة لوقت قصير ثم إعادة تحجيمها لتحرير مساحة من الذاكرة عندما لا نحتاجها. وهذا من شأنه تسريع المعالجة. ولصناعة Dynamic Array نتبع التالي: نعلن عنها بأحد أوامر الإعلان (Public or Private or Dim or Static) ونجعلها ديناميكية بعدم كتابة أي رقم في الأقواس كما يوضح المثال التالي: Dim sArr() As String نعيد الإعلان عنها مع تحديد عدد العناصر باستخدام جملة ReDim كما في المثال التالي: ReDim sArr(1 To ContRow, 1 To ContColmn) ================================================================== ================================================================== ملاحظات هامة . كل جملة من جمل ReDim يمكنها تغيير عدد العناصر بالإضافة إلى الحد الأعلى والحد الأدنى لكل بعد للمصفوفة، ومع ذلك فإن عدد الأبعاد في المصفوفة لا يمكن تغييره. . تمحى جميع القيم المخزنة في المصفوفة كل مرة يعاد فيها تنفيذ جملة ReDim. ويجعل الفيجيوال بيسك القيم كالتالي: في حالة الــــ Variant Array --------- الى ----- Empty Value في حالة الــــ Numeric Array ------- الى ----- Zero في حالة الــــ String Array ----------- الى ----- Zero-Length String في حالة الــــ Array of objects ------ الى ----- Nothing وهذا مفيد عندما نريد تجهيز المصفوفة لبيانات جديدة أو عندما نريد اختزال حجم المصفوفة لتأخذ أقل مساحة ممكنة في الذاكرة. ================================================================== ================================================================== مثال 1: Sub KH_6() Dim sArr() As String Dim iName As String Dim ContRow As Integer, ContColmn As Integer Dim c As Integer, r As Integer, i As Integer Range("H7").Resize(14, 5).ClearContents iName = CStr([H4]) ContColmn = 5 With Range("B7").Resize(14, 1) ContRow = WorksheetFunction.CountIf(.Cells, iName) ReDim sArr(1 To ContRow, 1 To ContColmn) For r = 1 To .Rows.Count If CStr(.Cells(r, 1)) = iName Then i = i + 1 For c = 1 To ContColmn sArr(i, c) = CStr(.Cells(r, c)) Next End If Next End With Range("H7").Resize(ContRow, ContColmn).Value = sArr Erase sArr End Sub دروس المصفوفة 1.rar ================================================================== ================================================================== Erase تستخدم لتحرير الذاكرة المعينة للجداول الديناميكية واعادة تعيين عناصر الجدول الى قيمتها البدائية بطول ثابت مثال: Erase sArr ================================================================== ================================================================== تغيير حجم المصفوفة دون فقد بياناتها يمكننا فعل ذلك باستخدام جملة ReDim مع كلمة Preserve وتعني الحفظ الجملة التالية تغير حجم المصفوفة ولكنها لا تمحو العناصر الموجودة بها: ReDim Preserve MyArray( 10 ) والآن يمكننا كتابة ملخص متكامل لجملة ReDim. جملة ReDim: تستخدم في مستوى الـProcedure لإعادة تخصيص allocates مساحة تخزينية storage space لمصفوفة متغيرة الحجم Dynamic array. صيغتها Syntax: ReDim [Preserve] varname(subscripts) [As type] [, varname (subscripts) [As type]] ================================================================== ================================================================== ملاحظات هامة: جميع ما ذكر في الصيغة داخل قوسين مربعين [] يعتبر اختياري يمكن الاستغناء عنه حين عدم الحاجة إليه. تستخدم جملة ReDim لتحجيم أو إعادة تحجيم مصفوفة متغيرة الحجم Dynamic Array والتي بالفعل قد أعلن عنها مسبقاً باستخدام أي من الجمل Dim, Private, Public مع أقواس فارغة (أي بدون ذكر الأبعاد). يمكن تكرار استخدام جملة ReDim لتغيير عدد العناصر والأبعاد لمصفوفة، ومع ذلك لا يمكن الإعلان عن مصفوفة بنوع معين من البيانات ثم إعادة تعريفها لاحقاً مع تغيير نوع البيان لنوع آخر إلا إذا كانت المصفوفة محتواه في variant. إذا كانت المصفوفة محتواه في variant فإن نوع بيان العناصر يمكن أن يتغير باستخدام المقطع As Type إلا إذا استخدمنا كلمة Preserve ففي هذه الحالة لا يسمح بتغييرات. إذا استخدمنا كلمة Preserve يمكن فقط تحجيم البعد الأخير للمصفوفة ولا يمكن تغيير عدد الأبعاد على الإطلاق. إذا كان للمصفوفة بعد واحد فيمكن إعادة تحجيم هذا البعد لأنه البعد الأخير والوحيد بالمصفوفة. وإذا كان للمصفوفة بعدين أو أكثر فيمكن فقط تغيير حجم البعد الأخير مع الاحتفاظ بمحتويات المصفوفة. عندما نستخدم Preserve يمكن تغيير حجم المصفوفة بتغيير الحد الأعلى بينما ينتج لدينا خطأ حين تغيير الحد الأدنى. إذا صنعنا مصفوفة أصغر مما كانت فإن بيانات العناصر المخزنة سوف تفقد. تحذير: جملة ReDim ستعمل وكأنها جملة إعلان إذا كان المتغير (المصفوفة) التي تعلن عنه غير موجود على مستوى الـProcedure أو الـModule. وإذا كان هناك متغير آخر بنفس الاسم قد أنشئ بعد ذلك وحتى لو كان في النطاق ككل Scope؛ فإن ReDim سوف ترجع للمتغير الأخير ولن يتسبب عن ذلك خطأ في الترجمة Compilation error حتى ولو كانت جملة Option Explicit فعّالة. وبذلك لن يدرك المبرمج أنه هناك خطأ بالشيفرة code. ولتفادي هذا التعارض لا ينبغي استخدام جملة ReDim كجملة إعلان بدلاً من Dim مثلاً، ولكن نستخدمها فقط لإعادة تعريف حجم المصفوفة. ================================================================== ================================================================== توضيح اكثر لهذه الملاحظة إذا استخدمنا كلمة Preserve يمكن فقط تحجيم البعد الأخير للمصفوفة ولا يمكن تغيير عدد الأبعاد على الإطلاق. امثلة : للبعد الاخير ( الملون بالاحمر) هنا ثلاثة ابعاد البعد الاخير هو 15 ReDim Preserve X(10,12,15) ReDim Preserve X(10,12,15) هنا بعدين البعد الاخير هو 12 ReDim Preserve X(10,12) ReDim Preserve X(10,12) هنا بعد واحد إذا كان للمصفوفة بعد واحد فيمكن إعادة تحجيم هذا البعد لأنه البعد الأخير والوحيد بالمصفوفة ReDim Preserve X(10) ReDim Preserve X(10) حمل الملف الموجود في هذا الموضوع تطبيق عملي لما ذكر اعلاه http://www.officena....showtopic=42346 http://www.officena.net/ib/index.php?showtopic=42584 دروس المصفوفة 1.rar kh_SumProduct.rar دروس المصفوفة ( دالة لتوليد ارقام عشوائية).rar ((الشرح العلمي منقول من هنا وهناك)) تم بحمد الله وشكره

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

إخواني الكرام ..... زادكم الله علماً ومعرفة في المرفق لدي أرقام أريد أن يظهر الرقم الأكبر في خانة Big وذلك بواسطة دالة في الاستعلام ... ألف شكرا لجهودكم.. Database4.rar

طلب مني أحد الاخوة (في البحرين) ان أقوم بعمل له برنامج بالأكسس يقوم بحفظ ما يقم به المستخدمين من طباعة للطلبات أو أدخال الطلبات ثم القيام بتحليل هذه البيانتا كأن يتم حساب عدد الطلبات التي أدخلها المستخدم 1 مع القيام بتسجيل حضور وغياب (وسبب الغياب) للمستخدمين حسب تاريخ اليوم وفي حال كانت أحصائية طباعة الطلبات للمستخدم 5 مثلاً صفر يبين سبب ذلك (لانه في هذه الحالة سيكون مجاز لاي سبب) ====== لكوني مبتدئ وأحاول التعلم منكم اضع هذا الطلب بين أيديكم وكلي ثقة بأنه سيجد الحل لديكم وأجد المعرفة منكم ==================== كل الشكر للاستاذ أبو خليل على تشجيعه وأستجابته الدائمة وتوجيهه الدائم لي

السلام عليكم و رحمة الله وبركاته بعداذن اخي الحنون ابو حنين اخي عمر لم تجرب تجميد الألواح ====================== ومن ناحية اخرى قد يكون المطلوب في المرفق وعمله بالطريقة التالية حدد الخلايا التي تريد ان يمر عليها المؤشر بدون غيرها اختاار تنسيق الخلايا ومنه اختار حماية ثم الغاء تمكين الحماية ثم ضع الكود التالي Sub Macro1() ActiveSheet.Protect ActiveSheet.EnableSelection = xlUnlockedCells End Sub سوف يتم التنقل بين الخلايا الغير مؤمنة فقط في المرفق يتم التنقل بين الخلايا الصفراء فقط و الله اعلم تحديد نطاق تحرك المؤشر.rar

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

السلام عليكم الاخ العزيز / عمر أبو صهيب بارك الله فيك ملاحظاتك لابد ان تحترم حيث انها وجهه نظر مما لاشك فيه انها راااائعة وفي محلها وان اوافق وأؤكد علي رد استاذنا الحبيب / أبو حنين .... جزاه الله خيرا ولكن لي رأي... بسيط ... او اقتراح .... ان تضعه كموضوع باسم مناسب ( ويتم العمل عليه وطلب الطلبات فيه ) حتي يتم الوصول الي برنامج متكامل واليك رابط موضوعين ... كان طلب لاحد الاخوة .... وكان في بدايته طلب بعمل شكل فاتورة علي صفحة الاكسيل ولكنه تطور الي تقريبا برنامج كامل بالنسبة لصاحب الطلب ... بطريقة هو لم يكن يقصدها في الاساس ... ولكن لاصراره ... وتحديد متطلبات برنامجه تقريبا توصل الي نهايته الآن http://www.officena.net/ib/index.php?showtopic=45215&hl=%D9%81%D8%A7%D8%AA%D9%88%D8%B1%D8%A9 وقام باستكمال الموضوع علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=45468&hl=+%D8%AA%D8%B1%D8%AD%D9%8A%D9%84%20+%D9%81%D8%A7%D8%AA%D9%88%D8%B1%D8%A9&st=0 تقبلوا تحياتي وجزاكم الله خيرا

بفضل من الله تعالى وتوفيقه يسعدنى ان ارفق لكم الملف وان شاء المزيد باذن الله ولا تنسوا الدعاء لنجلي بالشفاء العاجل افضل ملف.rar

الحمد لله بعد بحث طويل وجدت الحل Sub reset() Application.CommandBars("Cell").Enabled = True End Sub شكرا لك استاذي الكريم وجزاك عنا خير الجزاء

السلام عليكم ورحمة الله أخي الكريم إبراهيم، تم التعديل حسب المطلوب (مع ترك الحل بالمعادلات في sheet2)... أخوك بن علية كود ترحيل الى اعمده_3_2.rar

السلام عليكم الاخ الكريم / amr atef eid لاثراء الموضوع.... و بعد اذنك اخي الكريم / عباس السماوي .... جزاك الله خيرا وعلي حسب فهمي لطلب الاخ السائل فهو لا يريد الحل بهذه الطريقة فاليكم الحل ( علي حسب فهمي للطلب ) وايضا من خلال استخدام معادلة من احدي روائع الاستاذ القدير / محمود - لي التي لا تنتهي ارجو ان يكون بها طلبك وان يكون قد وفقني الله لفهم الطلب كما ينبغي جزاك الله خيرا تجريبي.rar

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

أخي العزيز سأرفق لك المرفق حسب طلبك ، مع بعض الشطحات التي قد تلزم وبعضنا يظن البعض أنها لا تلزم ... وحين يحتاجها يعلم أنها تلزم. الأصل أنني أنشأت جدولين وما بينهما من علاقة ، (أنظر ودقق) ثم نموذجين ، الأول لادخال معلومات الموظف الثاني لادخال معلومات الندب أو الإنتداب وأثناء عملي ثارت معي قاعدة "ماذا لو" التحليلية ، فسرت بمسارها لحدّ معين ، حتي لا أبتعدت كثيراً عن المطلوب. وهذه قاعدة تجريبية ، لا أعرف ما يوازيها عند الأكاديميين وبفضل من الله وجدنا لكل سؤال جوابه وطبقناه ، وجربناه ، وخرجنا من التجربة بمشكلة أو خطأ فعالجناه ، حتى وصلنا للمرفق. إحتملني قليلاً ... فأريد أن أوصل لك ما لدي كما هو ... .................

السلام عليكم الاخ الحبيب/ محمدي ----حفظه الله اكرمك الله واثابك بمثل ما دعوت لي اضعاف مضاعفة تقبل تحياتي وشكري ======================= الاخ الحبيب/ ابو اسامة العينبوسي----حفظه الله سرني مرورك اكرمك الله تقبل تحياتي وشكري ======================= الاخ الفاضل/ yahia----حفظه الله في المرفق ستجد ما تريد تقبل تحياتي وشكري ======================= الاخ الفاضل/ عادل----حفظه الله وانت بالف خير تقبل تحياتي وشكري ======================= الاخ الفاضل/ safwat----حفظه الله في المرفق ستجد ما تريد ======================= الاخ الفاضل/ قصي----حفظه الله الله يكرمك اخي الصفحة الرئيسية هي موجودة في فايل معين وبرفقتها ملفات اكسل معينة( هما دول الملفات التي يتم فيها البحث) ======================================== الاخ الفاضل/ engineer.salah----حفظه الله سرني مرورك اكرمك الله تقبل تحياتي وشكري ======================================== في الصفحة الرئيسية اضفنا جدول يتم من خلاله التحكم في اعدادات البحث الملفات والاوراق ونطاق البحث تفضلوا المرفق بحث بفورم في عدة ملفات.rar