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

اخى الكريم لم افهم جيد طلبك ولكن جرب المرفق ربما يكون طلبك تقبل تحياتى ----------------------------------------------------- اتش.zip

السلام عليكم ورحمة الله تم إضافة كود يقوم بإدارج "فاصل الصفحات" بعد كل محافظة مستعينا بالعمود C (عمود مساعد)... تم إدراج عدة تسميات لنطاقات معينة لتسهيل عملية الكود... بن علية صفحات الطباعة.rar

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

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

السلام عليكم أخي الحبيب ياسر أبو البراء عمل رائع وموفق بإذن الله تعالى, بارك الله بك أخي الحبيب وبعملك وأياديك الناصعة في تقديم العون ومساعدة الآخرين.. والسلام عليكم

بسم الله ما شاء الله عليك يا أخي الغالي حسام حطاب (متدورش ع النقطة ..أنا هجيبهالك) عمل رائع ومتقن وإبداعي بشكل منقطع النظير تقبل وافر تحياتي

استاذى الحبيب / ابويوسف جرب المرفق انت بس تؤمر للعلم هذه الرسائل انت مصدر الهام الفكره لى تقبل تحياتى ----------------------------------------- اتش.zip

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

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

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

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

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

أخي الكريم محمد الملف يعمل بشكل عادي معي ..قد تكون المشكلة في نسخة الأوفيس لديك جرب تحمل نسخة أوفيس أحدث إصدار وليكن 2013 أو 2016 ..

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

أخى العزيز أبو حمادة لعل هذا هو المطلوب .... معاينة طباعة.rar

ممكن أستاذنا / محمد سلامة ... يعطينا طريقة فك الحماية من على البرنامج

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

السلام عليكم ورحمة الله تفضل تظهر الرسالة إذا تغير إسم الملف ويفتح معك الملف وهو لكي تعدل طبعا إذا تبغاه تأتيك الرسالة ثم يغلق أزل علامة التنصيص الفردية ( ' ) التي امام الكود اللي بعد الرسالة 'Application.DisplayAlerts = False 'ThisWorkbook.Close رسالة إذا تغير مسار الملف واخرى إذا تغير إسم الملف الآن خارج بعجاله إذا فيه أي استفسار اتركه إلي غد إن شاء الله ممكن تلاحظني انني موجود فأنا فعلا ما اخرج من النت إلا إذا فصل لحاله فانا اترك الجمل بما حمل لان يوجد آخريين يدخلوا علي ملفات للعمل عليها طبعا خاص بالعمل KHMB.rar

تم التعديل تفضل Project3.rar

السلام عليكم ورحمة الله تفضل الملف غير الاسماء اللي ترغب شغًال عندي وتمت التجربة 100 % إن يعمل معاك عندي Office 2013 KHMB.rar نعم حسب طلبك شاهد الملف

كود جميل جداً

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

اعتقد مثل هذا يحقق مطلوبك Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 45 Then Dtfild = Dtfild - 1 ElseIf KeyCode = 43 Then Dtfild = Dtfild + 1 End If End Sub باعتبار Dtfild هو حقل التاريخ داخل النموذج

جرب تغير السطر الخاص بتحديد رقم العمود إلى الشكل التالي If Target.Column = 5 Or Target.Column = 9 Or Target.Column = 13 Or Target.Column = 17 Or Target.Column = 21 And Target.Row > 4 Then حيث الرقم 5 يشير إلى العمود الخامس E والرقم 9 يشير إلى العمود التاسع I وهكذا ..بحيث يمكنك التعامل مع هذه الأعمدة فقط

بغد اذن اخي ياسر جرب هذا الملف جرد المحل salim.rar

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

أخي الكريم محمود أحبك الله الذي أحببتنا فيه بالنسبة لتغيير اسم الظهور للغة العربية ..راجع التوجيه العاشر في موضوع التوجيهات في الموضوعات المثبتة في المنتدى إليك الكود التالي يوضع في حدث ورقة العمل ..كليك يمين على اسم ورقة العمل المسماة "طلمبات المياة" ثم الأمر View Code ثم الصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 5 And Target.Row > 4 Then Application.ScreenUpdating = False Application.EnableEvents = False If Target.Value > Target.Offset(, -1) Or IsEmpty(Target.Offset(, -1)) Then MsgBox "الكمية المباعة أكبر من الكمية الموجودة أو لا يوجد كميات موجودة على الإطلاق", vbExclamation Target.ClearContents: Target.Activate Else Target.Offset(, -1).Value = Target.Offset(, -1).Value - Target.Value Target.ClearContents: Target.Offset(1).Activate End If Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub أرجو أن يكون المطلوب تقبل تحياتي Substract From Target Offset Cell Worksheet Change YasserKhalil.rar

السلام عليكم ورحمة الله وبركاته أخي الحبيب الصقر: بارك الله بك أخي الحبيب ..جعلتني أبكي سعادة وها هي عيناي مغرورقتان بالدموع جزاكم الله خيراً...اللهم اجعلنا مفاتيح للخير مغاليق للشر آمين ...اللهم افتح لنا أبواب رحمتك ...آمين والسلام عليكم. كما أحيي أخي الحبيب أبو البراء... الذي أرى أنه علق على الموضوع الآن ولمّا أقرأ تعليقه بعد.. كنية محببة إلى القلب خطاب ...هدية لكم؟؟. https://youtu.be/5QPDHtdepqg

شكرا جدا اخى حسام هو المطلوب شكرا على تعبك

أخي الكريم علاء عامر الحمد لله أن تم المطلوب على خير .. وجزيت خيراً بمثل ما دعوت تقبل تحياتي

اخي الغالي أ / ياسر جزاكم الله خير ... ونسأل الله العظيم من فضله العظيم ان يعطيكم العافية ويزيدكم من فضله وعلمه

بسم الله والشكر الجزيل أخي سعيد لتجاوبك مع تقديري واحترامي رضا الله

فى تصميم الجدول اضغط على الحق وفى الخصائص required = yes او لو الاكسس عربى الخاصية مطلوب = نعم the end.rar

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

حياك الله اخي تفضل المرفق وجزى الله خير الأخ محمد سلامة صاحب الموضوع والمهتم بالأرشفه للتوضيح وللفائدة :: هذا الكود كان في النموذج frm_main وهو يعمل على اخفاء شريط الأدوات ستحتاجه بالتأكيد في المستقبل القريب قمت بتعطيله فقط .. بدون برامج فك ولا سواه . ستجده في حدث في الحالي للنموذج وباللون الأخضر . DoCmd.ShowToolbar "Ribbon", acToolbarNo بالتوفيق Arcives.rar

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

اجعل الخاصية Required = yes لهذا الحقل

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

تم التعديل test salim 1.rar

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

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

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

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

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

أخي الغالي المتميز مختار بارك الله فيك وجزيت خيراً على هذا الإبداع أخي وحبيبي في الله بن عليه حاجي جزيت خير الجزاء على شرارة الإنطلاق الإبداعية إليكم إثراءً للموضوع الكود التالي Sub FindCombinations() Dim V(1 To 4) As Variant, W(1 To 4) As Variant, P As Variant Dim PCount&, I&, II&, III&, IIII& Dim Target As Single, Cell As Range ReDim P(1 To 4, 1 To 1) For I = 1 To 4 With Union([Ligne_1], [Ligne_2], [Ligne_3], [Ligne_4]).Areas(I) V(I) = .Value W(I) = .Value II = 0 For Each Cell In .Cells II = II + 1 W(I)(1, II) = Cell.Address Next Cell End With Next I Target = [Cellule1].Value For I = 1 To UBound(V(1), 2) For II = 1 To UBound(V(2), 2) For III = 1 To UBound(V(3), 2) For IIII = 1 To UBound(V(4), 2) If Target = V(1)(1, I) + V(2)(1, II) + V(3)(1, III) + V(4)(1, IIII) Then PCount = PCount + 1 ReDim Preserve P(1 To 4, 1 To PCount) P(1, PCount) = W(1)(1, I) P(2, PCount) = W(2)(1, II) P(3, PCount) = W(3)(1, III) P(4, PCount) = W(4)(1, IIII) End If Next IIII Next III Next II Next I Application.ScreenUpdating = False [B16:F65000].ClearContents [C16:F16].Resize(PCount).Value = Application.Transpose(P) [B16].Value = 1 [B16].Resize(PCount).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Trend:=False Application.ScreenUpdating = True End Sub تقبلوا تحياتي Find Every Combination YasserKhalil.rar

جرب المرفق بدون ماكرو ولكن عن طريق vba cost2016.rar

حياك الله اخي رضا الله هذا الكود للسجل الأخير On Error Resume Next Me.Refresh With Recordset If .AbsolutePosition = .RecordCount - 1 Then MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" Else DoCmd.GoToRecord , , acNext End If End With هذا الكود للسجل الأول On Error Resume Next Me.Refresh With Recordset If .AbsolutePosition = 0 Then MsgBox "هذا هو السجل الأول ", vbInformation + vbOKOnly, "تنبيه" Else DoCmd.GoToRecord , , acPrevious End If End With بالتوفيق ان شاء الله

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله هذا الموضوع من فترة كنت أبحث فيه وأتذكر أن هناك من طلب مثل هذا الطلب ، كما أنه يوجد موضوع بالمنتدى في الأيام الأخيرة لا أتذكره يخص إغلاق التطبيق وكيفية منع الإغلاق عن طريق زر الإغلاق الخاص بالتطبيق ، ووجدت زخم من الأكواد ، ومتاهات إلخ ... فقررت عمل موضوع لإنهاء الأمر والقضاء عليه بهدوء .. بأكواد بسيطة جداً بعيداً عن الزخم الغير مرغوب فيه والتعقيد الذي لا أحبذه في كثير من الأحيان ففي البساطة لو تعمقت في المسألة ، ستجد دائماً الحلول اليسيرة التي قد لا تخطر على بال الكثيرين سيكون محور العملية في كودين أحدهما يوضع في موديول .. ويكون بالشكل التالي Public CloseMode As Boolean Sub CloseMe() CloseMode = True ThisWorkbook.Save Application.Quit End Sub السطر الأول دا إعلان (بس مش في التليفزيون ولا إعلان على مواقع الانترنت ) دا إعلان في مشروع المصنف VBA Project ولا يخص الموديول فقط ، بل هو إعلان عاااااااااااااااااااااااااام أي أنه يمكن التعامل معه في أي موديول (سواء موديول عادي أو موديول ورقة عمل أو موديول المصنف أو موديول الفورم) المتغير اللي بيتم الإعلان عنه اسمه CloseMode ونوعه (يا إما ذكر يا إما أنثى) ..( True أو False) الإجراء المسمى CloseMe (والترجمة اقفلني .. والكلام ليس لي .. لأنك لو قفلتني مش هنزل الموضوع ده >> إنما المتحدث هنا هو الإكسيل .. فالإكسيل بيقولك اقفلني شكراً .. بس متقفلنيش من زر الإغلاق ..ابعد عن زر الإغلاق وغني له) أول سطر في الإجراء بيخلي المتغير العام قيمته True وتاني سطر بيحفظ المصنف والتالت بخرج من التطبيق وبس خلاص دي قفلة الكود End Sub تقريبا دي اختصار هند صبري (إند صب) دا الجزء الأول .. انتهينا منه *************************** شوية نجوم عشان الناس تصحصح تاني وتركز في الجزء التاني (كأننا في مسلسل مهند ونور) Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not CloseMode Then Cancel = True MsgBox "Please Use The button To Close This File" End If End Sub الجزء ده بيوضع في حدث المصنف .. وكما ذكر أخونا إبراهيم أبو ليلة في سلسلة شروحاته إن الحدث دا بيتنفذ قبل الإغلاق .. يعني ببساطة لما أدوس للإكسيل على طرف (اللي هو زر الإغلاق) يتنفذ الأسطر الموجودة الأسطر عبارة عن جملة شرطية بتقول ايه : (نركز ونصحى عشان أنا هنام منكم أهو) لو المتغير العام CloseMode منفي .. يعني قيمته Fasle وممكن نكتب الشرط بالشكل ده If CloseMode = False Then واحد هيسأل طيب لو كانت قيمة المتغير True مش كدا ممكن نستخدم زر الإغلاق ؟؟؟ أقوله صحيح .. بس المتغير العام القيمة الافتراضية له False .. أول ما نفتح المصنف أي متغير بتكون قيمته الافتراضية 0 مثلاً لو كان متغير من النوع Long ، أو فراغ "" لو كان المتغير String ، أما القيمة الافتراضية للمتغير Boolean يا ناس يا حلوين هي القيمة False المهم نرجع للشرط .. فلو كانت قيمة المتغير CloseMode تساوي False ينفذ اللي جاي .. يا إما أروح أمشي أنا يا شيخ عبد الستار وطبعاً زي ما قلت القيمة الافتراضية False بالتالي بالتالي وأكيد هينفذ باقي الكود باقي الكود .. السطر Cancel = True معناها الغي عمل زر الإغلاق ، ومش بس كدا .. أنا مش هسيبك تضرب أخماس في أسداس وتقول نسخة الأوفيس خربت عندي .. لا أنا هظهر لك رسالة عشان تتأكد إن النسخة مخربتش الرسالة بتقول : روح يا ولدي استخدم الزر اللي ياسر خليل عمله في ورقة العمل ، عشان زر الإغلاق بتاع التطبيق ، سعادته ياسر بيه لعب في أساسه وعطله (أصلي من النوع المعطلاتي) وطبعاً زي ما اتعودنا من الأخ شعبولة إننا نقفل ، فالشرط اللي بدأناه كمان لازم يقفل بـ End IF .. زي بس خلاص بتاعة شعبولة ** نقطة أخيرة : واحد سامعه بيفكر (على فكرة هو متكلمش هو لسه بيفكر ..) دلوقتي لو عايز أقفل من زر الإغلاق مع وجود الكودين دووول أعمل ايه ؟؟ الإجابة : بسيطة جداً روح واعمل إجراء فرعي وخلي قيمة المتغير العام CloseMode تساوي True ( وبكدا تقدر تستخدم زر الإغلاق مرة أخرى) Sub EnableCloseButton() CloseMode = True End Sub ونفذ الإجراء الفرعي ده .. ضع مؤشر الماوس داخل الإجراء الفرعي وانقر Run أي تنفيذ الإجراء الفرعي ، أو F5 من لوحة المفاتيح ... تقدر دلوقتي تقفل من زر الإغلاق عادي لأنك جعلت قيمة المتغير العام CloseMode تساوي True وأقفل أنا كمان موضوعي بالقفلة المعروفة بالنسبة لي .. دمتم على طاعة الله ، ولا تنسونا من صالح دعائكم حمل الملف من هنا

جرب هذا المرفق عملته بدوال الاكسل العادية وصيغة الصفيف وفي في عناصر التصفية العشرة الاوائل دون اي معادلات 1.rar

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