طارق محمود

السلام عليكم تفضل المرفق لم افهم مالسنة الأولى و السنة الثانية نتائج.xlsm

السلام عليكم أخى (nany4mg) بالملف المرفق تجد ورقة جديدة "إستحقاق سداد " تظهر لك بيانات العميل الذي عليه أقساط متأخرة وكذلك بيانات الأقساط أما ورقة "العملاء" ستجد أن بها فترة سماح لكل الأقساط عن طريق الإحتفاظ بتاريخ استحقاق القسط وتاريخ سداده وستجد أيضا تنسيق شرطي يفيد إذا القسط تم دفعه متأخرا وكم يوم تأخر وتنسيق شرطي آخر يفيد إذا القسط لم يتم دفعه حتي اليوم وكم يوم تأخر لاحظ أن الورقة الجديدة "إستحقاق سداد " في كل مرة تفتحها ستمسح البيانات القديمة التي بها أوتوماتيكيا وتستدعي الحالة الجديدة أي انك لو أضفت تاريخ سداد لأحد المتأخرين ثم فتحت تلك الورقة ستجد هذا القسط تمت إزالته من المتأخرين يعني ستظل تحتفظ بتواريخ السداد لكل الأقساط تفضل الملف 11-2.xlsm

السلام عليكم أخى الكريم (nany4mg) لاعليك هل تريد فترة سماح لكل الأقساط ؟ أنتظر الرد هذا قد يتطلب وقت أكبر لتعديل أكبر بالملف

السلام عليكم أخى الكريم (nany4mg) أنا لست بمصر والأوقات مختلفة عن مصر وحسب ماتيسر من وقت بين أوقات العمل أو البيت إن شاء الله غدا صباحا سأري ماتريد عموما ، يوجد عمود به فترة سماح باليوم لأول قسط فقط هل تريد فترة سماح لكل الأقساط ؟ ====================== أخى الكريم (أحمد يوسف) جزاك الله خيرا

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

السلام عليكم سأغير لك المعادلات الموجودة لأنها تفيد فقط أول سطر قيمة القسط ستختلف من عميل لآخر ووقت السداد سيختلف من عميل لآخر وهكذا

السلام عليكم المعادلات الموجودة بورقة العملاء ليست مضبوطة

السلام عليكم تفضل المرفق به ماطلبت مع إضافة ارجو أن تعجبك 1- أنه تم تحديد البيانات في العمود G بجملة "تم الشراء " أو لايقبل لكي لا يكون هناك أخطاء نتيجة مسافة أو غيره 2- بالورقة الثانية ، إن أحببت أن تتراجع في بعض الأحيان ، كل ماعليك أن تمسح جملة "تم الشراء " من البيانات التي تم ترحيلها فتنتقل مباشرة للورقة الأولي ولكن بآخر الجدول جرب وأخبرني مصنف 1.xlsm

السلام عليكم السؤال غير واضح أخي الكريم يمكن لأنني لست مدرسا عموما لديك إجمالي 771 ورقة وعدد (32) وليس 31 مدرسا بالقسمة البسيطة ينتج أن كل مدرس سيكون نصيبه 24 ورقة عدا ثلاث مدرسين فقط يكون نصيب كل منهم 25 ورقة لا أدري هل يجوز تقسيم السلسلة بين 2 مدسين أو أكثر كما في المثال الذي أنت أعطيته " المدرس كلثوم شطوو نصيبه 25 ورقة من السلسلة 2 والسلسلة 4" إذا كان هذا هو المقصود تكون بسيطة وتتحل بسرعة وإلا مطلوب مزيد من الشرح للمطلوب

السلام عليكم لاشيئ أنت فقط أخطأت في إدخال صيغة التاريخ في آخر سطر بشييت "مبيعات" مما جعل الاكسل لايتعرف علي أن محتوي تلك الخلية (B385) هو تاريخ أعد كتابة التاريخ مرة أخري وتأكد أنه بصيغة معروفة للاكسل ، مثلا يوم -شهر -سنة

والآن نشرح طريقة العمل بالملف المرفق أضفت لك العمود الأصفر (الذي سوف يستخدمه برنامج السولفر) لاحظ أن هذا العمود (أو هذه الخلايا) يجب ألا يحتوي علي أية معادلات نهائيا وكلما قل عدد الخلايا التي سوف يتعامل معها السولفر يكون الحل أسرع ثم بفرض أن هذا العمود لن يحتوي إلا أحد رقمين (0 أو 1) - لمن لديه فكره هذان هما الرقمان الوحيدان المكونان للأرقام الثنائية Binary Numbers العمود الذي يليه ضع فيه معادلة حاصل ضرب ذاك العمود بقيمة الفاتورة المقابلة وبآخره بالخلية D58 (الفونط الأحمر) معادلة جمع لهذا العمود الأخير .... أي لو أن كل الأصفر = 0 يكون مجموع الفواتير التي تم اختيارها =0 ولو أن كل الأصفر = 1 يكون مجموع الفواتير التي تم اختيارها يساوي إجمالي كما بالعمود B أي = 1,165,911 والآن سنجعل السولفر يغير الخلايا الصقراء بمحاولات متعددة بشرط ألا تحتوي هذه الخلايا إلا أحد رقمين (0 أو 1) ويكون هدف السولفر تقليل الناتج بالخلية E58 الخضراء والتي بها المعادلة التالية =(D58-309510)^2 هذه المعادلة تعظم الفارق بين المجموع للخلايا التي يختارها السولفر والرقم الذي تريده ورفعها للأس 2 لكي نجعل الفارق دائما موجب لأن هدف السولفر كما قلنا تقليل الناتج بالخلية E58 التي بها المعادلة ============================ أخيرا كيف تحدد المشكلة للبرنامج ليعطي نتائج مضبوطة قف بالماوس علي الخلية E58 التي بها المعادلة ثم إضغط زر السولفر ، سيبدو لك كما بالصورة قائمة توضح أن الهدف هو الخلية E58 ثم تختار Min ثم تختار الخلايا التي تسمح للسولفر أن يغير محتواها (الخلاي الصفراء) وأخيرا ضع شرطك أو شروطك بعد أن تضغط Add وفي هذه الحالة شرط واحد أن الخلايا الصفراء لابد أن تكون كلها من الأرقام الثنائية Binary Numbers وبالنهاية إضغط زر Solve لتشغيل البرنامج ستجد أنه قد يستغرق عدة دقائق (حسب قدرة الجهاز عندك) لأنه يجرب آلاف بل ملايين المحاولات ليحصل علي النتيجة الصحيحة وبالأخير يعطيك النتائج كما بالملف المرفق لاحظ أن النتيجة لم تكن نهائية حيث أنني أوقفت عمل البرنامج بعد 10 دقائق كانت أقرب نتيجة 309,515 وليست 309,510 كما تريد بفارق 5 قد يستطيع الحصول علي الرقم بالضبط إن كان لها حل أو أقرب رقم كما تري جرب الملف المرفق مع قراءة ماسبق من الشرح حتي تجيد استخدام هذه الاداة الرائعة (السولفر) سولفر-فواتير.xlsx

بعد التفعيل ستجد في آخر قائمة البيانات Data زر جديد لتشغيل أداة السولفر

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

السلام عليكم يمكنك عمل ذلك باستخدام تحديد الباينات Data Validation بالملف المرفق ، لايسمح لك بتكرار البيان إذا سبق وضع نفس البيان في العمود B الأصفر وأيضا يعطي عند تكرار البيان رسالة تنبيه / تحذير منع تكرار بيانات في نفس العمود.xlsx

السلام عليكم تفضل كود سريع Sub distrib() [A9999].End(xlUp).Select Range(ActiveCell, Selection.End(xlUp)).Select For i = 1 To Selection.Rows.Count Step 2 [B9999].End(xlUp).Offset(1, 0) = Selection(i) [C9999].End(xlUp).Offset(1, 0) = Selection(i + 1) Next i Selection.Clear [A6].Select End Sub أنظر المرفق به الكود مع زر تشغيل أخي الكريم/ علي محمد علي جزاك الله خيرا أصبح وقتي بالعمل والأسرة ضيق .. دعواتك توزيع بيانات عمود علي عمودين.xlsm

السلام عليكم الحل الأسرع ، بلا أكواد إن كان كما لاحظت في اسم الشهرة لابد من وجود حرف معين في النص مثل ":" أو "[" فلنعمل فلتر علي هذا الحرف ثم تأخذ نسخة وتضعها بعمود "اسم الشهرة" ثم تغير الفلتر لكيلا يحتوي علي هذا الحرف ثم تأخذ نسخة وتضعها بعمود "الاسم الكامل" وأخيرا تمسح الأصل أنظر المرفق توزيع بيانات عمود علي عمودين.xlsx

السلام عليكم من باب المشاركة فقط ردا علي أخونا khalid2117 السنة الكبيسة ليست بصفة عامة صحيح تقبل القسمة علي 4 لكن لها استثناء إن كانت تقبل القسمة علي 100 ، مثلا 2100 - 2200 - 2300 كلها سنوات بسيطة ، فبراير بها 28 يوم وليس 29 وهذا الاستثناء له استثناء وهي السنوات تقبل القسمة علي 400 فهي كبيسة أي أن فبراير بها 29 مثل 2400 - 2800 ويرجع هذا إلي أن السنة بالضبط لاتساوي 365.25 يوم كما هو شائع بل إنها 365.2422

الرجاء إرفاق ملف به المطلوب

السلام عليكم أخي الكريم تفضل المرفق به ماطلبت change colore2.rar

" هـل من الممكـن التعـديل فى الكـود انى استـدعى اسماء الصفحـات ما عــدا صفحة معـينه ولا لأ ؟" طبعا ممكن ، عدل الكود كالتالي: Sub Sheets_Name() For I = 1 To Sheets.Count If Sheets(I).Name = "AA" Then GoTo 10 ActiveCell.Offset(I, 1) = I ActiveCell.Offset(I, 2) = Sheets(I).Name 10 Next End Sub بفرض أن الشيت الذي لاتود إستدعاء إسمه هو "AA" لاحظ إضافة السطر If Sheets(I).Name = "AA" Then GoTo 10 وكذلك إضافة الرقم 10 للسطر 10 Next

السلام عليكم اخي الكريم الكود التالي صغير يمكنك استخدامه لأي ملف قبل تشغيل الكود ، يجب ان تكون الخلية التي تقف عليها (الخلية النشطة) تقع في مكان يليه عمودين فارغين Sub Sheets_Name() For I = 1 To Sheets.Count ActiveCell.Offset(I, 1) = I ActiveCell.Offset(I, 2) = Sheets(I).Name Next End Sub سينتج من الكود ارقام الشيتات في عمود واسماؤها في العمود التالي مهما كان عدد الشيتات

السلام عليكم أخي الكريم تأكد ان الحسابات بالملف اوتوماتيكة بالضغط علي F9 أو للحل الدائم للملف بالذهاب إلي Excel Options ثم Formulas ثم Calculation options ثم تأكد انها Automatic وليست Manual

السلام عليكم التجميع يلزمه دالة SUM مرفق الملف به الدالة في موضع واحد فقط وعليك إكماله علي نفس النسق المجموع.rar

وعليكم السلام أخي الكريم مرفق حل سريع بدون أكواد (معادلات فقط) ولتجنب الأخطاء نقلت صفحة الجرد للملف الرئيسي مع عمل لينكات للصفحة الرئيسية تفضل المرفق حسابات العملاء2.rar

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