بن علية حاجي

السلام عليكم ورحمة الله فهمت ما تريده أخي الكريم... وإليك التغييرات في الملف المرفق... وقد قمت بتغيير في مضمون الخلية 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" ... وإن شاء الله سيعمل الكود جيدا... وقد جربت الكود وراقبته وتم طبع الشهادين المحجوزتين في القاعدة... أخوك "بن علية"

السلام عليكم ورحمة الله أخي الكريم، معذرة لقد حدث خلل في تحميل الملف.... إليك الملف المرفق... كود طباعة.rar

السلام عليكم ورحمة الله أخي الكريم، لقد حذفت 11 صفحة من ملفك وجعلتها صفحة واحدة يقوم الكود بتغيير رقم الوثيقة في الخلية J2 ويطبع الصفحات حسب الرقمين الموجودين في الخليتين L3 (القيمة الصغرى) والخلية M3 (القيمة الصغرى)... أنظر الملف المرفق

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

السلام عليكم ورحمة الله لقد تم تصحيح كود الاستدعاء بورقة "كشف النقاط" ما عليك إلا مراقبته... ويبقى كود الترحيل بهذه الورقة... تجد ذلك في الملف المرفق... بالنسبة للأعمدة التي أضفتها(يمكن إخفاؤها) كانت إضافتها لأجل كود الاستدعاء الذي عدّلته ليكون تناسبا في عدد أعمدة المواد (كل مادة تحوي 7 أعمدة بالتساوي) وتكون الصيغة التي وضعتها بالكود [i = 10 + 7*[RANGE(K4)-1 تعطي أول عمود لكل مادة حيث )(RANGE(K4 يمثل في الورقة رقم المادة حسب الترتيب الموجود في ورقة المعلومات وفي ورقة الفصل_1 ... وهذا تفسيري لسبب إضافة هذه الأعمدة (التي يستحسن تركها وإخفاؤها وهي لا تؤثر في ورقاتنا).... أتمنى أن يكون هذا المطلوب.... مشروع كشوف الطلاب_3 .rar

السلام عليكم ورحمة الله معذرة للإطالة في الرد لأعمال كثيرة بالثانوية ولسبب انقطاع النت في منطقتنا كل اليوم... لقد قمت ببعض التغييرات على الملف لضرورة شرحتها في الملاحظة... وعليك مراقبة كود الاستدعاء الخاص بورقة "كشف النقاط" وتصحيحها حسب التغييرات التي قمت بها في ورقتي "المعلومات" و "الفصل_1" وإليك رابط التحميل : http://www.mediafire.com/download.php?iizxlom02wt

السلام عليكم ورحمة الله أعتقد أن هذا الأمر (الخطأ في أسماء الحقول) يكون عندما تكون الحقول غير مسماة أو يكون سطر الحقول في قاعدة البيانات (ملفات إكسيل) ليس هو الأول أو يمكن أن يكون الاسم مركب من كلمات واستعملت فيه رموز غير مسموح بها (الفراغات، الفواصل، وغيرها ماعدا الرمز "_") ملاحظة: من الأحسن إرفاق ملف أو جزء منه لمعرفة الخلل... والله أعلم

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

السلام عليكم ورحمة الله لم أنتبه للخطأ... قمت بالتصحيح وإن شاء الله ما يكون فيه أخطاء أخرى... أرجو منك منك المراقبة وذكر الخطأ إن وجد وسأقول بتصحيحه حتى كون الإصدار صافيا نقيا من الأخطاء الحسابية... وإليك الرابط : http://www.mediafire.com/download.php?lnlmzkizn0y في انتظار ردك.... أخوكم دائما بن علية