معادلة لحساب عدد القطع

[A L M A I S T R O]

اريد معادلة او كود vba  لحساب عدد القطع المراد تخزينها بمكان معين بناءا على الطول والعرض والارتفاع لمساحه المكان وبناءا على طول وعرض وارتفاع القطعه المراد تخزينها

شكرا

[أ / محمد صالح]

يتم ذلك عن طريق حساب حجم القطعة وحجم المكان

الحجم = الطول * العرض * الارتغاع

ثم

العدد = قسمة خحم المكان / خحم القطعة

بالتوفيق

[A L M A I S T R O]

ممكن مثال توضيحى بالمعادلات

[أ / محمد صالح]

للأسف لم تضع حضرتك مثالا ولا ملفا

السؤال نظري فالإجابة نظرية

[أبومروان]

استاذ @أ / محمد صالح ارجو من حضرتك القاء نظره للكود التالي ممكن يفيد السائل

Sub CalculateNumberOfItems()
    Dim spaceArea As Double
    Dim itemLength As Double
    Dim itemWidth As Double
    Dim itemHeight As Double
    Dim numberOfItems As Long
    
    ' تعيين قيم المتغيرات
    spaceArea = 100   ' مساحة المكان بالمتر المربع
    itemLength = 10   ' طول القطعة بالمتر
    itemWidth = 5     ' عرض القطعة بالمتر
    itemHeight = 2    ' ارتفاع القطعة بالمتر
    
    ' حساب عدد القطع
    numberOfItems = spaceArea / (itemLength * itemWidth * itemHeight)
    
    ' عرض نتيجة الحساب
    MsgBox "عدد القطع الممكن تخزينها هو: " & numberOfItems
    
End Sub

 

[أ / محمد صالح]

حضرتك قسمت مساحة المكان

والصواب قسمة حجم المكان

ويجب وضع أقواس لتحديد المقسوم والمقسوم عليه

بالتوفيق

[A L M A I S T R O]

ممكن حضرتك تصححلى الكود السابق من فضلك

ممكن تعدلى على المثال السابق كما ذكرت

@محمد صالح

[أ / محمد صالح]

يصححه صاحبه أخي الكريم

أما حلي للموضوع في أول مشاركة لي

طبعا حسب فهمي للمطلوب

وربما كان خطأ