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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ايه رايكم نفتح تصنيف جديد بالمنتدى ونسميه "اكسسل" مع اجمل التحايا استاذ ياسر

المطلوب: في المرفق وفي sheet(الدليل المحاسبي)عند اختيار اي صف والنقر عليه double click يقوم بنسخ نفسه تحته مباشرة وبجميع التنسيقات والمعادلات : مع فائق شكري وتقديري للاخوه في هذا الصرح العلمي الكبير دليل الحسابات 2016.rar

أعتذر إليك أخي العزيز وائل حدث لبس عندي فاعتقدت أنك تريد مسح النقطة التي في نهاية الجملة وليس وضع النقطة عموماً ملحوقة تفضل الكود التالي Sub Split_It() Dim Arr, I As Long, P As Long Application.ScreenUpdating = False With Sheet1 Arr = .Range("A1").CurrentRegion.Value For I = 1 To UBound(Arr) Sheet2.Cells(P + 1, 1).Value = Application.Trim(Split(Arr(I, 1), ":")(0)) If Right(Split(Arr(I, 1), ":")(1), 1) = "." Then Sheet2.Cells(P + 1, 2).Value = Application.Trim(Split(Arr(I, 1), ":")(1)) Else Sheet2.Cells(P + 1, 2).Value = Application.Trim(Split(Arr(I, 1), ":")(1)) & "." End If P = P + 1 Next I End With Application.ScreenUpdating = False MsgBox "Done...", 64 End Sub تقبل تحياتي Split By Delimiter YasserKhalil V3.rar

احذف (_) من اسم الفنكشن .. اسم الفنكشن يجب ان يكون احرف فقط

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

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

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

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

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

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

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

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

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

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

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

بالنسبة لفنح البرنامج خفف امان الماكرو ومرفق ملف وورد لذلك تخفيف امان الماكرو.rar

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

New Microsoft Excel Worksheet1.rar

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

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

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

أخي الكريم أبو صلاح جرب الكود التالي Sub Copy_Specific_Row() Dim I As Long Application.ScreenUpdating = False For I = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 Range(Cells(I, "A"), Cells(I, "D")).Insert Shift:=xlDown Next I Application.ScreenUpdating = True End Sub نفس فكرة الكود موجودة في الموضوع على الرابط التالي (مع تعديلات بسيطة جداً ليناسب طلبك) الرابط من هنا

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

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

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

بارك الله فيك أخي الكريم عبد السلام وجزاك الله خيراً لجعل الكود مرن ويعمل لأي مستخدم بدون التعديل فيه ، لا يجب وضع المسار لسطح المكتب بهذا الشكل .. جرب الكود التالي Sub Export_PDF_in_most() Dim Str As String Str = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" Application.ScreenUpdating = False ActiveWindow.DisplayWorkbookTabs = True Sheets(Array("sheet2")).Select ActiveSheet.ExportAsFixedFormat xlTypePDF, Str & "\ تاريخ " & Sheet2.Range("A1") & ".PDF" Worksheets("sheet2").Select ActiveWindow.DisplayWorkbookTabs = False Application.ScreenUpdating = True End Sub

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 لم اجربه .. اتمنى ان يكون صحيح

يمكن استخدام خاصية ScrollBar للمزيد قم بالإطلاع على الرابط التالي الرابط من هنا

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

غير مصدر الحقل الي تحتاجه ( في التقرير ) من الى

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل // العنكوش 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 ) للعلم انا اعلم ما تقصد جيدا وهو ان الطالب شرط ان ينفذعليه القرار شرطين الاول هو ان يكون عدد مواد التى يحتاج فيها القرار اثنان فقط الثاني ان يكون مجموع المادتين يقبل درجات القرار وما عدا ذلك يترك درجاته كما هي 3 ) واما المشكلة التي ظهرت معك لعل سببها انني لم اضع اخر مادتين المكتوب على راس العمود (عبور ) ضمن المواد..

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

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