كيف اعبر عن المتغير ii برمجيا

[saad abed]

السلام عليكم

هذا جزء من كود

اريد التعبير عن المتغير بحيث الاسطر تزيد او تنقص

هو يقوم بالجمع الفرعى لاسم معين

اشكركم

sub saad1111111111111111()

On Error Resume Next

For i = 6 To 48 'Step 2

If IsEmpty(Cells(i, 2)) Then

Cells(i, 2).Resize(1, 22).Interior.Color = RGB(192, 192, 192)

Cells(i, 2).Resize(1, 22).Formula = "=SUM(R[-" & ii & "]C:R[-1]C)"

End If

Next i

End Sub

1.rar

تم تعديل يوليو 7, 2015 بواسطه سعد عابد

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل

Sub YasserKhalil()
    Dim I As Long

    On Error Resume Next

    For I = 6 To Cells(Rows.Count, 2).End(xlUp).Row + 1
        If IsEmpty(Cells(I, 2)) Then
            Cells(I, 2).Resize(1, 22).Interior.Color = RGB(192, 192, 192)
            Cells(I, 2).Resize(1, 22).Formula = "=SUM(R[-" & ii & "]C:R[-1]C)"
        End If
    Next I
End Sub

عله يفي بالغرض

[saad abed]

اخى ابوالبراء ياسر خليل

لعلى لم اشرح المطلوب جيدا

استخدم كودك المعدل واذهب الى معادلةsum

اريد مداها يبداء من بداية العميل الموجود في العمود b

مثلا من c6:c10

ثم الصف الاخر

من c12فقط

هل ممكن ii في معادلة sum متغير

زى المجاميع الفرعية

اشكرك على ردك

[ياسر خليل أبو البراء]

أخي الكريم الغالي سعد عابد

أعتذر عن التأخر في الرد على موضوعك

إليك الكود التالي وإن شاء الله يفي بالغرض

Sub PutSUMFormulas()
    Dim I As Long, II As Long

    II = 6
    For I = 6 To 48
        If IsEmpty(Cells(I, 2)) Then
            With Cells(I, 3).Resize(, 21)
                .Interior.Color = RGB(192, 192, 192)
                .Formula = "=SUM(R[-" & I - II & "]C:R[-1]C)"
            End With
            II = I + 1
        End If
    Next I
End Sub

ولا تنسى أن تحدد أفضل إجابة ومش بس كدا أن تضغط على أعجبني هذا (إلا إذا لم يعجبك فلا تضغط عليها )

تقبل الله منا ومنكم وكل عام وأنتم بخير

Put SUM Formulas By Code.rar

[saad abed]

اخى ابوالبراء ياسر خليل

كل عام وانت بخير

هذا هو المطلوب

اشكركككككككككككككككككككككككككككككككك

جزاك الله خيرا

اكرمكم الله اعزكم الله