بن علية حاجي

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

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال... أخي الكريم، إن الخطأ يظهر لأن الأرقام المكتوبة ليست بتنسيق الأرقام، ويمكنك تغيير الصيغة (المعادلة) في الخلية E4 بالمعادلة =D4*1-C4*1 بدلا من المعادلة =D4-C4 ثم سحبها إلى الأسفل... والله أعلم

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال... أخي الكريم، أقدم لك هذه المحاولة في الملف المرفق التالي وأتمنى أن يكون فيه جزء من المطلوب... أخوك بن علية فندق.rar

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

السلام عليكم ورحمة الله أخي الكريم فضل، اعتقدت أن الكود يعمل جيدا ولكني لما قمت بتجربته بقي يعطي الخطأالذي ذكرته بالأعلى، لذا قمت بتغيير طفيف عليه وذلك بتبديل السطر : If [a3] <> 0 Then x = [a3] + 19 بالسطر: If [a3] <> 0 And [a3] <= [F1] Then x = [a3] + 19 وإن شاء الله يفلح هذا التغيير وتجد حلا لمسألتك... وإليك الملف المرفق التالي مع التغييرات الجديدة، ما عليك إلا تجربته والتحقق من عمل الكود بصفة صحيحة وسليمة... أخوك بن علية التسلسل2.rar

السلام عليكم ورحمة الله أخي الكريم فضل إن الكود الذي وضعه أخي الكريم الحسامي يعمل جيدا جزاه الله عنا ألف خير والمشكل معك أنك كررت الكود في ملفك مرة في كود الورقة 2 على الشكل: Private Sub Worksheet_Activate() [a3:a22] = Empty If [f1].Value <> 0 Then If [a3] <> 0 Then x = [a3] + 19 If Application.WorksheetFunction.CountIf([a3:a22], [f1]) = 1 Then x = 0 [a3:a22] = Empty For i = 1 To 20 Cells(i + 2, 1) = x + i If x + i >= [f1] Then Exit Sub Next i Else [a3:a22] = Empty End If End Sub والمرة الثانية في Module الذي وضعت له زر الأمر في الورقة وهو على الشكل: Sub Button9_Click() If [f1].Value <> 0 Then If [a3] <> 0 Then x = [a3] + 19 If Application.WorksheetFunction.CountIf([a3:a22], [f1]) = 1 Then x = 0 [a3:a22] = Empty For i = 1 To 20 Cells(i + 2, 1) = x + i If x + i >= [f1] Then Exit Sub Next i Else [a3:a22] = Empty End If End Sub وحل المشكلة تم بحذف أحد الكودين وقد قمت بحذف كود الورقة 2 في الملف المرفق وإن شاء الله يكون حل لمسألتك... أخوك بن علية التسلسل.rar

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

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

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

السلام عليكم ورحمة الله إخواني الكرام، يمكن أيضا استعمال المعادلة التالية (وهي معادلة صفيف أي يجب تأكيدها بواسطة CTRL+SHIFT+ENTER) : =SUM(IF(OR(A2:A15<>"";A2:A15<>0);A2:A15))/SUMPRODUCT((A2:A15<>0)*(A2:A15<>"")) والله أعلم أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم، أقدم لك هذا الكود البسيط تضعه في كود 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