قائمة مجموع الرصيد الحالي اكسل ترتيبا تصاعديا

[mahmoud nasr alhasany]

Dim x As Integer
Dim sum, sum1 As Double
With Me.ListBox1
For x = 1 To .ListCount - 1
On Error Resume Next
.List(x, 7) = Val(.List(x - 1, 7)) + Val(.List(x, 5)) - Val(.List(x, 6))
sum = sum1 + Val(.List(x, 5))
sum = sum1 + Val(.List(x, 6))
Next x
.AddItem
For C = 0 To 7
.List(.ListCount - 1, C) = "________________"
Next C
.AddItem "TOTAI"
.List(.ListCount - 1, 5) = Format(sum, "fixed")
.List(.ListCount - 1, 6) = Format(sum, "fixed")
End With

 

 

مرحباً

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

هناك 8 أعمدة في مربع القائمة. يرجى طرح قيمة العمود 6 من العمود ٧ وإظهار الناتج فى العمود ٨ وتكون النتيجة ترتيبا تصاعديا مثل (الخزينة)

Classeur2 (1).xlsm

تم تعديل أكتوبر 3, 2023 بواسطه mahmoud nasr alhasany