NAWAS قام بنشر فبراير 20, 2005 قام بنشر فبراير 20, 2005 السلام عليكم كيف أستطيع أن أطبق طريقة الوارد أولاً صادر أولاً في الإكسل الطريقة عبارة عن ان مايصل إلى المخازن أولاً هو ما سيتم الصرف منه أولاً واحتساب التكلفة على هذا الأساس فإذا كان معي الكميات التالية 100 كيلو بقيمة 100 ريال 50 كيلو بقيمة 150 ريال 200 كيلو بقيمة 175 ريال وصرفت من المخازن 200 كيلو فستكون كالآتي 100 كيلو بقيمة 100 ريال 50 كيلو بقيمة 150 ريال 50 كيلو بقيمة 43.75 ريال بإجمالي 293.75 ريال أريد الطريقة بحيث إذا ادخلت الكميات المنصرفة يحتسب القيم آلياً وشكراً
محمد حجازي قام بنشر فبراير 21, 2005 قام بنشر فبراير 21, 2005 السلام عليكم ... سؤال ، هل التواريخ مرتبة عندك بشكل تصاعدة (من الأقدم إلى الأحدث) ، إذا كانت التواريخ كذلك فمشكلتك بسيطة ، أما إذا كانت التواريخ غير مرتبة فسوف تحتاج إلى كود طويل بعض الشيئ.
NAWAS قام بنشر فبراير 21, 2005 الكاتب قام بنشر فبراير 21, 2005 نعم أستاذ محمد التواريخ مرتبة بشكل تصاعدي وجزاك الله خيراً
محمد حجازي قام بنشر فبراير 21, 2005 قام بنشر فبراير 21, 2005 السلام عليكم ... جرب المثال المبسط التالي ، وذلك بفرض أن التاريخ مرتب بشكل تصاعدي: FIFO.zip
NAWAS قام بنشر فبراير 22, 2005 الكاتب قام بنشر فبراير 22, 2005 الأستاذ محمد حجازي السلام عليكم ورحمة الله وبركاته في البداية أشكرك على اهتمامك بالموضوع الملف المرفق ممتارز جداً ولكني لا حظت أمراً فيه في البداية عند احتساب التكلفة لأول مرة فإن الكود يحتسب القيمة بدقة ويقوم بإنقاص الكميات المنصرفة ويحتسب متوسط الكلفة ولكن ماذا لو قمت عن طريق الخطأ بضغط الزر مرة أخرى عن طريق الخطأ سيقوم الكود بإعادة الاحتساب مرة اخرى وإنقاص الكمية مرة أخرى فهل من الممكن تعديل الكود بحيث لا يعاد الاحتساب مرة أخرى لنفس الكمية كأن نربط الكمية المنصرفة برقم بحيث لا يكرر الصرف مرة اخرى ولا يقوم بإنقاص الكمية مرتين أو أكثر وجزاك الله خيراً
محمد حجازي قام بنشر فبراير 22, 2005 قام بنشر فبراير 22, 2005 السلام عليكم ... بالنسبة لربط كل كمية برقم فأنا لا أعتقد أنها مجدية ، ويمكنك عوضاً عن ذلك وضع رسالة تنبيه كالتالي: Dim Qestion As Integer Qestion = MsgBox("أنت على وشك القيام بهذه العملية ، هل تريد المتابعة؟", vbYesNo, "حساب تكلفة البضاعة") If Qestion = vbYes Then 'ضع الكود هنا End If
الردود الموصى بها