mahmoud nasr alhasany قام بنشر أكتوبر 3, 2023 مشاركة قام بنشر أكتوبر 3, 2023 (معدل) 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان