baştaki ve sondaki sayıları toplayan program

Admin Mesaj Sayısı : 245 Kayıt tarihi : 20/05/07

Sub hediye()
i = 1
J = 1
While Cells(i, 1) <> ""
satır = satır + 1
i = i + 1
Wend
While Cells(1, J) <> ""
sutun = sutun + 1
J = J + 1
Wend

If satır > sutun Then sutun = sutun + (satır - sutun)
If sutun > satır Then satır = satır + (sutun - satır)
For i = 1 To satır
For J = 1 To sutun
toplam = toplam + Cells(J, i)
Next
If toplam <> 0 Then Cells(satır + 1, i) = toplam
toplam = 0
Next
End Sub.

» Program name : Borland Delphi 7.0