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

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


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

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 من العمود ٧ وإظهار الناتج فى العمود ٨ وتكون النتيجة ترتيبا تصاعديا مثل (الخزينة)

IMG_٢٠٢٣٠٩٣٠_١٧٢٣٢٦.jpg

Classeur2 (1).xlsm

تم تعديل بواسطه mahmoud nasr alhasany
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information