سيد الأكرت

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

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

الصورتان.rar

أقصد أن عدد التلاميذ يختلف من فصل لآخر وأكبر عدد لدينا هو 117 وعليه فإني أرغب أن تكون الصفوف متناسقة مع العدد، فهناك فصل عدده 50 تلميذ ومن ثم لا أريد صفحات فارغة تحت الأسماء فالورقة الواحدة تسع 30 تلميذ ولنفرض أن لدينا فصل عدده 62 فالمطلوب أن يكون ذلك في 3 صفحات بحيث يكون في الصفحة الثالثة الاسمين الباقيين وصفوف فارغة لنهاية الصفحة التي سنذيلها بإحصاء في آخر 3 صفوف منها مكتوب فيها "مقيد" وفي الصف الذي يليه "غائب" وفي الأخير "حاضر" وهذا التذييل سيكون مكتوب في خانة الأسماء أي في العمود الثاني كما في المرفق...

مواظبة2.rar

السلام عليكم ورحمة الله وبركاته مطلوب مساعدة في الملف المرفق الذي يقوم باستدعاء أسماء التلاميذ حسب الفصل بحيث يحقق الآتي :

1- عند اختيار الشهر والسنة من الخلايا ak , al  يتم التوزيع من بداية الشهر إلى آخر الشهر واسم اليوم في الخلايا من c إلى ag

2- عند استدعاء اسم الفصل تكون الصفوف وافية لعدد كل فصل وتكون نهاية الشيت مذيلة في آخر 3 صفوف تحت خانة اسم التلميذ بثلاث كلمات وهي مقيد ، وغائب ، وحاضر لعمل حصر يومي بالغياب.

3- إن أمكن حذف أيام الجمعة والسبت في كل شهر لأنهما إجازة فستصبح المساحة أوسع في عرض العمود لتكون الكتابة واضحة

مواظبة.rar

شكرا استاذنا الفاضل وبارك الله فيك وزادك علما ونفعنا بك

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

Sub CallingData()
Dim data As Worksheet, Ws As Worksheet
Dim Arr As Variant, Temp As Variant
Dim I As Long, j As Long, p As Long
Set data = Sheets("السجل")
Set Ws = Sheets("مواظبة")
Ws.Range("C9:R" & Ws.Range("D" & Rows.Count).End(xlUp).Row + 9).ClearContents
Arr = data.Range("D9:t" & data.Range("D" & Rows.Count).End(xlUp).Row).Value
ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
For I = 1 To UBound(Arr, 1)
If Arr(I, 2) = Ws.Range("r2") Then
p = p + 1
For j = 1 To 15
Temp(p, j) = Arr(I, Choose(j, 1, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17))
Next
End If
Next
If p > 0 Then Ws.Range("D9").Resize(p, UBound(Temp, 2)).Value = Temp
If p > 0 Then Ws.Range("C9") = 1: Ws.Range("C9").Resize(p).DataSeries Step:=1
End Sub

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

كود استدعاء.rar

عمل أكثر من رائع جزاك الله خيرا

بارك الله فيك وزادك علما وخلقا 

2 ساعات مضت, بن علية حاجي said:

السلام عليكم ورحمة الله

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

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

بن علية حاجي

تصفية تلقائية.rar

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

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

تصفية تلقائية.rar

منذ ساعه, سليم حاصبيا said:

ازالة الخلايا المدمجة من الملف كي يعمل Advanced filter

شكرا لتواصل حضرتك استاذنا العزيز

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

للرفع

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

كود ترحيل.rar

توصلت للحل والحمد لله

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

كود خطأ.rar

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

معذرة أخي الفاضل الأستاذ زيزو قمت برفع الملف الاصلي لتساعدنى في معالجة الخلل

دوائر.rar

تسلم إيديك وجزاك الله خيرا 

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

أعزك الله أستاذنا العزيز زيزو العجوز

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

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

دوائر حمراء.rar

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

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

السلام عليكم ورحمة الله وبركاته لدي استفسار حول كيفية تثبيت بعض الصفوف عند الاختيار من قائمة التصفية التلقائية ففي الملف المرفق عند اختيار احد الفصول من القائمة تختفي رءوس الجدول فكيف يمكن تثبيتها وجعلها لا تختفي كلها 

تصفية تلقائية.rar

للرفع وجزاكم الله خيرا