ابراهيم الحداد

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

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

السلام عليكم ورحمة الله بارك الله فيك اخى الكريم / محمد حسن اسعدنى و شرفنى مرورك الكريم على الموضوع اما بالنسبة للاخ الكريم / عبد الفتاح بدوى اشكرك على تعلقك اللطيف اما الكود الذى تسأل عنه هو كود و احد يصلح للعديد من الازرار لفتح ورقة معينة فقط ان يكون الاسم المكتوب على الزر مطابق تماما لاسم الشيت المراد فتحه و ربط الكود بالزر اليك الكود Sub OpenSheet() Dim x As String On Error Resume Next x = ActiveSheet.Buttons(Application.Caller).Caption Sheets(x).Visible = xlSheetVisible Sheets(x).Select End Sub

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

السلام عليكم ورحمة الله ..ضع المعادلة الاولى فى الخلية G12 =LOOKUP(2;1/($B$4:$M$4>0);$B$4:$M$4) اما المعادلة الثانية فضعها فى الخلية F12 =INDEX($B$4:$H$4;MATCH($G$12;$B$4:$M$4;0)-1)

السلام عليكم ورحمة الله فى الكود الاول اجعل آخر سطرين هكذا End With Call Macro2

السلام عليكم ورحمة الله تفضل sample.xlsx

السلام عليكم ورحمة اخى الكريم لا يوجد مجال للاحراح فكلانا يعمل لوجه الله و من يبتغى مرضاة الله تنتابه لذة لا يشعر بها سواه اخى الكريم حتى يتم الترقيم لا بد من ملء البيانات بعناية كما اسلفت فى مشاركتى السابقة و على العموم هذه الخاصية لن يستفاد منها الا فى حالة وجود اعداد كبيرة من الطلاب و عدة شعب و تنوع الجنس و الفترات اما غير ذلك فهى غير مجدية سأحاول وضع بينات وهمية لكل الشعب للتجربة بدلا من التجربة على شعبة واحدة ارجو فقط امهالى فسحة من الوقت لاجراء تلك المحاولات مرفق ملف بعد عمل شكل آخر للراسبين بحيث تظهر جميع مواد الرسوب بشكل واضح ارجو رأيكم فيه اسم الورقة "الباقون للاعادة2" و الله ولى التوفيق 1993406518_4_.xlsm

السلام عليكم ورحمة الله اليكم شيت كنترول الصف الثانى التجارى بعد التعديل الثالث فى انتظار تعليقاتكم و ارائكم .. و الله ولى التوفيق 880863412_3_.xlsm

السلام عليكم ورحمة الله بالنسبة للطالب الاول فى الشيت الذى لدى هو راسب فى جميع المواد ومن ضمنها مادة ادارة الاعمال ودرجة هذه المادة صحيحة و لا توجد اخطاء اما ان كنت تقصد الطالب الاول فى شيت الدور الثانى فهو ناجح فى هذه المادة ----- تم تعديل درجة المواطنة و اعتقد ان الخطأ فى هذا لان احدهم قد عبث بالملف و قام بمسح المعادلة فى الشيت الاصلى ----- فعلا كان هناك خطأ بجمع نصف العام بسبب تبديل الاعمدة و تم تدارك الامر ----- كشف النسبة يعمل بامتياز و عندما تقلب الكشف لرقم 2 لن تجد اسماء اخرى لان الكشف الواجد يحتوى على 80 اسم اما مازاد عن ذلك فسيظهر فى الكشوف التالية و للعلم عدد من تجاوزوا نسبة 75% فى هذا الشيت 16 فقط ----- تم تغيير مجموع المادة بحيث اذا كان الطالب غائبا فى امتحان نهاية العام لا يتم جمع المادة بل يكتب فى خانة المجموع "غ" ------ اليكم نسخة من الملف للاطلاع عليه مرة اخرى و ابداء الرأى هذا و الله ولى التوفيق 2086539957_-201999.xlsm

السلام عليكم ورحمة الله تم اصلاح مواد الرسوب و الدور الثانى تم اصلاح شهادة نصف العام و كشف الراسبين ترتيب الاوائل لنصف او آخر العام موجود بالفعل تعمل بكفاءة تعذر عمل تفرقة بين البنين و البنات فى مسألة ناجح - ناجحة -راسب - راسبة وذلك لعدم وجود عمود النوع (بنين - بنات) و ذلك لصعوبة اضافة عمود جديد للنوع مما يستلزم اصلاح جميع الاكواد هذا و الله ولى التوفيق 1865372352_-201999.xlsm

السلام عليكم ورحمة الله الملف بعد آخر التعديلات ارجو الاطلاع عليه و ابداء ملاحظاتكم عليه وفقنا الله واياكم لما فيه السداد و الرشاد 280194394_2_.xlsm

السلام عليكم ورحمة الله اخيرا تم اجراء التعديلات اللازمة لشيت كنترول الصف الثانى التجارى ارجو مراجعة الملف و ابداء الملاحظات و ان شاء الله اى تعديلات مطلوبة ارجو ذكرها و الله ولى التوفيق اليكم الملف 996653921_.xlsm

السلام عليكم ورحمة الله سؤال الى الاخ الكريم /صوت الحق هل توجد شعب اخرى بخلاف شعبتى التسويق و القانون اخى الكريم / الاهلاوى 2007 من تبويب عرض او "View"يمكنك اختيار ازالة الالواح او "Unfreeze" على العموم ساقوم فى مشاركة لاحقة بتحميل الملف مرة اخرى بعد اجراء بعض التعديلات الاخرى

السلام عليكم ورحمة الله اخى الكريم اليك ملف الصف الاول و للعلم انا اعمل علية من بعد توقيت الموضوع بفترة وجيزة و لكن العمل على شيت جديد اهون كثيرا من اصلاح او تعديل شيت قديم اما شيت الدور الثانى فارجو امهالى من الوقت ما يكفى الا اذا كنت مستعجل فشيت الصف الثانى اصعب بكثير و الله ولى التوفيق 879671290_-201999.xlsm

السلام عليكم ورحمة الله استخدم المعادلة التالية =COUNTIF(A1:A100;"?*")

السلام عليكم ورحمة الله فى كل كود من الاكواد الاربعة السابقة لهذا الكود استبدل تلك السطور If Sheets(2).Cells(19, 13) = "" And Sheets(2).Cells(3, 13) <> "" Then Sheets(2).Range("a1:p15").PrintOut End If بهذه السطور If Sheets(2).Cells(19, 13) = "" And Sheets(2).Cells(3, 13) <> "" Then Call InsetPics Sheets(2).Range("a1:p15").PrintOut End If

السلام عليكم ورحمة الله لم يعمل معك الكود بسبب لبخلايا المدمجة ... اليك الملف saad.rar

السلام عليكم ورحمة الله استخدم الكود التالى ملحوظة هامة : الكود يعمل على ارقام الجلوس و ليس الاسماء لان اسماء الصور بارقام الجلوس Sub InsetPics() Dim ws As Worksheet Dim Pth As String, SName As String Dim Pic As Object, C As Range, Rng As Range Set ws = Sheets("شهاده محدده ترم2") Application.ScreenUpdating = False For Each Pic In ws.Pictures Pic.Delete Next Pth = ActiveWorkbook.Path On Error Resume Next For i = 3 To 19 Step 16 Set C = ws.Range("M" & i) Set Rng = ws.Range("N" & i - 1) SName = Pth & "\photo\" & C & ".jpg" Set Pic = ActiveSheet.Pictures.Insert(SName) If Not IsEmpty(Pic) Then With Pic .Top = Rng.Top .Left = Rng.Left .Width = Rng.Width .Height = Rng.RowHeight .Name = C.Value End With End If Next Application.ScreenUpdating = True End Sub

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

السلام عليكم ورحمة الله اليك المطلوب مطلوب لكشف المناداة.xlsx

السلام عليكم ورحمة الله تفضل new-2 (1) (2).xlsm

السلام عليكم ورحمة الله استخدمى هذه المعادلة =VLOOKUP(B2;INDIRECT("'"&$C$2&"'!"&"A4:B9");2;0)

السلام عليكم ورحمة الله تم عمل القائمة المنسدلة للمواد بدلا من الصفوف الدراسية حقيقة لم افهم المقصود بهذه العبارة التى ذكرت آخر الورقة "وهنا اريد عرض المراحل الصفية" new-2 (1).xlsm

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