عدم ظهور بيانات الوزن وبيانات متوسط من الليست بوكس الى التكست بوكس الخاص بهم

[عبده الطوخى 1970]

السادة الافاضل 

تحية طيبة وبعد ،،،

يوجد لدى ملف excel vba وبعد التصميم والتنفيد للعمل 

وجدت مشكلة وهى عدم ظهور بيانات الوزن وبيانات متوسط الوزن فى التكست بوكس الخاص بهم 

مع العلم بان كل البيانات الاخرى موجودة ( التكست بوكس ( الوزن ) به كود معادلات وكذلك التكست بوكس ( متوسط الوزن ) به كود معادلات 

والغريب حقا بانه عند وقف تنفيذ كود المعادلات الملف يعمل جيد بدون اى مشاكل 

لذا ارجو التكرم بمساعدتى فى تفادى هذه المشكلة وايجاد جل لها 

ولكم جزيل الشكر والاحترام 

 

اعمال الشئون الادارية.rar

[محي الدين ابو البشر]

اعمال الشئون الادارية.xlsm

[عبده الطوخى 1970]

استاذى الافاضل 

الملف يعمل جيدا فى حالة وقف كود المعالات 

انا اريد تشغيل كود المعادلات واظهار النتائج كلها من الليست بوكس الى تكست بوكس 

ونتمنى منكم ايجاد حل باذن الله 

 

[محي الدين ابو البشر]

أذا ممكن تشرح لي من أين يأتي قيم إجمالي العدد وصافي الوزن ومتوسط الوزن العام  في المثال الذي بالأعلى

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

حسب فهمي للمطلوب يمكن تغيير إجراء تحميل القائمة إلى

Sub loadlistbox()
    Set ws = ThisWorkbook.Sheets("SoldFeedbags")
    Set rData = ws.Range("A1").CurrentRegion
    irow = Application.WorksheetFunction.CountA(ws.Range("A:A"))
    If irow = 1 Then irow = 2
    Me.TextBox8.Value = Evaluate("sum(SoldFeedbags!e2:e" & irow & ")")
    Me.TextBox9.Value = Evaluate("sum(SoldFeedbags!f2:f" & irow & ")")
    Me.TextBox10.Value = Evaluate("sum(SoldFeedbags!g2:g" & irow & ")")
    With Me.ListBox1
        .RowSource = "SoldFeedbags!A2:I2"
        .RowSource = "SoldFeedbags!A2:I" & irow
        .ColumnCount = rData.Columns.Count
        .ColumnHeads = True
        .ColumnWidths = "60,70,70,70,70,60,70,60,70"
    End With
End Sub

بالتوفيق