[sendbad100]

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


تفضل 

كود :

Private Sub Command1_Click()

With MSFlexGrid1

For i = 1 To .Rows - 1

.TextMatrix(i, 14) = Val(.TextMatrix(i, 2)) + Val(.TextMatrix(i, 3)) + Val(.TextMatrix(i, 4)) + Val(.TextMatrix(i, 5)) + Val(.TextMatrix(i, 6)) + Val(.TextMatrix(i, 7)) + Val(.TextMatrix(i, 8)) + Val(.TextMatrix(i, 9)) + Val(.TextMatrix(i, 10)) + Val(.TextMatrix(i, 11)) + Val(.TextMatrix(i, 12)) + Val(.TextMatrix(i, 13))
Next


End With

End Sub