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

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

السلام عليكم بتوفيق رب العالمين توصلت الى شكل المعادلة التى من خلالها تستطيع ربط دالة MAX او دالة MIN مع دالة LOOKUP وذلك حتى نتمكن من الحصول على اكبر او اصغر قيمة بالرجوع الى البحث عن قيمة محددة داخل جدول بدون اطاله ... المرفق وافى الشرح اتمنى ان يكون مفيدا ان شاء الله فى انتظار الملاحظات شكرا max+lookup.rar

أخي الكريم بالنسبة لطلبك بدون الإطلاع على المرفق .. قم بوضع سطر قبل تنفيذ الكود بفك الحماية Activesheet.Unprotect 123 وفي نهاية الكود ضع سطر لتفعيل الحماية مرة أخرى Activesheet.Protect 123 أرجو أن يفي بالغرض

جرب التعديل التالي حيث أضفت سطر يعطل الحساب التلقائي إلى حين انتهاء عمل الكود ثم بعد انتهاء الكود يتم تفعيل الحساب التلقائي مرة أخرى .. جرب وأعلمني بالنتيجة Sub ConvertTextToNumber() Dim R As Range On Error Resume Next Application.ScreenUpdating = False Application.Calculation = xlManual For Each R In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants) If IsNumeric(R) Then R.Value = Val(R.Value) Next R Application.Calculation = xlAutomatic Application.ScreenUpdating = True MsgBox "Done!", 64 End Sub تقبل تحياتي

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

انت قلت اضف هذا السطر Application.Calculate بعد السطر Sheets(ComboBox1.Value).Delete ليكون كود ال CommandButton1_Click كالتالي بعد الاضافه Private Sub CommandButton1_Click() Dim C As Range Dim Fir Application.DisplayAlerts = False If Sheets.Count > 1 And ComboBox1.Value <> "" Then On Error Resume Next With ActiveSheet.Columns(2) Set C = .Find(ComboBox1, LookIn:=xlValues) If Not C Is Nothing Then Fir = C.Address Do C.EntireRow.Delete Set C = .FindNext(C) Loop While Not C Is Nothing And C.Address <> Fir End If End With Sheets(ComboBox1.Value).Delete Application.Calculate End If Application.DisplayAlerts = True UserForm_Initialize End Sub

السلام عليكم مبروك الأستاذ ياسر فتحي على الترقية المستحقة

استاذ مختار حسين ... فكرت ادخال دالة ال Hyperlink في الخلايا الموجودة مباشرة تحت الشكل (Shape) ... طبعا هذه الخلايا ينبغي أن تكون خالية و غير مستعملة ...بدأت في كتابة الكود و يبدو جيدا لو توصلت الى نتيجة محترمة سأتشر الكود هنا

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

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

تفضل اخي سلمان رقم الصنف في tabl1 هو الباركود بالتوفيق برنامج المطاعم.rar

بسم الله الرحمن الرحيم وجدت وانا ابحث عن بعض الاكواد والامثلة هذا الكود الذي يعمل تأثيرات حركية علي shape & picture دا كان مشوار لموقع اجنبي حلفوا منا ماشي غير بالمثال دا اتفضلو علي فكرة صورة البنت الامورة دي انا اللي رسمها بالقص واللصق وحشه صح shape move.rar

مرة اخرى اين الملف الاساسي ؟

وعليكم السلام تفضل في الواقع انت قمت بمعظم العمل ، انا فقط ركبت الاشياء على بعضها جعفر 260.الشبكة الإستدلالية للمرتبات.accdb.zip

حظى بقى يا أ / سليم

السلام عليكم الملف data.amr هو قاعدة بياناتك الملف data.ldb هو صورة منه حاول كالتالي : 1- احفظ بعيدا نسخة من data.amr 2- غير الامتداد amr الى mdb ثم حاول فتح الملف وموافاتنا بالنتيجة

جرب هذا الملف Book1 _macro.zip

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

سلمت يمينك أ خى الحبيب / ياسر موضوع مميز وأكثر من رائع بارك الله فيك وزادك من علمه

ابو عارف الله ينور عليك ياشيخ وعلى جميع الاخوان تمام التمام

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

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

والله فكرة جيدة أستاذ جعفر لكن ماذا لو تم تحريك الـــ Shape الى مكان جديد من قبل المستخدم بعيدا عن الخلية ؟! أنا عندى فكرة مشابهه لفكرة الملف المرفق فى مشاركتى السابقة لكن أفضل شويه وهى : عمل Group بين Shape و lable ( لذلك تحريك الـــ Shape يتبعه الـــ lable ) الــ lable يكون شفاف أو عديم اللون وتحت الـــ Shape مباشرة أما الــ Shape له لون واسم وهو الذى يظهر أمام المستخدم ونضع فى حدث الشيت الكود التالى Option Explicit Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) MsgBox "الزهرة اذا قطفتها فهى لك واذا تركتها فهى لك ولغيرك" End Sub جرب المرفق ده و قل لى رأيك Macro When Your Mouse is over a shape .rar Macro When Your Mouse is over a shape .rar

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

هاي ما انتبهت لها جعفر

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

والآن الى الكنز المخزون في صفحة كود الاكسس ، والذي يحتوي على جميع اوامر الاكسس ، و VBA ، و..... افتح صفحة الكود: . إما تضغط على الايقونه الموضحة بالدائرة الحمراء في الصورة اعلاه ، او تضغط على الزر F2 في لوحة المقاتيح ، وستظهر لك هذه الشاشة: . في الشاشة التاليه: 1. اختر اي الاوامر تريد ، VBA او اكسس او ... ، فسترى انواع الاوامر المتوفرة لها في النافذة 2 ، انا اخترت VBA ، 2. ثم اختار نوع الامر الذي تريده ، انا مثلا اردت جميع اوامر التاريخ والوقت ، فسترى جميع اوامر التاريخ والوقت في النافذة 3 ، 3. اختار الامر الذي تريده وانقر عليه ، انا مثلا اخترت الامر DateAdd ، فسترى في الاسفل (4) طريقة كتابة الامر : . وتستطيع كتابة اي امر تريد في خانة البحث (Recordset مثلا) ، وستحصل على جميع الاوامر التابعة له وإخواننا الصعايدة على راسنا جعفر

رائـــــــــــــــــــــــــــــــــــــــــــــــــع جداااااااااااااااااااااااااااا بارك الله فيك

الف مبروك اخي الغالي ياسر ودائما من تقدم لتقدم وفقك الله وزادك من علمه

تفضل الظاهر انك ما شفت الرابط اللي وضعته لك التقرير لا يحترم فرز الاستعلام ،والطريقة لعمل الفرز هي: . والنتيجة جعفر 257.الرصيد.accdb.zip

الخلايا المدمجة مشكلة بحد ذاتها بالنسبة لكود ال Vba لعدم الوقوع في هذا الغخ ينصح عدم استعمال الخلايا المدمجة (استبدالها من خلال Center Across Selection)

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

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

أستاذى ومعلمى القدير الحبيب الغالى / ياسر خليل لا تعلم مقدار سعادتى أنا أيضا بتشريفك لى وتهنئتك لى فأنا تلميذ أتعلم وأغوص داخل بحر هذا الصرح العلمى الكبير تقبل منى خالص تحياتى وتقديرى لشخصكم الكريم

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

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

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

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

بارك الله فيك أستاذ مختار حسين هل فكرت في تطبيق هذه الفكرة على الأشكال (Shapes)أو الأزرار (Forms Buttons) عوض الخلايا بحيث عند تحريك الماوس فوق الشكل او الزر تظهر رسالة معينة

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

الله يجزيكم كل الخير علي دعائكم هذا ويارب ينفعنا واياكم ويرزقنا علما نافعا اما بقي للجماعه اللي طلباتهم كتيررررر اتفضلو الملف فيه الصور بالبيانات في شيت الاكسيل واللي عاوزها بردو صورة وبيانات في الفورم اتفضلواا اللي عاوز يطلب حاجه يطلب ميخفشي عادي احنا تحت امركم image & userform.rar

اهلا بك ابو عبدالله عايزك تفهم ان موضوعك موضوع مفتوح نوعا ما ! او للاجابة يحتاج وقت وشرح ولابد من التطرق للاساسيات علشان نكمل ! وبرضه يا اشرح شي بشكل علمي لانه سيكون مرجع لكل من يمر هنا ! لذلك مثل هذه الاشياء خذها من مصادرها الصحيحة والموثوقة افضل مثل : كتب - موقع ميكروسوفت ! انصحك ان تاخذ كتاب في الاساسيات وبتسلسل المواضيع بدون القفز من فصل لاخر ! الشي الذي ممكن اضيفه هنا هو : عايزك تتخيل ان هذا البريمج (الاكسس) به قاعدة بيانات مصغرة - اداة تصميم وتطوير - بيئة لكتابة اكواد ! كلها هذا ونحن نعرف ان كل منها موجود كمنتج مستقل من شركات اخرى ! بينما هذه كلها موجودة في ملف واحد ! وملف ايه ؟ ملف بيانات ! بل كل وحدة عبارة عن كائن داخل هذا الملف ! بمعنى انتي الوحدة النمطية اللي نكتب فيك الاكواد ماخذه شكل مصغر من عمل ادوات التطوير المستقلة مثل الترجمة وتتبع الاخطاء وغيرها وتحويل الكود الى لغة الكمبيوتر ! وهية مع هذا كله مازالت كائن في ملف الاكسس ! فمش عارف هل ننظر للموضوع استخفاف بعقولنا ام انه ابداع في هذا المنتج ؟!!!!! وهنا انا حجيبك على استفساراتك ولكن اتمنى ان لاتكون حلقة مفتوحة باستفسار عن جواب لاستفسار سابق وهكذا ! وصدقني ابداية مع كتاب وبتسلسل منطقي افضل بكثير من المواضيع التي تكتب بالانترنت وذلك لاسباب عدة منها انت لاتعرف مستوى كاتب الموضوع او صحة مايكتب عكس الموجود بالكتب والمعتمدة ! ** كلمة private تحدد مدى حياة المتغيرscope ! فبها يكون حي فقط في المكان الذي ولد به اي عرف به ! فمثلا ولد في وحدة نمطية عامة فانه يعرف وحي في تلك الوحدة فقط ! ولدة في وحدة فئة نموذج فانه حي ويعرف هنا فقط ! بمعنى لو ناديته منكا اخر ستجده ميت ولا يستجيب ! عكس public ** byval و byref تستخدم لتحديد نوع او اسلوب تمرير المتغيرات للاجراءت والدوال ! بالعربي : بالقيمة او المرجع ! فاذا مررت قيمة متغير من نوع قيمة فانه للرغبة او عدم الاستطاعة في تغيير قيمة المتغير الاساسية عكس بالمرجع التي يمكن تغيير قيمة المتغير من خلال الاجراء او الدالة ! كما ان الموضوع يطول حول مسالة تعريف المتغيرات نفسها بانها من نوع قيمة ام مرجع ! فهل ممكن امرر قيمة متغير معرف انه مرجع لدالة تستقبل بالقيمة ؟ !! ** رابط لل api : https://msdn.microsoft.com/en-us/library/windows/desktop/ff818516(v=vs.85).aspx http://allapi.mentalis.org/apilist/apilist.php طبعا تاكد من توافق الدالة مع اصدار الويندوز! هذا متمنيا ان حصل لو جزء من ما تريد ! كما انبه على ان الشرح لا بد ان ياتي من استاذ فهو علم بحد ذاته فليس المقصود بالاستاذ بقدر مايملك من معلومة ولكن بقدر رضا تلاميذه في ايصال المعلومة ! تحياتي

هو فيه اختلاف ولكن يتطلب الخلفية في فهم برمجة الكائنات oop اختصار object oriented programming علشان نتكلم علميا ويمكن اكون مقصر لعدم التخصصية البحتة خاصة وان هذا الموضوع شبح طلاب الحاسب الالي ! ولكن برضه بالبلدي: الوحدة النمطية العامة هي مكان لدوال والمتغيرات العامة لكل البرنامج ! ماتضعه هنا يكون معروف على مستوى البرنامج ! ممكن متغير ياخذ قيمته من اي نموذج ! او طبعا عرفنا انها مكان لمناداة ال api ! وفي نفس الوقت هي المكان التي ابرمج بلغة ال access basic ! اما وحدة الفئة : هي مكان انشئ من خلاله الكائنات ! نحن نعرف ان لكل كائن خصائص وطرق او اوامر ! هنا نستطيع ان اعرف كائنات جديدة لها خصائصها وطرقها ! لاحظ انه لكل نموذج وتقرير عند انشائه له وحدة فئة خاصة وهي صفحة كود الاحداث ! وهذه تكون وارثة جميع الخصائص والطرق من النموذج او التقرير ! هذا والحديث يطول ويحتاج وقت او تسلسل في المواضيع علشان ينفهم ! ولكن اتمنى ان افدتك ولو بالمفاتيح ! تحياتي

api اختصار application programming interface بالعربي برمجة واجهة التطبيقات وبالبلدي: هي دوال تحاكي الويندوز ! مثلا هناك اوامر يحتاجها المبرمج وهذا الامر اصلا واحد من مكتبات الويندوز على شكل دالة ! وكل مكتبة في الويندوز بها دوالها مغلفة ! فاروح انادي الدالة هذه بشرط ذكر اسم مكتبتها ! بمعنى هذه الدالة يستخدمها الويندوز وانت كمان تستخدمها خاصة اذا بتحاكي شي خارج برنامجك والذي لن يستطيع برنامجك يفهم اللغة للتخاطب ! فمثلا اغلاق ويندوز ! اروح انادي الدالة الخاصة بهذا مع ذكر مكتبة وجودها بها ! فانت ذهبت تخاطب برامج اخرى بهذه الدالة لقصور برنامجك في التخاطب ! وقال لك الاكسس اذا عايز تنادي حاجة زي كدا لابد تحطها لي في وحدة نمطية ! بمعنى لو عايز اضيف سجل في جدول مش معقوله انادي دالة api لانهم الويندوز مش حيفهم انت عايز ايه ! فقال لك ياعمي انا شغلت لك الاكسس واموركم الداخلية خلصوها مع بعض ! والاكسس حيزعل ويقول انت رايح للويندوز في امر زي كدا ! انا لدي دوالي وكائناتي اللي تعمل الحاجة دي ! اما لو فيه حاجة ما اقدرش عليها روح لمكتبات الويندوز وخذ اللي انت عايزه وهاتها لي في وحدة نمطية عامة ! ممكن يخطر في بالك عايز افتح الاكسل من الاكسس ! لو فكرت قليلا اكيد هناك دالة api بتعمل كذا لانه الويندوز بيعملها وهو فتح وتشغيل الاكسل ! بس هنا الاكسس برضه بيعمل الحاجة بس عايز منك ان تضيف مرجع في المراجع او تبحث وتتعلم ويمكن فيه دالة في الاكسس بتعمل كذا ! باختصار api دوال كثيرة جدا بحجم مكتبات الويندوز عليك معرفة اسمها ومكتبتها ونوع متغيراتها الممررة لها ومكان وجودها لكي تستطيع استخدامها ! لاحظ انه لو شغلت الاكسس على غير ويندوز مش حيفهم عليها ! بل لاحظ كيف انه عند تغير اصدارات الويندوز عليك مراجعة شكل الدالة الجديد ! بمعنى ابتعد عنها الا للضرورة !

اخي المبرمج الان يتعين عليك ان تنشئ قاعدة بيانات تحتوي على ثلاثة جداول الاول = جدول الاصناف ويكون رقم الصنف مفتاح اساسي ويحتوي على ما تريد من بيانات تخص الصنف الثاني = جدول الموردين ويكون رقم المورد هو المفتاح الاساسي ويحتوي على بيانات الموردين الثالث= جدول العملاء ويكون رقم العميل هو المفتاح الاساسي ويحتوي على بيانات العملاء الرابع =جدول العمليات (وهنا مربط الفرس) ويحتوي على 1 - رقم العملية (مفتاح اساسي) 2 - رقم الصنف ( مرتبط برقم الصنف من جدول الاصناف) 3 - رقم المورد ( مرتبط برقم المورد من جدول الموردين) 4 - رقم العميل (نفس السابق) 4 - التاريخ 5 - الكمية المشتراة 6 - القيمة (سعر الوحدة) 7 - الكمية المباعة 8- القيمة (سعر بيع الوحدة) الان لدينا قاعدة بيانات مرتبطة ومتماسكة ونبدا بتصميم الاستعلامات حسب الطلب ثم النماذج والتقارير

إخواني الأعزاء وأحبابي افتقدتكم كثيراً نظراً لإنشغالي بأعمال نهاية السنة المالية التي تفرضها طبيعة عملي ، لذا أرجو أن تسامحوني ، وحتى أعود إليكم بتركيز أكبر أهديكم هذا الكود الذي يقوم بتمييز الخلايا المؤمنة ( LOCKED CELLS) في ورقة عمل حتى لو كانت الورقة محمية بكلمة سر ، بشرط ألا تشمل الحماية التنسيق حيث أن الكود يقوم بتلوين تلك الخلايا بلون اخترته تستطيعوا بالطبع تغييره من الكود بتغيير رقمه ويعمل الكود بزر مزدوج لتلوين وإلغاء تلوين الخلايا المحمية ، وطبعاً وكالعادة يمكن توسيع الاستفادة من الكود بنسخه ولصقه كماكرو بملف الماكرو الشخصي وتعيين زر لتشغيله بشريط الأدوات والطريقة سبق شرحها ويعرفها الجميع . أتمنى لكم النفع والفائدة والتوفيق . ملحوظة : الورقة في الملف المرفق المطبق عليها الفكرة محمية بكلمة سر هي : 123 أخوكم أبو عبدالله _________________________________________.rar

إخواني وأحبابي السلام عليكم ورحمة الله وبركاته المرفق ملف به كود وفقني الله عز وجل فيه يقوم بتلوين ( تعبئة ) جميع الخلايا التي تحوي تعليقات ( COMMENTS ) وكود آخر يقوم بإلغاء التلوين ، أتصور أته مفيد في حالة الرغبة في حصر ومعرفة مواقع الخلايا التي تحتوي على تعليقات . أتمنى أن يكون مفيد . والله ولي التوفيق . انقر أيقونة COLOR COMMENT CELLS ولاحظ ما يحدث ، ولإلغاء التلوين أنقر أيقونة UNCOLOR COMMENT CELLS تقبلوا تحياتي أبو عبدالله COLOR_UNCOLOR_COMMENT_CELLS.rar

أعتقد أن الكود التالي أكثر كفاءة: Private Sub Worksheet_Change(ByVal Target As Range) TR = Target.Row TC = Target.Column If TR > 2 And (TC = 3 Or TC = 4) And Cells(TR, 5) < 1 Then MsgBox "!مبلغ صافي الراتب أقل من أو يساوي صفر", vbExclamation, "تنبيه" End If End Sub شاهد المرفق، _________________________________________.rar

بسم الله الرحمن الرحيم ارفقت كتاب عن VBA و باللغه العربيه للورد و الاكسيل بسيط و مفيد جدا , و لكن بصراحه لا اذكر من اين حملته اتمنى ان يكون مناسبا السلام عليكم WrdExl.rar