Doi Adv sang vòng lặp lấy dữ liệu. (1 người xem)

[Mr Okebab]

Đau đầu quá không hiểu rùi.
Giải thích từng dòng trong code mình hỏi nhen.

TC.

1. ........For Each Ma In Sheet20.Range("J6:J" & Sheet20.Range("J65000").End(xlUp).Row)
2. ............If Ma.Value = Sheet15.Range("C6").Value Then
3. ................i = i + 1
4. ................Sheet15.Range("A" & i).Value = Ma.Offset(0, -9).Value
5. ................Sheet15.Range("B" & i).Value = Ma.Offset(0, -8).Value
6. ................Sheet15.Range("C" & i).Value = Ma.Offset(0, -2).Value
7. ................Sheet15.Range("D" & i).Value = Ma.Offset(0, -1).Value
8. ................
9. ................If Left$(Ma.Offset(0, -9).Value, 2) = "PN" Then
10. ....................Sheet15.Range("E" & i).Value = Ma.Offset(0, 4).Value
11. ....................Sheet15.Range("F" & i).Value = Ma.Offset(0, 5).Value
12. ....................m = 1
13. ................ElseIf Left$(Ma.Offset(0, -9).Value, 2) = "PX" Then
14. ....................Sheet15.Range("G" & i).Value = Ma.Offset(0, 4).Value
15. ....................Sheet15.Range("H" & i).Value = Ma.Offset(0, 5).Value
16. ....................m = -1
17. ................End If
18. ............End If
19. ........Next

1. Lần lượt duyệt qua từng ô trong sheet20, từ ô J6 đến ô J cuối cùng của Dữ liệu
2. Nếu ô đó = Sheet15.Range("C6").Value thì
3. i= i + 1 : Nhằm tăng hàng thêm 1 đơn vị
4. Giá trị cột A sẽ = giá trị của ô J đó lệch qua trái 9 cột (Phiếu)
5. Giá trị cột B sẽ = giá trị của ô J đó lệch qua trái 8 cột (Ngày)
6. Giá trị cột C sẽ = giá trị của ô J đó lệch qua trái 2 cột (Đơn Vị)
7. Giá trị cột D sẽ = giá trị của ô J đó lệch qua trái 1 cột (Nội Dung)
8. ............
9. Nếu hai ký tự đầu của Giá trị lệch qua trái 9 cột so với cột J = "PN" thì . . .
10. ....................
11. .....................

Hiểu chưa nào ???

From Thien:
Ái chà gặp những người như mình thật cực bác Hiếu quá nhỉ.
Ngàn lời cảm ơn trước nhen. Để mình xem kỹ lại 1 chút.

Thân chào.


PS: Dạo này chứng khoán của Bác xanh hay đỏ vậy ta?.