بن علية حاجي

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

السلام عليكم ورحمة الله أخي الكريم، حل آخر باستعمال الدوال INT ، MOD ، SUMPRODUCT في الملف المرفق... أخوك بن علية الملف المرفق : الجنيه والقرش.rar

السلام عليكم ورحمة الله أخي الكريم، قمت بتطبيق المعادلات الثلاثة التي اقترحتها سابقا على ملفك (تم تلوين أعمدتها بالأصفر)... وهي تعطي كلها النتيجة نفسها إلا الثالثة (في حالات عدم توفر الشروط كلها) فبدلا من أن تعطي أصفارا فهي تعطي صيغة الخطأ ويمكن تعديل ذلك بالدالة IF أو بالدالة IFERROR (في إكسيل 2007 فما فوق)... الملف المرفق : PayRoll Formula (---).rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، في المعادلة المقترحة يوجد تداخل في شرط الحالتين الأخيرتين فالشرط الثاني (دالة IF الثانية) يعالج الحالة أن تكون قيمة N4*12-12000-M4*12 (وهنا حذفت الأقواس لأنه لا ضرورة لها حسب أولوية العمليات) محصورة بين 15000 و 35000، والشرط الثالث (دالة IF الثالثة) تعالج الحالة أن يكون العدد N4*12-9000-M4*12 أكبر من أو يساوي 35000 أي (بعد تبسيط) لما يكون العدد N4*12-12000-M4*12 أكبر من أو يساوي 32000 وهنا يكون التداخل بين الشرطين من جهة أصغر من 35000 تعالج في الحالة الثانية ومن جهة أخرى أكبر من يساوي 32000 تعالج في الحالة الثالثة... الرجاء مراجعة المعادلة المكتوبة وتصحيحها... وقد قمت بتحضير بدائل لها بمعادلات مختصرة ولكن يبقى مشكل التداخل بين شروط الحالات وأقترح عليك هذه المعادلات التالية كبدائل لمعادلتك الأولى =(IF(AND(12*(N4-M4-1000)>=0,12*(N4-M4-1000)<=15000),12*(N4-M4-1000)*0.1,IF(AND(12*(N4-M4-1000)>=15000,12*(N4-M4-1000)<=32000),1500+12*(N4-M4-2000)*0.15,IF(12*(N4-M4-750)>=35000,4500+(N4*12-M4*12-44000)*0.2,0))))/12 الثانية: أقصر قليلا =(IF(AND(12*(N4-M4-1000)>=0,12*(N4-M4-1000)<=15000),1.2*(N4-M4)-1200,IF(AND(12*(N4-M4-1000)>=15000,12*(N4-M4-1000)<=32000),1.8*(N4-M4)-2100,IF(12*(N4-M4-1000)>=32000,(N4-M4)*2.4 - 4300,0))))/12 الثالثة : أقصرهم =CHOOSE(MATCH(12*(N4-M4-1000);{0;15000;32000};1);1,2*(N4-M4)-1200;1,8*(N4-M4)-2100;2,4*(N4-M4)-4300)/12 في المعادلة الثالثة جعلت الشروط كالتالي : محصور بين 0 و 15000 ثم محصور بين 15000 و 32000 ثم أكبر من 32000 أخوك بن علية

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

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

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

السلام عليكم ورحمة الله أخي الكريم، جرب الملف المرفق حيث تم إضافة ثلاثة أكواد لإخفاء الجداول حسب الاختيار.... أرجو أن يفي بالغرض... أخوك بن علية الملف المرفق: Abu Yousef.rar

السلام عليكم ورحمة الله أخي الكريم ، قد فتحت الملف في جهازك بنسخة أوفيس غير 2003 انظر لعل مستوى أمان الماكرو مرتفع قم بتخفيضه إلى أدنى مستوى... أعتقد أن الملف عند فتحه ظهرت لك رسالة خاصة بتفعيل المحتويات والماكرو؟ وعند الرفض يقوم البرنامج بحذف (مسح) الماكرو كليا لهذا هي لا تعمل.... عليك بتخفيض أمان الماكرو ثم فتح الملف من جديد.... وأرجو هذه المرة يشتغل معك الملف... والماكرو الذي وضعته في كود حدث الورقة Sheet المعنية من سطر واحد وهو كما يلي: Private Sub Worksheet_Calculate() ActiveSheet.Name = [b10] End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أعتقد أن خاصية الحساب الآلي غير مفعلة Automatic Calculation ولمعرفة ذلك إضغط على مفتاح F9 (مفاتيح التوظيف) وإن تغير الاسم فهذا يعني أن الخاصية غير مفعلة ويمكن تغييرها في أمر "خصائص" Tools ثم "حساب" Calculation ثم تفعيل خاصية "تلقائي" Automatic هذه في نسخة أوفيس 2003 أما في النسخ الأعلي (2007 ، 2010 ، 2013) فالتفعيل يكون بفتح "خصائص إكسيل" Excel Options ثم فتح خاصية "الصيغ" Formulas ثم اختيار "تلقائي" Automatic في اختيار "نوع الحساب" Type Calculation (واعذرني على الترجمة لأني أعمل على النسخ بالفرنسية)... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أرى أن فكرة أخي الكريم قنديل الصياد هي الأفضل وكنت أنوي أن أقترحها لأن فتح ورقة جديدة لكل طالب عملية متعبة من عدة نواحي وتُكسب المصنف حجما كبيرا... وقد أضفت للملف كودا بسيطا لتغيير اسم الورقة حسب الاسم المختار في الخلية B10 ... أرجو أن تكون هذه الأفكار مفيدة وتفي بالغرض المطلوب... أخوكم بن علية الملف المرفق المعدل : Report Card-5C_2.rar

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

السلام عليكم ورحمة الله أخي الكريم، أعتقد أنه تنقصك مكتبة Calendar في VBA يمكنك تحميل ملف MSCAL.OCX إذا لم يكن موجودا في جهازك ثم تفعيل المكتبة في VBA في خاصية TOOLS/References... أخوك بن علية ملف المكتبة : Mscal.zip

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

السلام عليكم ورحمة الله أخي الكريم، التعديل السابق يخص فقط المعاينة قبل الطباعة للنطاق الذي يحوي بيانات... ولطباعة هذا النطاق عليك أخي الكريم أن تقوم بتعديل آخر في الكود نفسه وذلك بتغيير السطر: With ActiveSheet بالسطر: With Range(Cells(1, "B"), Cells(TT, "O")) ومعذرة على هذا السهو مني.... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم وأستسمح أخي الحبيب عبد الله على تعديل بسيط في الكود... السبب في عدم عمل الكود جيدا هو وجود المعادلات في العمود B وتوجد طرق لحل هذا المشكل وقد اخترت من بينها الحل التالي: قمت في الكود بتغيير السطر : TT = Cells(Rows.Count, "B").End(xlUp).Row بالسطر (TT = Application.Match("******", Range("B:B"), 0 ومكان النجوم ****** في الصيغة هي كلمة "الإجمالي" أي أن هذا الجزء من الكود يبحث عن رقم سطر وجود هذه الكلمة في العمود B وهو السطر الذي يحد الجدول وناحية الطباعة من الأسفل من الأسفل ... أرجو أن يكون هذا التعديل مستوفيا المطلوب... أخوك بن علية الملف المرفق: برنامج السخاوى.rar

السلام عليكم ورحمة الله أخي الكريم أحمد غانم، تم إضافة كود بسيط لطباعة الكشف مع إخفاء الصفوف الفارغة في النطاق A9:A55 ولأجل ذلك تمت إضافة تسمية ROW بمعادلة (يمكن الاطلاع عليها في قائمة التسميات) لتحديد رقم صف أول خلية فارغة من النطاق A9:A55 والكود يخفي الصفوف بداية من هذا الصف إلى الصف 55... والكود كالتالي: Sub Printing() Rows([Row] & ":55").EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Rows("9:55").EntireRow.Hidden = False End Sub والكود جعلته يقوم بالمعاينة قبل الطباعة PrintPreview ولكي يعمل الكود في طباعة الكشف يجب حذف العلامة ' (علامة الاقتباس المنفردة) من بداية السطر الرابع من الكود وإضافتها في بداية السطر الثالث لتفعيل الطباعة وإلغاء المعاينة قبل الطباعة... والكود بعد المعاينة أو الطباعة يعيد إظهار كل الصفوف المخفية في النطاق السابق... أرجو أن يفي هذا العمل بالمطلوب... أخوك بن علية الملف المرفق : كشف حساب بالمعادلات-2.rar

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

السلام عليكم ورحمة الله أخي الكريم، جرب الصيغة (MainDataBase.Cells(xxx , 45 بدلا من الصيغة MainDataBase!R[" & xxx & "]C45 بالنسبة لسؤالك الثاني : هل يمكن تحويل شيت اكسل يحتوي على اوامر ماكرو إلي برنامج مستقل بذاتة لايحتاج إلي وجود اكسل على الجهاز ويعمل متسقلا بذاتة كبرنامج ؟؟؟؟ لا أعتقد أن ذلك ممكنا، الشيء الوحيد الذي أعرفه أنه يمكن تحويله إلى صيغة .exe (ملف تنفيذي) لكن تبقى علاقته وتنفيذه مرتبطين بوجود إكسيل على الجهاز..... والله أعلى وأعلم أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، أسنسمح أخي الحبيب طارق لأقدم الملف في نسخة 2003 مع تعديل طفيف على المعادلة... الملف المرفق يحوي النسختين 2003 و 2007 (وأكثر)... أخوك بن علية الملف المرفق: حضور-غياب.zip

السلام عليكم ورحمة الله أخي الكريم، تم تعديل ملف أخي الحبيب إبراهيم بتبسيط المعادلة بواسطة تسمية جزء منها بالتسمية Criterea في ورقة "الرصيد" وإضافة حل آخر في ورقة "الرصيد2" بمعادلات بسيطة للترحيل لكن مع إضافة عمود (لوّنته بالأصفر) في ورقة "العهد" (ضروري ويمكن إخفاؤه)... أرجو أن تكون الحلول مقبولة ومستوفية المطلوب... أخوك بن علية الملف المرفق : كشف حساب بالمعادلات-2.rar

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر باستعمال الدالتين INDIRECT و ADDRESS بمعية الدالتين ROW و COLUMN بمعادلة واحدة في الخليتين A1 و A3 ثم سحبها يمينا أو يسارا حسب اتجاه الواجهة... أخوك بن علية الملف المرفق : اعمدة الى صفوف.rar

السلام عليكم ورحمة الله أخي الكريم أحمدعبد الحليم، المعادلة التي وضعتها ضحيحة جدا ولكنها معادلة صفيف لذا يجب تأكيدها بواسطة الضغط على : CTRL+SHIFT+ENTER... أخوك بن علية

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