اذهب الي المحتوي
أوفيسنا

الفواتير واستهلاكها من الخامات


seao
إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

السلام عليكم اخوانى الكرام

ارغب فى مساعدتكم فى عمل الجدول التالى بحيث الاكسيل يقوم باخراج النتائج السليمه

) مرفق الشيت به الشرح 

مرفق جدولين

الجدول الاول : هو جدول الخامات بالكيلو

الجدول الثانى : هو جدول الفواتير و موضح به الكميه المباعه بالكيلو

 

المطلوب هو تحديد استهلاك كل فاتوره من اللوتات باوزنها 

 

مثال : الفاتوره رقم 1 بوزن 6420.42 كيلو

    تم استهلاك لوت رقم 1 بكامله ووزنه 4500 كيلو

+  تم استهلاك جزء من لوت رقم 2 بوزن 1920.42 

  ( ملاحظه : متبقى وزن من اللوت رقم 2  " 5200 -1920.42  = 3279.58 كيلو

 

مثال : الفاتوره رقم 2 بوزن 1253.05 كيلو

  تم استهلاك جزء من لوت رقم 2 بوزن 1253.05 

  ( ملاحظه : متبقى وزن من اللوت رقم 2  " 5200 -1920.42 - 1253.05 = 2026.53 كيلو

 

مثال : الفاتوره رقم 3 بوزن 4872 كيلو

  تم استهلاك باقى الوزن من لوت رقم 2 بوزن 2026.53 

+  تم استهلاك جزء من لوت رقم 3 بوزن 2845.47 

  ( ملاحظه : متبقى وزن من اللوت رقم 3  " 3452.2 - 2845.4 = 606.73  كيلو

وهكذا

 

ولكم جزيل الشكر على عطائكم 

TC.xlsx

رابط هذا التعليق
شارك

  • أفضل إجابة

تفضل أخي الكريم

هذا اللغز من أفضل الألغاز التي قابلتها حيث استمرت المحاولات فيه يومين

والحمد لله تم إنجازه

إن شاء الله هذا الكود يقوم باللازم

Sub mas_generateMsg()
Dim SumH(1000) As Variant, SumV(1000) As Variant
For i = 17 To Sheet3.Cells(Rows.Count, 5).End(xlUp).Row
msg = "": frst = True: fw = Sheet3.Cells(i, 8)
msg = msg & "عند خروج الفاتوره رقم " & Sheet3.Cells(i, 5) & " بتاريخ " & Format(Sheet3.Cells(i, 6), "yyyy/mm/dd")
For c = 17 To Sheet2.Cells(Rows.Count, 6).End(xlUp).Row
lw = Sheet2.Cells(c, 9)
lot = IIf(fw - SumH(i) > lw, lw, fw - SumH(i))
mylot = IIf(lw - SumV(c) > lot, lot, lw - SumV(c))
If mylot > 0 And frst Then
frst = False: msg = msg & " تم استخدام خامات من اللوت رقم " & Sheet2.Cells(c, 6) & " بوزن " & mylot
ElseIf mylot > 0 And Not frst Then
msg = msg & " وأيضا من اللوت رقم " & Sheet2.Cells(c, 6) & " بوزن " & mylot
End If
SumV(c) = SumV(c) + mylot: SumH(i) = SumH(i) + mylot
Next c
Sheet4.Range("g" & i + 9) = msg
Next i
MsgBox "Done by mr-mas.com"
End Sub

نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

  • Like 3
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information