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

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

السلام عليكم ورحمة الله وبركاته أساتذتى الكرام : اللذين أدين لهم بالفضل والعرفان بكل ما تعلمته فى الإكسيل أحبابى وأصدقائى : أعضاء منتدانا العريق ( منتدى أوفيسنا ) أقدم لكم أحدث تعديل فى كنترول الإعدادى رجب جاويش الإصدار رقم 15 للترمين والدور الثانى 2016 يشمل كل الأعمال الخاصة بالترم الأول والترم الثانى والدور الثانى شيت كنترول الإعدادى رجب جاويش الإصدار 15.rar

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

أخي الكريم ناصر جرب الملف التالي Sample UDF.rar

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

اهلا بك الاستاذ عبدالعزيز في منتدى الاكسس وتشرفت بالرد ضع التعبير التالي في حقل جديد باستعلام جديد Expr1: DateDiff("yyyy";[birth];Date()) وتم استخدام الدالة datediff لحساب فرق السنوات بين تاريخين حيث اصبح التاريخ الثاني هو دالة تحسب تاريخ اليوم بالتوفيق

برنامج صغير جدا لطباعة شهادات تقدير هدية للاعضاء طباعة شهادات تقدير.rar

و عليكم السلام ورحمة الله و بركاته ... تستطيع عمل حقل في الاستعلام ... فمثلا الحقل الذي تريده اسمه " aadd " تعمل حقل جديد كما يلي aadd2: iif(isnull[aadd];"لا يوجد";[aadd])

وصف البرنامج برنامج كنترول لجميع صفوف النقل : ابتدائي و إعدادي و ثانوي عام و لجميع المدارس الحكومية و التجريبية و اللغات و الخاصة للدورين الأول و الثاني قبل تحميل البرنامج اقرأ الملاحظات التالية 1 - البرنامج يعمل على أوفيس 2010 ( لم أجربه على الإصدارات الأعلى ) و لكن أرجو ملاحظة أنه من الأفضل عدم تشغيله على أوفيس عربي كما أرجو عدم تشغيله على أوفيس 2007 بصفة خاصة لعدم استقرارها وكثرة أخطائها ******* 2 - البرنامج محمي و مغلق بأكواد داخلية و بباسووردات متجددة آلياً و أي محاولة لفتح حماية أية صفحة ستؤدي كل مرة لغلق البرنامج آلياً بدون حفظ أية تغييرات ******* 3 - عند تشغيل البرنامج ستختفي تماماً جميع قوائم الإكسيل كما ستتعطل معظم اختصارات لوحة المفاتيح الخاصة بالإكسيل و ذلك فقط خلال عمل البرنامج يُفضل بقاء الوضع هكذا إلا عند الضرورة فيمكنك إظهار القوائم بالضغط على الكود المخصص لذلك في قائمة أزرار البرنامج كما يمكنك تفعيل اختصارات لوحة المفاتيح من صفحة الكنترول ******* 4 - بمجرد غلق البرنامج تعود قوائم الإكسيل للظهور في أي ملف آخر تقوم بفتحه بعيداً عن البرنامج كما تعود اختصارات لوحة المفاتيح للعمل من جديد ******* 5 - البرنامج لا يصلح لنسخ بيانات الطلاب أو درجات الرصد من البرامج السابقة إليه بشكل مباشر فلا تحاول نسخ درجات إليه مباشرة من أي ملف آخر غير ملف الرصد المرفق مع البرنامج فقط من مميزات البرنامج 1 - البرنامج قابل للتعديل من 100 إلى 2000 طالب دور أول و من 100 إلى 1000 طالب دور ثان ( من صفحة الكنترول ) . ******* 2 - البرنامج قابل لتعديل أسماء و عدد المواد الدراسية حتى 25 مادة و تعديل درجاتها و تحديد ما يدخل في المجموع منها و ما لا يدخل في المجموع ( من صفحة الكنترول ) . ******* 3 - البرنامج قابل لتعديل نسب التقديرات و مسمياتها كما تريد ( من صفحة الكنترول ) . ******* 4 - الرصد يقبل كسور الدرجة العشرية بأي شكل كانت . ******* 5 - يستطيع البرنامج قراءة الدرجات المرصودة باللغة الإنجليزية للمراجعة أو أثناء الرصد نفسه . ******* 6 - يمكن تحويل الصفحات القابلة للطباعة لكتاب إلكتروني بي دي إف . ******* 7 - يمكن تصوير الصفحات القابلة للطباعة فيتم حفظها في شكل صورة عادية . منقول للفائده ودعوه طيبه لصاحب البرنامج التحميل One Drive أو ميديا فاير

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

أخي عبد العزيز يجب عليك فتح نموذج و إضافة مربع نص غير منظم أكتب فيه الكود "DateDiff("yyyy";[Birth];Date())" لقد فعلت هذا التعديل على ملفك تفضل أخي. بلغ سلامي لأبناء بسكرة. data.rar

دقيقة واحدة اتفضل لو عجبك اضغط LIKE 147.rar

الاحدث Sales (3).rar

قبطاننا العزيز اتتركنا في جزيرة ضائعة وتبحر لوحدك ام تلقي لنا مركبا لانعرف كيفيه توجيهه؟؟ ارجو منك القاء مركباً بصيغة 2003 يمكن لبحارة الاكسس القدماء والبسطاء من قيادته تحياتي

الله يحفظك ويبارك لك الاستاذ المحترم عبد السلام أبو العوافي

اخي الكريم .. تم الاجابة علي سؤالك المشكلة في العلامة _ يعني المفروض اسم الفنكشن Kh_Mustowa يكون KhMustowa لان غير مسموح لا الحروف في الفنكشنز

ربنا يجزيك الخير .. يارب تمام للاستاذ المحترم عبد السلام والاستاذ الكبير ياسر لي رجاء تقول لي ايه كانت المشكله ؟ ليه ما إشتغلتش معايا

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

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

حساب العمر.rar إليك الحل أخي عبد العزيز لقد أضفت ذلك في مشاركة سابقة

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

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

أخي الكريم سيف الدين إليك الكود التالي يؤدي الغرض إن شاء الله Sub Goal_Seek() With Sheet1 .Range("P5").GoalSeek Goal:=3000, ChangingCell:=.Range("G5") End With End Sub ضع الكود في موديول عادي ، امسح الخلية G5 ، ثم اضغط Alt + F8 واختر الإجراء الفرعي المسمى Goal_Seek ثم انقر زر الأمر Run ..

For x = 1 To Range("B" & Rows.Count).End(xlUp).Row السلام عليكم اخي وائل الخطأ كان في النقطة في هذا السطر For x = 1 To Range("B" & .Rows.Count).End(xlUp).Row تحذف فقط النقطة الموجودة بجانب الكلمة : Rows.Count فيصبح هكذا For x = 1 To Range("B" & Rows.Count).End(xlUp).Row

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

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

Sub AAAAAAAAA() Application.ScreenUpdating = False For x = 1 To Range("B" & .Rows.Count).End(xlUp).Row For i = 1 To Len(Cells(x, 2)) If Mid(Cells(x, 2), i, 1) = ":" Then Cells(x, 1) = Mid(Cells(x, 2), 1, i - 1) & " :" Cells(x, 2) = Mid(Cells(x, 2), i + 1, Len(Cells(x, 2)) - 1) & "." GoTo 1 End If Next i 1 Next x Application.ScreenUpdating = True End Sub السلام عليكم اضافة لما ادلى به اخي سليم و اخي ياسر اعتقد ان هذا الكود ايضا يفي بالغرض

أخي الكريم وائل بناءً على الملف المرفق من قبل أخونا سليم من قبل ..تعاملت مع خلية واحدة فقط وهي الخلية A1 وتم فصل كل جملة ، وفصل كلمة التعريف بكود واحد بسيط جداً ويؤدي الغرض إن شاء الله ولكن انتبه من الأفضل إرفاق ملف معبر عن المطلوب .. سأرفق لك الملف الذي قمت بإعداده وأخبرني إذا كنت تريد التعديل عليه أم لا .. لو كانت البيانات عدة صفوف فلما لا ترفق ملف معبر بعض الشيء عن الملف الأصلي كأن ترفق 5 صفوف مثلاً ..ليتم العمل على هذا الأساس هذا هو الكود المستخدم (لتنفيذ الكود Alt+ F8 واختر الإجراء المسمى SplitIt) Sub SplitIt() Dim Arr, I As Long, P As Long Arr = Split(Range("A1").Value, """") For I = 0 To UBound(Arr) Step 2 P = P + 1 Cells(P + 1, 1).Value = Application.Trim(Split(Arr(I), ":")(0)) Cells(P + 1, 2).Value = Application.Trim(Split(Arr(I), ":")(1)) Next I End Sub وها هو الملف المرفق أيضاً Split By Delimiter YasserKhalil.rar وها هو ملف مرفق آخر حيث التعامل مع أكثر من خلية واحدة .. ضع البيانات في العمود الأول ثم نفذ الأمر وإليك الكود المستخدم Sub SplitIt() Dim Arr, I As Long, P As Long, T As Long, LR As Long LR = Range("A1").CurrentRegion.Rows.Count P = LR + 2 For T = 1 To LR Arr = Split(Cells(T, 1).Value, """") For I = 0 To UBound(Arr) Step 2 Cells(P + 1, 1).Value = Application.Trim(Split(Arr(I), ":")(0)) Cells(P + 1, 2).Value = Application.Trim(Split(Arr(I), ":")(1)) P = P + 1 Next I Next T End Sub أرجو أن يفي بالغرض إن شاء الله تقبل تحياتي Split By Delimiter In Multiple Cells YasserKhalil.rar

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

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

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

السلام عليكم اخينا الوحدة النمطية تحوي كلمة سر

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

New Microsoft Excel Worksheet1.rar

أخي الكريم أهلاً بك في المنتدى ، يرجى تغيير اسم الظهور للغة العربية إليك الرابط التالي فيه تفصيل وشرح لأسطر الكود لكيفية فصل الناجحين والراسبين الرابط من هنا

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

بالغاء الشفت.. اظن انك لست مبتدأ

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

لسة مصممه حالا اتفضل لو عجبك اضغط like شئون موظفين بسيط.rar

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

Application.ScreenUpdating = False ActiveWindow.DisplayWorkbookTabs = True Sheets(Array("sheet2")).Select 'محتاج تغيير مسار الحفظ الى سطح المكتب وليس الى نفس مكان تواجد الملف ActiveSheet.ExportAsFixedFormat xlTypePDF, "C:\Users\new\Desktop\nam" _ & "\ تاريخ " & n & Sheet2.Range("a1") & ".PDF" Worksheets("sheet2").Select ActiveWindow.DisplayWorkbookTabs = False Application.ScreenUpdating = True لم اجربه .. اتمنى ان يكون صحيح

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

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل // العنكوش 1 ) جزاك الله خيرا أخي الحبيب على ذوقكم العالي وردكم الجميل وكلامكم الطيب جعل الله لسانكم قائدا لكم في كل خير واوصلكم به لرفقة النبي _ صلى الله عليه سلم_ 2 ) بالنسبة لكلمة "البرنامج سلاح ذو حدين" صدقت أخي لا تقلق فانا اعمل في نفس المجال وهذا ما اعلمه بل ما اعيه جيدا بل ما اقوله دوما ان الخطا الصغير في هذه البرامج معناه نجاح الراسب أو رسووب الناجح وهذا ما لا يقبله شرع ولا عقل ولا اي أحد ولا يطيقه اولياء الامور 3 ) بالفعل أخي لم افهم فكرة درجات القرار وتوزيعها جيدا ولكن فهمتها بعد اطلاعي على الملف المرفق الاخير لكم ويدل الملف على أن القرار له شرطان الاول : عدد مواد الرسوب لا يزيد عن مادتين الثاني : ان مجموع درجات الرسوب لا يزيد عن درجة القرار وليكن 5 درجات وهذه النقطة لم افهمها جيدا فيما مضى حيث توقعت ان درجة القرار للمادة الواحدة بمعنى ان الطالب لو حصل على 45 في احد المواد ومادة اخرى 45 ينفذ عليه القرار والسبب ان الطالب راسب في مادتين كما ان المادتين لا يزيد الدرجات التى يحتاجها الطالب عن 5 درجات لكل مادة ولكن الحمد لله فهمت مرادك.. ان كنت مخطئ في هذا الكلام صوبني صوبك الله لكل خير 4 ) بالفعل تم التنفيذ على شرط كلمة قرار الموجودة في الملف لكن بعتذر انني نفذت على ملف two _end السابق والسبب ؟! ان الملف الذي ارسلته كان يحتاج الى فك التحقق من الصحة 5 ) للعلم ورقة after قمت بوضع معادلة تعمل على تبديل كلمة " قرار" في عمود ag الى كلمة "تم تنفيذ القرار" 6 ) اضفت شرط الا يزيد عن مادتين في عمود ag 7 ) تفضل أخي الحبيب هذا الملف ولو فيه اي مشكلة انا في خدمتك وفي انتظار جديدك.. two_end_2.rar

يبدو انني لم اتاكد من رفع المرفقات وذلك لغبطتي بالردود التي تقدمها اخي اذ انها واضحة ومتميزة وتدلل مدى اهتمامك بالموضوع لا بل وسعيك لانجازة بتميز وان دل ذلك على شئ انما يدل على حرصكم وتفانيكم من اجل نشر العلم والمعرفة دون حصرها بارك الله بكم اخي واعطاكم سؤلكم قبل ان تطلبون انه سميع مجيب الدعاء لربما تقول ان تاكيدي على الشرطين فاق حده ولكني اعتقد وكما تعرف ان مثل هذه البرامج سلاح ذو حدين ان لم تتقن في صنعها فان اخطائها تكون فادحة وان تركت تتفاقم لتصعب تحديد الاخطاء فيما بعد على اي حال يمكنك بالضغط على تطبيق القرار ان القرار يطبق على الطالب A2 والذي لديه ثلاث دروس وهذا خطا او يمكنك من ورقة بيفور ان تغير درجات اي طالب مثلا بعد التراجع عن القرار ووضع درجات مثلا 49 49 49 في ثلاث دروس واضغط تطبيق قرار تلاحظ يطبق عليه.وهكذا لاربع او 5 او او ....من الدروس اقتراحي الاعتماد على المعادلة في العمود AC التي عدلتها بشرطين لكي يضع امام الطالب كلمة قرار بالاخضر فان كان مقابل الطالب قرار اذن نحول جميع الدرجات في ذلك الصف الى 50 والتي تعود لذلك الطالب تحياتي لك وشكرا جزيلا لاهتمامكم ملاحظة تم تعديل معادلة (يحتاج الى قرار )في العمود AC في هذا المرفق يرجى اعتمادها بديلا عن المعادلة التي في الملف الذي عندكم TWO END لانني ادخلت الشرطين لكي يضع كلمة قرار امام الطالب conditions.rar

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

السلام عليكم ورحمة الله وبركاته الاخ الفاضل // العنكوش 1 ) جزاك الله خيرا على ذوقك في ردودك 2 ) هما شرطان بالفعل ولكن كان قصدي اقل من 3 مواد فقط ولا يساوي ال 3 3 ) في انتظار طلبات اخرى...

وعليكم السلام ورحمة الله وبركاته جزاك الله عنا اخي وحبيبي محمد الف الف خير وشكرا لابدائك المساعدة وطبعا عمل متقن رغم ما تراه انت فانا اراه رائع بما توصلنا اليه الى الان ولكن كان شرطي درسين او اقل وليس ثلاثة ( ويمتد مدى الخلايا ليشمل O204 اي الدرسين الاخيرين اخي ) فيكون المدى D5:O204 )

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