Code:
Dim cv As Integer
Dim cc As Integer
Dim CurrentValue As Double
Dim ObsoleteValue As Double
Dim Ans As Double
For cc = 0 To DataGridView1.Columns.Count
For cv = 1 To DataGridView1.Rows.Count
CurrentValue = DataGridView1.Rows.Item(cv).Cells(cc).Value
ObsoleteValue = DataGridView1.Rows.Item(cv - 1).Cells(cc).Value
Ans = ((CurrentValue / ObsoleteValue) - 1) * 100
TextBox1.Text += Ans.ToString & vbTab & cc & vbNewLine
Next
Next
Comment