اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  • أفضل إجابة
قام بنشر

الأفضل رقع ملفات بدون زركشة الوان (اسهل على المتابعة)

مبدئياً هذا الكود (يتحاهل النصوص والفراغات)

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

 

  • Like 3

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information