بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، أقدم لك هذا الكود البسيط تضعه في كود ThisWorkbook وهو يعمل إلغاء دمج كل خلايا أي ورقة من المصنف بمجرد فتح هذه ورقة... ويمكن الاستفادة من الأمر الوحيد في الكود لوضعه في بداية أي كود تعمل به ليقوم بالعملية قبل تنفيذ هذا الكود... والكود هو: Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveSheet.Cells.UnMerge End Sub ملاحظة: الخلايا التي كانت مدمجة لا يمكن إعادة دمجها بعد تنفيذ الكود... وأعتقد أنه يوجد كود لأحد الإخوة الكرام في موضوع سابق (لا أتذكر لا الأخ الكريم الذي وضعه ولا الموضوع) يقوم بإلغاء الدمج ثم يعيد الدمج مرة أخرى (كما كان) في نهاية العمليات...

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

السلام عليكم ورحمة الله أختي الكريمة، لا شكر على واجب وتجديننا إن شاء الله في الخدمة بما نستطيع ونعرف... في الحقيقة إن الأكواد في الإكسيل أحسن وأفضل لتخفيف وتبسيط عمل الملفات بينما المعادلات الكثيرة والتنسيقات تجعل في أكثر الأحيان عمل الملفات بطيئا وحجمها كبير ... وإجابة على بعض أسئلتك: * أريدأن أعرف أين (List) التي وضعت فيها الشرط؟؟ : هذه تجدينها في خاصية "إدراج/تسمية" Insertion/Name من قائمة الاختيارات... * و عندي سؤال آخر.. عندما نختار في نوع الأصل أصل ما له تصنيف المفروض حقل التصنيف يكون فارغ.. : وهذه تم حلها بواسطة خاصية "التنسيقات الشرطية" Conditional Formatting لخلايا هذا العمود... * كود رقم الأصل مكون من ثلاث خانات.. بينما المطلوب هو خانتين فقط ... تم تغييره بواسطة "تنسيق الرقم بالخلايا" وكل هذه العمليات وأخرى (قمت بتغيير بعض المعادلات) تجدينها في الملف المرفق (نسختين)... وإن شاء الله أكون قد وُفّقت في تحسين أداء الملف... أخوك بن علية Fixed_Asset_Form.rar

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

السلام عليكم ورحمة الله أخي الكريم، أشرح ما استطعت على عيني وراسي، * بالنسبة للمعادلة الأولى في العمود AC =IF(شهادة!$I$4="";A14;SI(C14=شهادة!$I$4;IF(B14="";"";MAX($AC$13:AC13)+1);"")) التي تحوي شطرين بالدالة IF، الشطر الأول IF(شهادة!$I$4="";A14; التي تقوم باختبار مضمون الخلية I4 من ورقة الشهادة (الخلية الصفراء) إذا كانت فارغة تأخذ الترقيم في العمود A (تترك الترقيم على حاله لتشمل القائمة كل الطلبة في جميع الفئات) وإذا كانت الخلية الصفراء غير فارغة (أي تحوي أحد الحروف A أو B أو C أو D حسب الفئة المختارة) فيأتي دور الشطر الثاني SI(C14=شهادة!$I$4;SI(B14="";"";MAX($AC$13:AC13)+1);"") فتقوم بترقيم كل الصفوف (تصاعديا) حسب الفئة المختارة في الخلية الصفراء... * بالنسبة للمعادلة الثانية في العمود AE =IF(ROW()-13>MAX($AC:$AC);"";INDEX($B:$B;MATCH(ROW()-13;$AC:$AC;0))) فهي تقوم بتحديد اسم الطالب الذي تتحقق فيه الشروط (انتماؤه إلى الفئة المختارة في الخلية الصفراء) والذي تم ترقيم سطره بالمعادلة الأولى في العمود AC والشرط ROW()-13>MAX($AC:$AC) وُضع للتأكد من أن القائمة الجديدة للطلبة في العمود AE (والتي تُستعمل لـ COMBOBOX في ورقة الشهادة) لا يتعدى عدد أفرادها أكبر قيمة للعمود AC... أرجو أني قد أوصلت الفكرة بهذا الشرح البسيط.... أخوك بن علية

السلام عليكم ورحمة الله وهذا حل آخر (دائما باستعمال المعادلات) وقد تم تغيير معادلات الترتيب في كل مدرسة ثم بواسطة معادلات صفيف باستعمال دالتي INDEX و MATCH تم ترحيل المطلوب (الأول والثاني من كل مؤسسة)... ملاحظة : في الحلين اللذين وضعتهما، المعادلات تعطي دائما الأول في القائمة (سواء للأول أم للثاني) حسب ترتيب القائمة... أخوك بن علية الأول والثانى.rar

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

السلام عليكم ورحمة الله أخي الكريم، قمت ببعض التغييرات على ملفك، في الورقة المسماة "نوفمبر" أضفت معادلات في العمودين AC لترقيم الطلاب حسب الفئة المختارة في الورقة الأخرى و AE لجلب أسماء الطلبة الذين ينتون إلى الفئة المختارة في الجدول (لتشكيل القائمة المنسدلة في Combobox في ورقة "الشهادة")... وفي ورقة "الشهادة" تم إضافة زر أمر "طباعة كل الشهادات حسب الفئة" مع الكود الخاص به وتعديل بعض الأوامر في الأكواد وفي المعادلات... أرجو أن يكون هذا المطلوب... أخوك بن علية Book2.rar

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

السلام عليكم ورحمة الله أخي الكريم، حاول مع الكود (المبسط التالي): Sub Print_MyRange() Sheets("البحث").PageSetup.PrintArea = "$O$6:$X$" & Cells(1500, 15).End(xlUp).Row ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveSheet.PageSetup.PrintArea = "" End Sub وإن شاء الله يكون هذا هو المطلوب... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، قمت بتغيير طفيف جدا جدا على الكود (تغيير مفتاح الترتيب AY6 بـ AP6) وإن شاء الله يكون هذا المطلوب... مع العلم أنه كان خطأ في الحجز بالنسبة للجنس (بين الذكور والإناث)... أخوك بن علية خطا فى الكود_1.rar

السلام عليكم ورحمة الله أخي الكريم، هذا تصحيح لخطأ اقترفته في الملف المرفق السابق، والخطأ يخص كود "معاينة شهادات الراسبين" وقد تم تصحيحه في الملف المرفق مع هذا الرد... فمعذرة لهذا الخلل... أخوك بن علية شهادات الصف الاول_1.rar

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

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

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

السلام عليكم ورحمة الله أخي الكريم، الدالة هي نفسها من السطر 1 إلى السطر 85، فالصيغة الأولى نتيجتها محدودة بالنطاق 85:1 بينماالصيغة الثانية ليست محدودة فهي تبحث عن قيمة Q1 في كل خلاياالعمود'R'!A:A وتعطي النتيجة المقابلة من العمود'R'!BW:BW والله أعلى وأعلم أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر باستعمال دالة IF مرة واحدة ودالة INDEX مع MATCH وبإضافة جدول للتقديرات يُعتمد عليه في إعطاء التقدير المناسب... أخوك بن علية التقديرات3.rar

السلام عليكم ورحمة الله أخي الكريم هذه محاولة وقمت بتغيير طفيف جدا على المعادلة تجده في الملف المرفق، أرجو أني وُفّقت في المحاولة... أخوك بن علية التقديرات2.rar

السلام عليكم ورحمة الله أخي الكريم هذا الكود كنت قد حضرته سابقا لاستعمالاتي الشخصية في كتابة البحوث والمذكرات وقد وضعته في المنتدى في موضوع آخر على شكل قالب Normal.dot وأضعه بين أيديكم للاستفادة منه ولم أستعمله إلا في أوفيس 2003 ولست أدري إن كان يصلح للنسخ الأخرى... والكود كما يلي: Public Sub MAIN() WordBasic.Insert "()" WordBasic.CharLeft 1 WordBasic.NoteOptions FootnotesAt:=0, FootNumberAs:=0, FootStartingNum:="1", FootRestartNum:=2, EndnotesAt:=1, EndNumberAs:=5, EndStartingNum:="1", EndRestartNum:=0 WordBasic.InsertFootnote Reference:="", NoteType:=0 WordBasic.Insert "- " WordBasic.StartOfLine WordBasic.Insert "(" WordBasic.CharRight 1 WordBasic.Insert ")" WordBasic.CharLeft 3, 1 WordBasic.FormatFont PointsBi:="14", ColorBi:=0, DiacColor:=0, Points:="10", Color:=0, StrikeThrough:=0, Superscript:=1, Subscript:=0, Hidden:=0, SmallCaps:=0, AllCaps:=0, Underline:=0, Spacing:="0 pt", Position:="0 pt", Kerning:=0, KerningMin:="", Tab:="1", Font:="Times New Roman", FontNameBi:="Traditional Arabic", Bold:=0, Italic:=0, BoldBi:=0, ItalicBi:=0 WordBasic.ViewFootnoteArea WordBasic.CharRight 2 WordBasic.Insert " " WordBasic.CharLeft 4 WordBasic.CharRight 3, 1 WordBasic.FormatFont PointsBi:="16", ColorBi:=0, DiacColor:=0, Points:="12", Color:=0, StrikeThrough:=0, Superscript:=1, Subscript:=0, Hidden:=0, SmallCaps:=0, AllCaps:=0, Underline:=0, Spacing:="0 pt", Position:="0 pt", Kerning:=0, KerningMin:="", Tab:="1", Font:="Times New Roman", FontNameBi:="Traditional Arabic", Bold:=0, Italic:=0, BoldBi:=0, ItalicBi:=0 WordBasic.CharRight 2 End Sub ويمكن التغيير فيه مثل حجم الخط في الهامش وحجم الخط في الصلب... أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم، إن الدالة CONCATENATE لا تقبل أكثر من 30 وسيط، وفي مثالك قد تجاوزت هذا الحد بين IF و " " لهذا ينبغي استعمال هذه الدالة أكثر من مرة للوصول إلى المبتغى... وفي الملف المرفق تجدني قد وصلت إلى عدد الشروط (18 شرط) التي تريد الوصول إليها مع إضافة دالة IF في بداية الصيغة في حالة ما إذا كان مجموع كل المواد يساوي 0 فتترك خلية "مواد الرسوب" خالية... وتأكد من الشروط التي أضفتها على الصيغة حتى تتماشى والمطلوب... أخوك بن علية داله محيرة_1.rar

السلام عليكم ورحمة الله إضافة إلى حل أخي الحبيب كمال هذا حل آخر بطريقة أخرى مع إضافة تنسيقات شرطية وتحقق من الصحة... أخوكم بن علية 1_1.rar

السلام عليكم ورحمة الله أخي الكريم جرب المعادلة التالية : =VLOOKUP(B6;LIST!$1:$1048576;2;FALSE) لأن ورقة LIST موجودة أصلا بالمصنف (الملف) وتقوم باستبدال العبارة 'L:\123\[PSSWORD.xlsx]LIST'! بالعبارة LIST! في كل المعادلات الأخرى وبإذن الله يتم المطلوب... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم بوعلام، يمكنك استعمال المعادلة التالية (وقد تم تطبيقها في الملف المرفق): =IF(COUNTIF(M9:N9;"معفى")>0;"معفي";B9) وبالفرنسية =SI(NB.SI(M9:N9;"معفى")>0;"معفي";B9) أخوك بن علية الحراسة تجريبي.rar