khairi ali قام بنشر يناير 15, 2021 قام بنشر يناير 15, 2021 في الملف المرفق أريد التعديل على كود الجمع تعديل كود الجمع.xlsm
أفضل إجابة سليم حاصبيا قام بنشر يناير 16, 2021 أفضل إجابة قام بنشر يناير 16, 2021 الأفضل رقع ملفات بدون زركشة الوان (اسهل على المتابعة) مبدئياً هذا الكود (يتحاهل النصوص والفراغات) Sub sum() Dim mr As Worksheet Dim lr%, i%, x% Set mr = Sheets("mark-s") With mr lr = .Range("c" & Rows.Count).End(xlUp).Row For i = 9 To lr For x = 12 To 103 Step 13 With .Cells(i, x) .Value = _ Val(.Offset(, -3)) + _ Val(.Offset(, -2)) + _ Val(.Offset(, -1)) End With Next x Next i End With End Sub 3
khairi ali قام بنشر يناير 16, 2021 الكاتب قام بنشر يناير 16, 2021 شكرا جزيلا وبارك الله فيك أستاذ سليم على تعاونك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.