الشهابي

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

أخي العزيز / حسين 22 تم التعديل حسب النموذج الذي أرسلت amn2016.rar

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

أخي العزيز / حسين 22 هذا فورم أستاذنا القدير عبد الله باقشير حفظه الله إن شاء الله يلبي طلبك والعفو amn2016.rar

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

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

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

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

أخي العزيز / عيد مصطفى قمت بعمل معادلة تؤدي إن شاء الله الغرض وأحببت أن أشارك بها لإثراء الموضوع لكنها لا ترقى إلى معادلة أستاذنا سليم حاصبيا حفظه الله ماشاء الله عليه قمة في التفكير ومعادلة مختصرة =AND(D$26=MAX($D$26:$O$26);(COUNTIF($D$26:D$26;MAX($D$26:$O$26))=1)) تحياتي لكم ولأستاذنا سليم حاصبيا

أخي العزيز / عمر ياسر ضع المعادلة التالية في التنسيق الشرطي =C8=$AM$5 إن شاء الله تحقق المطلوب

أخي العزيز / mesho263 جرب التعديل التالي Days_2.rar

أخي العزيز / mesho263 جرب المرفق إن شاء الله يحقق المطلوب ربما تكون المعادلة طويلة قليل ولكن هذا ما استطعت أن أفعله تحياتي Days.rar

أخي العزيز الأستاذ / أبو صلاح الشكر موصول لأستاذنا الكبير سليم حاصبيا حفظه الله أمين جرب التعديل التالي في الكود إن شاء الله يحقق المطلوب تحياتي لكم ولأستاذنا سليم حاصبيا Sub اخفاء() Application.ScreenUpdating = False Range("c1:bd1").EntireColumn.Hidden = True My_Match = Application.Match(Range("a1"), Range("c1:bd1"), 0) + 2 Cells(3, My_Match).Resize(1, 3).EntireColumn.Hidden = False Application.ScreenUpdating = True End Sub اخفاء واظهار بحسب عدد معين.rar

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

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

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

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

عفواً أخي العزيز أنا فهمت أن المطلوب نقل اليانات كاملة في حالة أن العمود (g) لا يساوي صفر وفهمت أن الملف الهدف خالي من البيانات والعفو

أخي العزيز الأستاذ / صلاح الصغير هذا حل بطريقة المبتدئين بالاستفادة التامة من أكواد أستاذنا الكبير عمر الحسيني حفظه الله ذو اللمسات الرائعة فيما يقدمه دائما وماقمت به سوى تطفل على أكواده ومن خلال إطلاعك على الملف المرفق سترى ذلك والتمس منه العفو على هذا التطفل وما دفعني إلى ذلك إلا طلبك أخي الأستاذ /صلاح ولست أدري هل يحقق ذلك مطلوبك أم لا والعفو Omar_1.rar

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

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

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

أخي العزيز / أ محمد عبد الصمد وبعد أذن أخينا وحبيبنا وأستاذنا القدير / ياسر خليل حفظه الله وبارك الله فيه وزاده علماً ورفعة إضافة سطر عن طريق المعادلات هذا حسب علمي غير ممكن ولكن عن طريق الكود ذلك ممكن إن شاء الله فأرفق لك كود قد عملته سابقا طلباً لأحد الأخوة الكرام قمت بالتعديل فيه ليتناسب مع ملفك قم بتنفيذه في ورقة دور ثاني ليقوم بإضافة صف فارغ أعلى كل صف فيه بيانات عندك Sub Add_row() Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlManual For X = 8 To 200 Step 2 Range("C" & X).EntireRow.Insert Next X Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub

أخي العزيز / حاتم عيسى قمت ببعض التعديلات في الملف على النحو التالي : 1- إعادة تسمية أوراق الإدارة المطلوب الترحيل إليها بنفس التسمية الموجودة في العمود (B) فمثلا ورقة ( شرق طنطا ) تم تغير اسمها إلى ( إدارة شرق طنطا التعليمية ) وهكذا بقية الأوراق وذلك حتى يتم الترحيل حسب اسم الشيت بشكل مضبوط 2- تم إزالة الدمج في عنوان عمود المدرسة في الصفين الثاني والثالث وجعل تسمية العمود في الصف الثالث وذلك لأن الدمج عدو الأكواد وغالبا ما يؤثر على تنفيذ الأكواد تم إضافة زر للترحيل في فورم تسجيل البيانات وبالنسبة للتنقل بين فورم تسجيل البيانات وفورم الإحصاءات فقط قدم الخروج من الفورم قبل إظهار الفورم الأخر حيث يكون الكود بهذ الشكل Private Sub CommandButton1_Click() Unload Me Call kh_Show_HatemEissa1 End Sub وهذا هو كود الترحيل بس لن يعمل حتى يتم عمل التعديلات السابق ذكرها : Sub Macro1() Application.ScreenUpdating = False Application.Calculation = xlManual Dim CL As Range, i As Integer For i = 3 To 12 Sheets(i).Range("B4:AF1000").ClearContents For Each CL In Sheets(2).Range("B2:B" & [b10000].End(xlUp).Row) If CL.Value = Sheets(i).Name Then CL.Offset(0, 2).Resize(1, 31).Copy Sheets(i).Range("B" & Sheets(i).[b10000].End(xlUp).Row + 1) End If Next Next Application.Calculation = xlAutomatic Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح .... حاتم محمود عيسى", vbOKOnly, "نجحت العملية" End Sub لماذا لا تستخدم التصفية المتقدمة بدلا من عمل ورقة مستقلة لكل إدارة فمن خلال التصفية سيتم جلب بيانات الإدارات من خلال تغير الإدارة في معيار التصفية ومن ثم جلب بياناتها إذا كان الغرض من تعدد الإوراق لكل إدارة هو عمل الإحصائيات يكمن الاستغناء عنها وعمل الإحصائيات من خلال ورقة البيانات والعفو العجز والزيادة للمديرية 1.rar

أخي العزيز / حاتم عيسى تم ربط فورم الأستاذ القدير عبد الله باقشير بالملف تبعكم ولكن تم إضافة صف وهو الصف رقم (4) وبه معادلات من أجل دمج عناوين الصف الثاني مع الثالث ويكون مدى عناوين الفورم هو الصف الرابع ( A4:AG4 ) كما تم تغير عنوان ورقة البيانات بالورقة النشطة حيث يصبح في موديول تشغيل الفورم بهذا الشكل .kh_SetAddrss ActiveSheet.Name, "A4:AG4" وطريقة الربط ستجدها في موضوع الأستاذ عبد الله نفسه مشروحة بالتفصيل وأرفق لك ملف الأستاذ عبد الله الذي في شرح الربط والعفو العجز-والزيادة-ب-ع.zip فورم ادخال و تعديل مرن مع الصور_2.rar