بن علية حاجي

السلام عليكم ورحمة الله بالنسبة لبرامج أوفيس فأقول إن لكل برنامج من هذه البرامج عمل يقوم به في اختصاصه فوورد يقوم بمعالجة النصوص وإكسيل للجداول والحسابات وأكسيس لقواعد البيانات وهكذا كل يتعامل مع اختصاصه أحسن من الآخر وفي الحسابات أعتقد أن الإكسيل من كسس أما في قواعد لبيانات فأكسيس أحسن من إكسيل... والله أعلم

السلام عليكم ورحمة الله الدالة التي تجمع الخلايا الظاهرة فقط وغير المخفية هي الدالة SUBTOTAL(109;النطاق) وليس بالرقم 9 (هذا الرقم يجمع كل الخلايا مخفية وغير مخفية تقريبا مثل عمل الدالة SUM) والدالة SUBTOTAL تقبل 29 نطاقا والله أعلم

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

السلام عليكم ورحمة الله أهلا بك أخي الكريم... رجاء أرفق ملفا كمثال لكي يتسنى لنا معرفة النموذج الذي تريدنا أن نغير ونعمل فيه... وشكرا

السلام عليكم ورحمة الله أهلا بك أخي الكريم... الحمد لله أن عملك قد تم بنجاح... وفقك الله لما يحب ويرضى... وبارك الله فيك وجزاك الله خير الجزاء... يقبل الله الله كل دعواتك ولك إن شاء الله بالمثل... بالنسبة للكود الذي قدمته يمكنك القيم بتغيير تنسيق الخلايا التي يكتب فيها التاريخ بتنسيق خاص من الشكل YYYY/MM/DD في خواص الخلايا أو يمكنك أيضا تغيير كلمة NOW في كود الأخ والأستاذ طارق (نفعنا الله من علمه) بكلمة DATE وإن شاء الله سيشتغل الكود وتنال مطلبك... في انتظار ردك تقبل أخي الكريم تحياتي الخالصة أخوك "بن علية"

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

السلام عليكم ورحمة الله توجد عدة طرق منها استعمال الدالتين INDEX و MATCH مثل المثال المقدم في الملف المرفق... اسم صاحب أكبر علامة.rar

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