snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
For k As Integer = 0 To EDPDataGridView.RowCount - 1
For j = 0 To ALLQTYDataGridView.Rows.Count - 1
If Convert.ToString(EDPDataGridView(2, k).Value) = ALLQTYDataGridView(1, j).Value Then
Dim a As Integer
a = EDPDataGridView(5, k).Value
ALLQTYDataGridView.Rows(j).Cells(5).Value = a + ALLQTYDataGridView.Rows(j).Cells(5).Value
EDPDataGridView(10, k).Value = "D"
End If
Next
Next
You do not have the required permissions to view the files attached to this post.