تحديث خزينة الصندوق

[mahmoud nasr alhasany]

السلام عليكم ورحمة الله وبركاتة

اريد تحديث خزينة الصندوق يوجد مشكله فى الكود

Sub RoundedRectangle1_Click()

 Dim LastRow As Long
    Dim data As Variant
    Dim i As Long

    With Worksheets("خزينة")
        LastRow = .Cells(.Rows.Count, "I").End(xlUp).Row
        data = .Range("I2:K" & LastRow).Value

        For i = 2 To UBound(data)
            If IsNumeric(data(i, 1)) And IsNumeric(data(i, 2)) Then
                data(i, 3) = data(i, 1) - data(i, 2) + data(i - 1, 3)
            Else
                ' استبدال القيم غير الرقمية بصفر (يمكنك تغيير هذه القيمة)
                data(i, 3) = 0
                MsgBox "وجدت قيمة غير رقمية في الصف " & i & ". تم استبدالها بصفر."
            End If
        Next i

        .Range("K2:K" & LastRow).Value = data
    End With
    
End Sub

 

 

اريد كود مثل الخزينة يقوم بعمل طرح من الخلية i2....xlsm

[mahmoud nasr alhasany]

لقد وجدت المشكلة 

هذا هو الحل

Sub Account_fund_balances_Array()
 Dim LastRow As Long
    Dim data As Variant
    Dim i As Long
    With Worksheets("Sheet4")
        LastRow = .Cells(.Rows.Count, "I").End(xlUp).Row
        data = .Range("I2:j" & LastRow).value
        For i = 2 To UBound(data)
            If IsNumeric(data(i, 1)) And IsNumeric(data(i, 2)) Then
                data(i, 1) = data(i, 1) - data(i, 2) + data(i - 1, 1)
            Else
                ' استبدال القيم غير الرقمية بصفر (يمكنك تغيير هذه القيمة)
                data(i, 3) = 0
                MsgBox "وجدت قيمة غير رقمية في الصف " & i & ". تم استبدالها بصفر."
            End If
        Next i
        .Range("K2:K" & LastRow).value = data
    End With
End Sub

 

تم تعديل يناير 3 بواسطه mahmoud nasr alhasany