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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.