snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Dim i As Integer = 0
Dim tmpNetTotal As Double = 0
For i = 0 To ONDataGridView1.Rows.Count - 1
tmpNetTotal += CDbl(ONDataGridView1.Rows(i).Cells(3).Value)
Next
TextBox1.Text = tmpNetTotal
For k As Integer = 0 To ONDataGridView1.RowCount - 1
If Convert.ToSingle(ONDataGridView1(3, k).Value) > 0 Then
ONDataGridView1(5, k).Value = (ONDataGridView1(5, k).Value) - TextBox1.Text
ElseIf Convert.ToSingle(ONDataGridView1(3, k).Value) < 0 Then
For j as Integer = 1 to 3
For k As Integer = 0 To ONDataGridView1.RowCount - 1
If Convert.ToSingle(ONDataGridView1.Rows(k).Corlumns(5).Value) > 0 Then
ONDataGridView1.Rows(k).Corlumns(5).Value = (ONDataGridView1.Rows(k).Corlumns(5).Value.Value) - TextBox1.Text
ElseIf Convert.ToSingle(ONDataGridView1.Rows(k).Corlumns(5).Value) < 0 Then
ONDataGridView1.Rows(k).Corlumns(5).Value = (ONDataGridView1.Rows(k).Corlumns(5).Value) - TextBox1.Text
End If
Next
Next