بن علية حاجي

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

السلام عليكم ورحمة الله الخطأ وارد لأن عمل INDEX يعتمد على رقمين رقم السطر في القاعدة ومثلته في الصيغة بـ C7 ورقم العمود الذي يمثله رقم ترتيب العمود في قاعدة البيانات (في مثالنا هو رقم من 1 إلى 11 حسب المعلومة المطلوبة) وبما أن C7 هو رقم السطر وهو الرقم الوظيفي لذا فالمعلومات التي تكتب في البطاقة هي معلومات السطر الذي رقمه C7 (على أساس أن الرقم الوظيفي هو رقم تسلسلي تصاعدي)... الآن قمت ببعض التغييرات على القاعدة وعلى البطاقة وعلى الصيغ ليقبل رقما وظيفيا كيفيا حتى وإن لم يكن مرتبا والمثال في الملف المرفق خير دليل على ذلك... أخوك بن علية lordring2.rar

السلام عليكم ورحمة الله بالتأكيد أخي الكريم، يمكنك ذلك وقد وضعت مثالا باستعمال الكود التالي: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("A1") = Date Then 'هنا تضع الكود خاصتك ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If End Sub عندما يكون التاريخ في الخلية A1 مساويا لتاريخ اليوم يقوم الكود بتنفيذ الأوامر المكتوبة بين شرط IF ونهاية الشرط END IFوفي المثال جعلته يقوم بالطباعة... والله أعلم

السلام عليكم ورحمة الله تأخرت عليك أخي الكريم قصي، كنت أعمل على ملفات أخرى فمعذرة أخي الكريم... كما طلبت أخي إليك الملف المرفق به العمل باستعمال الدالة INDEX مع بعض التغييرات الأخرى... أخوك بن علية 15شهاده_INDEX.rar

السلام عليكم ورحمة الله أخي الكريم السيد عبد الفتاح، إن أمر عرض الصور في الإكسيل تم تناوله عدة مرات بطرق مختلفة في المنتدى... أقدم لك منها ما قدمه أخونا الكريم عمر الحسيني حفظه الله بواسطة دالة مستحدثة سماها VLOOK_PIC في الملف المرفق... ألق نظرة عليها لعلها تكون لك حلا للمسألة... وهناك طرق أخرى تجدها في المنتدى... أخوك بن علية VLOOK_PIC.rar

السلام عليكم ورحمة الله أختي الكريمة لقد تم المطلوب... جعلت كود الطباعة يتحقق أولا من إصدار إكسيل ثم يقوم بالطباعة باعتبار أن أمر الطباعة في إكسيل 2003 يختلف عن أمر الطباعة في إكسيل 2007... (والملف يمكن العمل به في الإصدارين)... أخوك بن علية printing.rar

السلام عليكم ورحمة الله أخي الكريم في الملف المرفق وضعت عمود "الرقم الوظيفي" هو الثاني بعد عمود 'اسم الموظف' وغيّرت الدالة VLOOKUP بالدالة INDEX ويمكنك استعمالها وتغييرها حسب رقم العمود الذي تريد في الموضع الذي تريد... والله أعلم lordring1.rar

السلام عليكم ورحمة الله أخي الكريم رجاء أعد إرفاق الملف بعد أن تقوم بـ" حفظ باسم" وتقوم بحفظه بإصدار آخر غير 2010 لأنه ليس معي هذا الإصدار... الذي يهمني هو قاعدة البيانات فقط وسأقوم وفقها بتغيير ما يجب تغييره... أخوك بن علية

السلام عليكم ورحمة الله كما وعدتك أخي الكريم محمد، لقد عملت على الملف (الملف خاصتي) وقمت بتغيير بعض المعادلات ليعمل مثلما طلبت... بالنسبة للقصاصات تركتها على حالها لم أغيرها (12 قصاصة في كل ورقة) والرقم الذي يتم تغييره (في الخانة الصفراء) لا يدل على رقم القاعة بل على رقم الصفحة لذا يمكن أن تجد في ورقة واحدة قصاصات لقاعات مختلفة (حفاظا على الورق) والرقم في الأعلى يبين رقم القاعة ثم رقم ترتيب التلميذ في قائمة القاعة... ويبقى أيضا أن نربط القاعدة بورقة "مخطط الجلوس" سأعمل على ذلك لاحقا... في انتظار أي من الإخوة الكرام أن يقوم بعملية الترحيل بواسطة الأكواد تقبل تحياتي الخالصة... أخوك بن علية Listes_BAC_New.rar

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

السلام عليكم ورحمة الله شكرا أخي الكريم على الورود الجميلة بارك الله فيك وجزاك عني ألف خير... بالنسبة لاستعمال الدالة VLOOKUP بدلا من الدالة INDEX لم يكن الاختيار أجباريا (استعملتها لأني تعودت استعمالها ولكني أفضل الدالة INDEX لأنها أقوى واستعمالها أحسن) وإذا أردت أخي الكريم أن أعيد لك العمل السابق باستعمال الدالة INDEX فلا يوجد أي إحراج... أخوك دائما بن علية

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

السلام عليكم ورحمة الله أخي الكريم قصي، لم أنتبه لهذا الرد معذرة... بالنسبة للكتابة (Cells(1, 13 تدل على خلية واحدة هي تقاطع السطر 1 والعمود 13 أي هي الخلية M1 والكتابة (Cells(1, 14 تعني الخلية N1... فالكود هنا يقارن مضمون الخلية M1 مع الخلية N1 إذا كانت "أصغر منها او تساويها" فإنه يغير مضمون الخلية M1 إلى القيمة الموالية (مثلا إذا كان موجود فيها 5 فإنه يجعلها 6 وهكذا) فيتم عرض 15 شهادة الموالية (وإلا -لما يكون مضمون الخلية M1 لا يحقق شرط IF- فإن الكود يتوقف) والعكس بالنسبة للكود الثاني DOWN فإنه يقوم بمقارنة مضمون الخلية M1 مع الخلية O1 إذا كانت "أكبر منها تماما" فإنه يغير مضمون الخلية M1 إلى القيمة السابقة (مثلا إذا كان موجود فيها 5 فإنه يجعلها 4 وهكذا) فيتم عرض 15 شهادة السابقة (وإلا -لما يكون مضمون الخلية M1 لا يحقق شرط IF- فإن الكود يتوقف)... والله أعلم

السلام عليكم ورحمة الله يمكن الاستغناء عن العبارة (M1 - 1) في الصيغ فبدلا من الصيغة (مثلا) : =IF(15*($M$1-1)+1>$P$1;"";15*($M$1-1)+1) نجعلها : =IF(15*$M$1+1>$P$1;"";15*$M$1+1) ونقوم بذلك في الصيغ الأخرى (أيضا) لكن ينبغي أن تكون أصغر قيمة للخلية M1 هي 0 ويتم ذلك بتغيير قيمة O1 من 1 إلى 0... والله أعلم

السلام عليكم ورحمة الله أخي قصي نسيت أن أشرح لك المعادلة المكتوبة أمام "رقم الجلوس" في كل شهادة... تلاحظ أن أمام كل رقم جلوس من كل شهادة تجد صيغة مختلفة (وعددها 15 حسب عدد الشهادات المطلوب عرضها ويختلف فيها الرقم المضاف في الأخير فقط والباقي كله ثابت)... والصيغ هي كما يلي : =IF(15*($M$1-1)+1>$P$1;"";15*($M$1-1)+1) =IF(15*($M$1-1)+2>$P$1;"";15*($M$1-1)+2) =IF(15*($M$1-1)+3>$P$1;"";15*($M$1-1)+3) =IF(15*($M$1-1)+4>$P$1;"";15*($M$1-1)+4) =IF(15*($M$1-1)+5>$P$1;"";15*($M$1-1)+5) =IF(15*($M$1-1)+6>$P$1;"";15*($M$1-1)+6) =IF(15*($M$1-1)+7>$P$1;"";15*($M$1-1)+7) =IF(15*($M$1-1)+8>$P$1;"";15*($M$1-1)+8) =IF(15*($M$1-1)+9>$P$1;"";15*($M$1-1)+9) =IF(15*($M$1-1)+10>$P$1;"";15*($M$1-1)+10) =IF(15*($M$1-1)+11>$P$1;"";15*($M$1-1)+11) =IF(15*($M$1-1)+12>$P$1;"";15*($M$1-1)+12) =IF(15*($M$1-1)+13>$P$1;"";15*($M$1-1)+13) =IF(15*($M$1-1)+14>$P$1;"";15*($M$1-1)+14) =IF(15*($M$1-1)+15>$P$1;"";15*($M$1-1)+15) إذا كانت مثلا قيمة الخلية M1 تساوي 1 فإن قيمة (M1 - 1) تكون معدومة وبتعويضها في الصيغ السابقة تعطي (هذه الصيغ) الأعداد من 1 إلى 15 فيتم عرض الـ 15 شهادة الأولى إذا كانت قيمة الخلية M1 تساوي 2 فإن قيمة (M1 - 1) تساوي 1 وقيمة 15*(M1 - 1) في الصيغ تساوي 15 فتعطي الصيغ الأعداد من 16 إلى 30 فيتم بالتالي عرض 15 شهادة الموالية... وهكذا أرجو أن يكون شرحي مفهوما... أخوك بن علية

السلام عليكم ورحمة الله جزاك الله خيرا ........ عملك الطيب في الملف واف .. واف واكثر من رائع =IF(15*($M$1-1)+1>$P$1;"";15*($M$1-1)+1) منا لي عدة اسئله وانا اثق في رحابة صدرك الخليه M1 لماذا كتبت فيها الرقم 12 ؟ الخليه M1 في المعادلة تطرح منها 1 ثم تضيف 1 اذن فلماذا الطرح والف شكر أهلا أخي قصي، بالنسبة للتغييرات التي منها تغيير الخلايا M1 و N1 و O1 و P1 * الخلية M1 هي خلية العدد المتغير بواسطة الكودان الذين وضعتهما (تصاعديا بالكود UP أو تنازليا بالكود DOWN)... * الخلية N1 وضعت فيها قيمة الحد الأعلى الذي تأخذه الخلية M1 وتم ذلك بواسطة دالة (وهو العدد الصحيح الذي يساوي أكبر قيمة في عمود رقم الجلوس في شيت القاعدة مقسوم على 15 لتحديد مجالات العرض التي طولها15) (يمكنك مراقبة الصيغة في هذه الخلية. * الخلية O1 وضعت العدد 1 (ثابت) وهو أصغر قيمة للخلية M1 * الخلية P1 وضعت صيغة تعطي أكبر قيمة لرقم الجلوس الموجود في القاعدة وذلك باستعمال الدالة MAX وهذه الخانة استعملتها في الشرط المكتوب في الكود التالي: =IF(15*($M$1-1)+1>$P$1;"";15*($M$1-1)+1) فعندما يكون رقم الجلوس المكتوب بالصيغة أكبر من الرقم الحقيقي الموجود في قاعدة البيانات فإن الشهادة تعرض فارغة دون معلومات بدلا من أن تعرض بالخطأ ملاحظة: كل أرقام هذه الخلايا تم تلوين الخط فيها بلون التعبئة (لا يجب مسح مضمونها)... والله أعلم

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

السلام عليكم ورحمة الله أخي الكريم حاولت في الملف المرفق أن أقدم لك عملا يقترب كثيرا من المطلوب وإن شاء الله أكون قد وُفقت في ذلك... الورقة المطلوبة وضعت لها كلمة سر للحماية وهذه الكلمة هي lordring (اسم عضويتك)... أخوك بن علية lordring.rar

السلام عليكم ورحمة الله أخي الكريم قصي أقدم لك المطلوب وإن شاء الله يكون وافيا... لقد قمت ببعض التغييرات على المعادلات وعلى بعض الخانات في الورقتين حنى يعمل الملف على أحسن وجه (وتبقى لمساتك هي الأهم)... ملاحظة: استعملت الفكرة نفسها التي استعملتها في القصاصات (في ملف امتحان البكالوريا في الموضوع "مركز الامتحان" للأخ dah_moh) أخوك بن علية 15شهاده.rar

السلام عليكم ورحمة الله مفيد مفيد ولكن ارجو ان تشرح معادلات القصاصات وشكرا أخي الكريم قصي ماذا تريدني أن أشرح لك في معادلات القصاصات؟ الدالة المستعملة فيها هي الدالة VLOOKUP التي تبحث عن قيم من مجالات طولها 12 لهذا تجدني في هذه القصاصات قد استعملت هذه القيم من الشكل : 12*($A$2 - 1) + n حيث n تم تغييره من 1 إلى 12 وقيمة A2 المثبتة في الصيغة هي قيمة العدد في هذه الخلية (الخلية الملونة بالأصفر التي لا تدل على رقم القاعات مثلما نجد في ورقة قوائم القاعات)... مثال: لما تكون قيمة A2 هي 1 فإن لقيم التي تبحث عنها الدالة Vlookup هي من 1 إلى 12 وإذا كانت قيمة A2 هي 2 فإن القيم المطلوبة هي من 13 إلى 24 (الموالية حسب العدد الموجود في القاعات) وهكذا... وقد أضفت في هذه القصاصات رقمين بالأعلى يمثلان (رقم القاعة ورقم ترتيب الطالب في القائمة) مفصول بينهما بالرمز "-" حتى يكون ترتيبها سهل .... أرجو أني قد أجبت على طلبك... وإن كان هناك استفسار آخر تجدونني إن شاء الله في الخدمة دوما... ملاحظة: قد حضرت ملفا مشابها يعمل على إكسيل 2003 وإكسيل 2007 بإضافة شرط الإصدار Version قبل الطباعة (لسبب أن أمر الطباعة في إكسيل 2003 يختلف عن أمر الطباعة في إكسيل 2007)... وهذا حتى لا يجد إخواني الكرام أي مشكل في استعمال الملف في أي إصدار كان (المعمول بهما عادة). تجدون ذلك في الملف المرفق وأنتظر ملاحظاتكم على الملف... والله أعلم Listes_BAC_N.rar

السلام عليكم ورحمة الله أخي الكريم عندي لك كل هذا المطلوب وزيادة (زيادة على قوائم القاعات تجد في الملف المرفق ورقة تسمح لك بطبع قصاصات الطاولات لكل القاعات) وهو عمل حضرته منذ سنوات والكثير من ثانوياتنا (مراكز إجراء الامتحانات) تعمل به... ملاحظات: 1) بالنسبة لكلمة الحماية لجميع الورقات هو hb (لمن أراد القيام ببعض التغييرات) 2) في الملف يجب ملء ورقة المعلومات حول المركز 3) في ورقة Base نملأ المعلومات الخاصة بكل قاعة (25 مترشحا على الأكثر) رقم القاعات سيكون تلقائيا بمجرد حجز رقم تسجيل المترشح الأول لكل قاعة. 4) بالنسبة لرقم اللجنة والشعبة يمكن حجزهما مرة واحدة (مع معلومات المترشح الأول لكل قاعة) 5) يستحسن العمل بالملف في اوفيس 2003 (من أجل أكواد الطباعة) أرجو أن يكون هذا العمل مفيدا لك أخي الكريم ويفي بالمطلوب... أخوك بن علية Listes_BAC_N.rar

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

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

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

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