satır ve sutun toplamlarını p(i,j) şeklinde tanımı

[c_235]

arkadaşlar merhaba... excelde satır ve sutunları toplayan bi tablo hazırlıyorum ama p(i,j) şeklinde olacak ama bi türlü yapamadım ..konuya hakim olanlar yol gösterirse çok sevinirim herkese kolay gelsin...Not:satır sutun sayısı sabt değil yani tablodaki verdiğim hüclere ekleme olabilcek ..Ben girilen tablo üzerinden satır ve sutun kod olarak yazdım toplamını yaptım.

 

[hamitcan]

Nereyi, nasıl, toplayacak sınız anlamadım ?

 

[c_235]

arkadaşım resim üzerinde detaylı anlattım , bi yol gösterir sen seviinirim..

 

[hamitcan]

Dinamik hale sokmak gerçekten zormuş.

Sub KullanilmisBolgeyiTopla()
    On Error Resume Next
    Cells.Font.ColorIndex = xlAutomatic
    Cells.SpecialCells(xlCellTypeFormulas, 23).Delete
    
    cb = ActiveSheet.UsedRange.Column
    cs = ActiveSheet.UsedRange.Columns.Count
    rb = ActiveSheet.UsedRange.Row
    rs = ActiveSheet.UsedRange.Rows.Count
    
    For i = rb To rs + rb - 1
        Cells(i, cs + cb) = "=SUM(RC[-" & cs & "]:RC[-1])"
        Cells(i, cs + cb).Font.Color = vbRed
    Next
    For i = cb To cs + cb - 1
        Cells(rs + rb, i) = "=SUM(R[-" & + rs & "]C:R[-1]C)"
        Cells(rs + rb, i).Font.Color = vbRed
    Next
End Sub

 

[c_235]

teşkkler kardeş..çok sağolasın ..
ben de söle bi yol geliştirdim..
dinmaik hale sokmadan...

Sub Makro2()
Dim Y(100, 100), AYORT(100), YILORT(100), STD(100) As Integer
Dim i, j As Integer


For i = 1 To 10
Top = 0
For j = 1 To 8
Top = Top + Cells(i + 3, j + 1)
Next j
YILORT(i) = Top
Cells(i + 3, j + 1) = YILORT(i)
Next i

For j = 1 To 9
Top = 0
For i = 1 To 10
Top = Top + Cells(i + 3, j + 1)
Next i
AYORT(j) = Top / 10
Cells(i + 3, j + 1) = AYORT(j)
Next j