بن علية حاجي

السلام عليكم ورحمة الله هذه المرة عمل الكود جيد جدا... المشكلة هي أن الأخ يوسف عطا اختار في قائمته ترتيبا للطلبة حسب متتالية حدها الأول 1 وأساسها 3 وهذا يجعل خللا في عدد الصفحات ويجعل العمل بالقائمة المنسدلة عملا فيه أخطاء كثيرة باعتبار أن اختيار أي اسم منها يضع رقم الترتيب (وهو تصاعدي 1 ، 2 ، 3 ، 4 ...) في الخلية الزرقاء... لهذا قمت في عملي السابق بإعادة ترتيب القائمة المنسدلة ترتيبا عاديا (وهي موجودة في عمود مخفي) وقمت بالتغييرات التي ذكرتها سابقا... بالنسبة لرد الأخ يوسف عطا فيما يخص العدد المرتفع لأوامر الطباعة (الذي يتجاوز 400 أمر في عمله) فقد كان هذا أول موضوع موضوع وضعته في المنتدى عند أول مشاركة لي، أن هذه الأوامر للطباعة حسب عدد صفحات الملف يتعب الطابعة والجهاز وخاصة التي ذاكرتهاضعيفة فيتوقف أحدهما أو يحصل أخطاء في الطباعة أو غيرها... ولم أجد الرد على تساؤلاتي في هذا المنتدى وقد اقترح أحدخم في منتدى آخر (فرنسي) أن أستعمل خاصية الطباعة في ملف من نوع بي دي أف PDF ثم طباعة هذا الملف مباشرة إلى الطابعة وهنا وجدت مشكلا آخر هو أنه يجب متابعة الطباعة صفحة صفحة بواسطة خاصية "الإضافة" APPEND اليدوية في البرامج التي تسمح بالطباعة إلى هذا النوع من الملفات... ومازلت أبحث عن برنامج يقوم بالإضافة الآلية التلقائية... والله أعلم

السلام عليكم ورحمة الله لقد اطلعت على عملك في الرد بالأعلى ولكن المشكل ما زال باقيا وقد شرحت ذلك بالأعلى حيث يجب أن يكون العدد من الشكل 3ك+1 وإلا فإن الكود لا يتوقف... الآن قمت ببعض التغييرات على الملف في مواضع منه وهو يشتغل جيدا وأضفت له حتى عمل القائمة المنسدلة للأسماء عند اختيار اسم منها... أولا : ربطت القائمة المنسدلة بالخلية H2 بدلا من الخلية K3 ثانيا: وضعت صيغة بواسطة الدالة IF في الخلية K3 مرتبطة بالخليتين H1 (المتغيرة بالكود) والخلية H2 (في حالة اسم من الاقئمة المنسدلة) ثالثا : غيرت في الكود بإضافة سطر أول يقوم بمسح مضمون الخلية H2 حتى يستعمل الكود الخلية H1 لتغيير القيم من 1 إلى قيمة الخلية F2 التي بها عدد الصفحات تدريجيا بالخطوة 1 والتي وضعتها في السطر : ActiveCell = ActiveCell + 1 والذي كانت صيغته ActiveCell = ActiveCell + 3 رابعا: غيرت أيضا في الخلية M11 التي تعطي رقم جلوس الطالب للشهادة الأولى في الصفحة ووضعت فيها صيغة بالدالة IF أخي الكريم ألق نظرة على الملف المرفق... وأرجو أن يكون هذا المطلوب... وأنتظر التقويم والتصحيح... أخوك بن علية A1.rar

السلام عليكم ورحمة الله نعم أكيد أخي الكريم مثلا باستعمال الدالة OR وإليك المثال: =IF(OR(A1=G1;A1=I1;A1=K1;A1=M1;A1=O1;A1=Q1;A1=S1);B1;"") ويمكن أن يكون حلول أخرى باستعمال دوال أخرى والله أعلم

السلام عليكم ورحمة الله أود أن أعرف من صاحب الموضوع بالنسبة لطباعة الشهادات هل كل صفحة تحوي 3 شهادات مختلفة لثلاثة طلاب أم كل صفحة تحوي 3 شهادات للطالب نفسه (وفي هذه الحالة لا جدوى من المتتالية التي أساسها 3 وحدها الأول 1 بل نجعلها متتالية أساسها 1 وحدها الأول 1)؟؟؟ بالنسبة للمعادلات التي أضقتها أخي BOSH قي الخلايا H1 و H2 ما هو الهدف منها؟؟ أليست هي نفسها الموجودة بالخليتين D2 و F2؟؟؟ وفي حالة طباعة صفحة بها 3 شهادات مختلفة يجب تغيير خواص القائمة المنسدلة لاختيار الأسماء المرتبطة بالخلية الزرقاء لأنه عند اختيار الاسم بالقائمة يكتب رقم ترتيب الطالب من القائمة في الخلية الزرقاء وهذا مشكل !!! وسأنتظر ردكم على أسئلتي حتى أتمكن من فهم المطلوب ومحاولة الإجابة عليه والقيام بالتغييرات في الملف حتى يكتمل العمل... والله أعلم

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

السلام عليكم ورحمة الله حل آخر لمسألة الطباعة التي لا تتوقف هو كما يلي: يمكنك فقط تغيير السطر التالي في الكود: Loop Until ActiveCell.Value = Range("f2").Value بالسطر Loop Until ActiveCell.Value > Range("f2").Value دون المساس بالتغييرات الأخرى التي وضعتها في ردي السابق سيقوم الكود بالتوقف عندأول قيمة للخلية الزرقاء أكبر تماما من القيمة الموجودة في الخلية F2 ملاحظة: العمل الذي قدمه الأخ BOSH (ويشكر عليه) فيه الخلل نفسه عند القيام بطباعة كل الشهادات... والله أعلم

السلام عليكم ورحمة الله المشكل معك أخي الكريم (وهذا ما فهمته من الكود الذي وضعته للطباعة) أن الطباعة تتوقف عن الرقم الموجود في الخلية F2 الذي يجب أن يكون عددا طبيعيا وأن تكون أيضا قيمته تكتب من الشكل : (3 ك + 1) حيث ك عدد طبيعي غير معدوم لأنك بدأت الطباعة من العدد 1 ثم تضيف 3 كل مرة أي السلسلة تكون من الشكل (1 ، 4 ، 7 ، 10 ، 13 ، ...) أما إذا قيمة الخلية F2 هي عدد من الشكل "3ك" وأقصد بها الأعداد من السلسلة (3 ، 6 ، 9 ، ...) أو من الشكل "3ك + 2" وأقصد بها السلسلة (2 ، 5 ، 8 ...) فلا يتوقف الكود أبدا لعدم تساوي القيمة المتغيرة في الخلية الزرقاء مع القيمة الموجودة بالخلية F2... ولحل هذا المشكل أخي الكريم أنصحك أن تقوم بما يلي: 1) أن تقوم بترقيم كل طالب من قائمتك (قائمة الأسماء) المخفية ترقيما متسلسلا من 1 إلى آخر طالب في القائمة (وليس كما وضعتها) 2) أن تغير السطر الموجود في الكود التالي السطر ActiveCell = ActiveCell + 3 بالسطر ActiveCell = ActiveCell + 1 وإن شاء الله سيزول المشكل... أخوك بن علية

السلام عليكم ورحمة الله لم أفهم عليك أخي الكريم... ما فهمته من الكود أنه مرتبط بقيمة الخلية F2 وقيمتها ليست عددا طبيعيا... رجاء إشرح لي أكثر... لو فرضنا عدد الشهادات كلها 10 مثلا سبكتب جنبها في الخليه F2 أربعه وسيطبع الكود لحد العدد 4 ورقين اتنين بس وهذا ليس المطلوب لان المطلوب 10شهادات يعني اربع ورقات وليس 2 دمت بعز الله

السلام عليكم ورحمة الله فهمت ما تريده أخي الكريم... وإليك التغييرات في الملف المرفق... وقد قمت بتغيير في مضمون الخلية M2 (الخلية الشرطية عندك والتي سميتها في الصيغ بالتسمية a) ووضعت فيها صيغة بالدالة IF تعطي لها إحدى القيمتين التاليتين: 1) قيمة الخلية N2 (الخلية المتغيرة بكود طباعة كل الشهادات ولوّنتها باللون الأبيض حتى لا تظهر في الطباعة) في حالة ما إذا كانت الخلية AE9 الصفراء فارغة أو قيمتها معدومة 2) قيمة الخلية AE9 إذا تم وضع قيمة لها غير الفارغة وغير المعدومة والتي لا تكون أكبر من عدد الطلبة... رجاء لا تمسح مضمون الخلايا M2 ، N2 ، AE9 ، AN1 ، AD11 التي تحتاجها الصيغ والأكواد... أخوك دائما بن علية 31_إصدار3.rar

السلام عليكم ورحمة الله الطباعة لا تتوقف عند تنفيذ كود الطباعة لأنها من المفروض تتوقف عند قيمة (مضمون) الخلية F2 الذي به صيغة =(D2+1)/3 وهذه القيمة ليست عددا صحيحا طبيعيا (هو عدد عشري) والكود يتغير بأعداد صحيحة طبيعية... يمكن تصحيحه بوضع الصيغة التالية =Int(D2/3)+1 بدلا من الصيغة السابقة في الخلية F2 وسيعمل بعدها الكود جيدا إن شاء الله أخوك بن علية

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

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

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

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

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

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

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

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

السلام عليكم ورحمة الله أقدم لك أخي الكريم، زيادة إلى ما قدمته الإخوة الكرام، هذا العمل بالمرفق أين استعملت عدة أعمدة لتقديم الترتيب النهائي على مراحل وأرجو أن ينال إعجابك... بالنسبة للأعمدة التي لا نحتاج إظهارها يمكنك إخفاؤها وترك العمود الخاص بالترتيب النهائي... ولاستخراج العشرة الأوائل مثلا يمكنك استعمال الدالة petite.valeur أو الدالة grande.valeur وبالإنجليزية SMALL أو LARGE كما بينه الإخوة بالأعلى... وإليك الملف المرفق.... أخوك "بن علية" Ordre.rar

السلام عليكم ورحمة الله لما راقبت عملك جيدا اتضح لي أنك وضعت في الخلية K5 "قائمة" التلاميذ باستعمال الخاصية "التحقق من الصحة Validation" ولاحظت أن الدوال VLOOKUP تستدعي الخلية الشرطية K5 فقمت بتغيير مضمون هذه الخلية بصيغة دالة تستدعي اسم الطالب الذي رقمه موجود في الخلية B2 ثم وضعت قائمة منسدلة (لا تُطبع مع الشهادة) لأسماء الطلبة والتي لها علاقة مباشرة بالخلية B2 (مرتبطة بها بالترتيب) وعدلت في تنسيق ورقتك (حدود الطباعة للشهادة) لاحتواء طباعة الشهادة في ورقة واحدة... يمكن أن تلاحظ ذلك بالملف المرفق... عسى أن يكون هذا هو المطلوب. shehada.rar

السلام عليكم ورحمة الله أخي الكريم، بالنسبة لكود طباعة كل الشهادات فهو صحيح جدا وليس فيه أي خلل، ويعمل على أحسن وجه... المشكلة في ملفك أنك قمت بربط الدوال VLOOKUP أو RECHERCHEV بالخلية K5 والكود يقول إنه يجب أن ترتبط بالخلية B2 (المخفية والتي تستقبل قيمة I المتغيرة) والحل هو أن تقوم بأحد التغييرين التاليين: إما أن تغير في الدوال VLOOKUP المستعملة في الورقة الخلية الشرطية K5 بـ الخلية B2 وإما أن تقوم في كود الطباعة السطر (الأمر) Range("b2") = i بالأمر Range("K5") = i ثم تخفي مضمون الخلية K5 (باللون الأبيض) وتتأكد أيضا من أن طريقة الحساب في برنامج إكسيل المختارة هي تلقائية Automatique وقد شرحت لك ذلك في رد سابق (فتح قائمة "أدوات" واختيار الأمر "خيارات أو خصائص Options" ثم نختار في علبة الحوار الاختيار "حساب Calcul" ونختار "تلقائي Automatique".... يجب أيضا تنسيق الورقة لأن حدودها تخرج عن نطاق الطبع (حدود الصفحة).... والله أعلم

السلام عليكم ورحمة الله بالنسبة لجعل مضمون الخلايا B1 و C1 (وحتى الخلية B2) مخفيا أو غير ظاهر، هذا أمره بسيط، يكفي أن نغير لون الخط في الخلايا المعنية إلى اللون الأبيض (لون الخط مثل لون النقش في الخلايا) أخوك "بن علية"

السلام عليكم ورحمة الله والله أخي الكريم نحن في الخدمة ما اسطعنا لذلك سبيلا... إن الكود الذي وضع لطباعة الشهادات هو من أبسط الأكواد... تلاحظ أولا أن الشهادة استعملت فيها على الخصوص الدالة VLOOKUP أو RECHERCHEV التي تعتمد على قيمة الخلية B2 في ورقة "الشهادات" التي تمثل فيها "قيمة البحث" في قاعدة البيانات... والكود يقوم ببساطة بتغيير هذه القيمة تصاعديا من القيمة الموجودة في الخلية B1 (ووضعنا فيها 1) إلى القيمةالموجودة في الخلية C1 (التي وضعنا فيها القيمة الكبرى للعمود A:A من قاعدة البيانات للدلالة على آخر رقم للطلاب أو رقم الطالب الأخير في القائمة)... وكل ما يقوم هذا الكود بتغيير قيمة الخلية B2 يقوم مباشرة بطبع الشهادة المقابلة لهذه القيمة (وهي الرقم التسلسلي للطالب)... نلقي نظرة إلى الكود ونشرحه خطوة خطوة: Dim i As Integer إعلان لمتغير سميناه I Sheets("الشهادات").Select لفتح ورقة "الشهادات" المراد طبعها For i = Range("b1") To Range("c1") مجال تغيير قيمة المتغير I من قيمة الخلية B1 إلى قيمة الخلية C1 Range("b2") = i وضع قيمة I في الخلية B2 (التي تقوم بتغيير المعلومات في الشهادة بوساطة الدالة VLOOKUP) If i <= Range("c1") Then شرط مواصلة عمل الكود "إذا كانت قيمة I أصغر من أو تساوي مضمون الخلية C1 يقوم الكود بالخطوة التالية وإذا لم يكن يتوقف الكود End Sub) ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True الخطوة التي يقوم بها الكود إذا كان الشرط السابق محققا) وتتمثل في طباعة الشهادة End If توقف الكود عن الطباعة (مؤقتا) Next i تغيير قيمة I إلى القيمة الموالية ومواصلة عمل الكود بالطريقة نفسها (يغير ويطبع) إلى أن تصل قيمة I إلى قيمة الخلية C1 Sheets("إدخال").Select العودة إلى ورقة "إدخال" الورقة الرئيسية عند الانتهاء من طبع كل الشهادات End Sub أرجو أن يكون هذا الشرح مستوفيا... وليس عندي ما أقوله غير هذا... وأتمنى أن يصحح إخوتي من عباقرة المنتدى الأخطاء في شرحي أخوك دائما "بن علية"

السلام عليكم ورحمة الله أخي الكريم، كود طباعة كل الشهادات يعمل جيدا ولا توجد أي مشكلة فيه... وأعتقد أن الخطأ عندك في خصائص إكسيل... طريقة الحساب الأوتوماتيكي (الآلي) غير معينة... إفتح قائمة "أدوات Outils Tools" واختر "خصائص Options" ثم "حساب Calcul" واختر "حساب آلي Automatique" ... وإن شاء الله سيعمل الكود جيدا... وقد جربت الكود وراقبته وتم طبع الشهادتين المحجوزتين في القاعدة... أخوك "بن علية"

السلام عليكم ورحمة الله أخي الكريم، كود طباعة كل الشهادات يعمل جيدا ولا توجد أي مشكلة فيه... وأعتقد أن الخطأ عندك في خصائص إكسيل... طريقة الحساب الأوتوماتيكي (الآلي) غير معينة... إفتح قائمة "أدوات Outils Tools" واختر "خصائص Options" ثم "حساب Calcul" واختر "حساب آلي Automatique" ... وإن شاء الله سيعمل الكود جيدا... وقد جربت الكود وراقبته وتم طبع الشهادين المحجوزتين في القاعدة... أخوك "بن علية"