Nhờ mọi người Xác định lỗi code VBA. (1 người xem)

dinhquang042000 · 18/10/16

Dear all,

Em có viết 1 file báo cáo công ty bằng VBA khi chạy trên máy ở nhà thì code chạy ổn định, Nhưng khi sang máy khác bị lỗi code ở modul 6, RUN TIME ERRO 7 OUT OF MEMORY. Mong mọi người xem xét chỉ giúp em lỗi của file này (Do file này nặng em tải nên drive, các anh chị tải về xem giúp em)
Rát mong nhận được sự giúp đỡ của mọi người. Em xin chân thành cảm ơn.

https://drive.google.com/file/d/0B7_P2xWKkzz7dWhoU3JHck9JZzA/view

HieuCD · 18/10/16

dinhquang042000 đã viết:
Dear all,

Em có viết 1 file báo cáo công ty bằng VBA khi chạy trên máy ở nhà thì code chạy ổn định, Nhưng khi sang máy khác bị lỗi code ở modul 6, RUN TIME ERRO 7 OUT OF MEMORY. Mong mọi người xem xét chỉ giúp em lỗi của file này (Do file này nặng em tải nên drive, các anh chị tải về xem giúp em)
Rát mong nhận được sự giúp đỡ của mọi người. Em xin chân thành cảm ơn.
https://drive.google.com/file/d/0B7_P2xWKkzz7dWhoU3JHck9JZzA/view

bạn sửa code lại xem sao

Mã:

...
Dim...
Dim LastR As Long
With Sheets("NHAR - DORU")
    LastR = .Range("A65500").End(xlUp).Row
    arrNH_Do = .Range("A1:H" & LastR)
End With
If LastR > 1 Then
    For i = 2 To UBound(arrNH_Do)
        If arrNH_Do(i, 2) = 2200 Or arrNH_Do(i, 2) = 2250 Or arrNH_Do(i, 2) = 2260 Or arrNH_Do(i, 2) = 2270 Or arrNH_Do(i, 2) = 2500 Or arrNH_Do(i, 2) = 2550 Or arrNH_Do(i, 2) = 2560 Or arrNH_Do(i, 2) = 2570 Then
            If arrNH_Do(i, 6) = "KHA" Or arrNH_Do(i, 6) = "TNO" Or arrNH_Do(i, 6) = "VIC" Or arrNH_Do(i, 6) = "TTN" Or arrNH_Do(i, 6) = "CLH" Or arrNH_Do(i, 6) = "CBD" Or arrNH_Do(i, 6) = "CDN" Or arrNH_Do(i, 6) = "IST" Or arrNH_Do(i, 6) = "IBN" Or arrNH_Do(i, 6) = "MTH" Or arrNH_Do(i, 6) = "TMT" Or arrNH_Do(i, 6) = "TMY" Or arrNH_Do(i, 6) = "TSD" Or arrNH_Do(i, 6) = "TNT" Then K12 = K12 + 1
        End If
        If arrNH_Do(i, 2) = 4200 Or arrNH_Do(i, 2) = 4250 Or arrNH_Do(i, 2) = 4260 Or arrNH_Do(i, 2) = 4270 Or arrNH_Do(i, 2) = 4500 Or arrNH_Do(i, 2) = 4550 Or arrNH_Do(i, 2) = 4560 Or arrNH_Do(i, 2) = 4570 Or arrNH_Do(i, 2) = "L500" Then
            If arrNH_Do(i, 6) = "KHA" Or arrNH_Do(i, 6) = "TNO" Or arrNH_Do(i, 6) = "VIC" Or arrNH_Do(i, 6) = "TTN" Or arrNH_Do(i, 6) = "CLH" Or arrNH_Do(i, 6) = "CBD" Or arrNH_Do(i, 6) = "CDN" Or arrNH_Do(i, 6) = "IST" Or arrNH_Do(i, 6) = "IBN" Or arrNH_Do(i, 6) = "MTH" Or arrNH_Do(i, 6) = "TMT" Or arrNH_Do(i, 6) = "TMY" Or arrNH_Do(i, 6) = "TSD" Or arrNH_Do(i, 6) = "TNT" Then K14 = K14 + 1
        End If
        If arrNH_Do(i, 2) = 2230 Or arrNH_Do(i, 2) = 2530 Then
            If arrNH_Do(i, 6) = "KHA" Or arrNH_Do(i, 6) = "TNO" Or arrNH_Do(i, 6) = "VIC" Or arrNH_Do(i, 6) = "TTN" Or arrNH_Do(i, 6) = "CLH" Or arrNH_Do(i, 6) = "CBD" Or arrNH_Do(i, 6) = "CDN" Or arrNH_Do(i, 6) = "IST" Or arrNH_Do(i, 6) = "IBN" Or arrNH_Do(i, 6) = "MTH" Or arrNH_Do(i, 6) = "TMT" Or arrNH_Do(i, 6) = "TMY" Or arrNH_Do(i, 6) = "TSD" Or arrNH_Do(i, 6) = "TNT" Then K13 = K13 + 1
        End If
        If arrNH_Do(i, 2) = 4230 Or arrNH_Do(i, 2) = 4530 Then
            If arrNH_Do(i, 6) = "KHA" Or arrNH_Do(i, 6) = "TNO" Or arrNH_Do(i, 6) = "VIC" Or arrNH_Do(i, 6) = "TTN" Or arrNH_Do(i, 6) = "CLH" Or arrNH_Do(i, 6) = "CBD" Or arrNH_Do(i, 6) = "CDN" Or arrNH_Do(i, 6) = "IST" Or arrNH_Do(i, 6) = "IBN" Or arrNH_Do(i, 6) = "MTH" Or arrNH_Do(i, 6) = "TMT" Or arrNH_Do(i, 6) = "TMY" Or arrNH_Do(i, 6) = "TSD" Or arrNH_Do(i, 6) = "TNT" Then K15 = K15 + 1
        End If
    Next i
End If
With Sheets("NHAR - CAPR")
    LastR = .Range("A65500").End(xlUp).Row    
    arrNH_CA = .Range("A1:H" & LastR)
End With
If LastR > 1 Then
    For i = 2 To UBound(arrNH_CA)
        If arrNH_CA(i, 2) = 2200 Or arrNH_CA(i, 2) = 2250 Or arrNH_CA(i, 2) = 2260 Or arrNH_CA(i, 2) = 2270 Or arrNH_CA(i, 2) = 2500 Or arrNH_CA(i, 2) = 2550 Or arrNH_CA(i, 2) = 2560 Or arrNH_CA(i, 2) = 2570 Then
            If arrNH_CA(i, 6) = "KHA" Or arrNH_CA(i, 6) = "TNO" Or arrNH_CA(i, 6) = "VIC" Or arrNH_CA(i, 6) = "TTN" Or arrNH_CA(i, 6) = "CLH" Or arrNH_CA(i, 6) = "CBD" Or arrNH_CA(i, 6) = "CDN" Or arrNH_CA(i, 6) = "IST" Or arrNH_CA(i, 6) = "IBN" Or arrNH_CA(i, 6) = "MTH" Or arrNH_CA(i, 6) = "TMT" Or arrNH_CA(i, 6) = "TMY" Or arrNH_CA(i, 6) = "TSD" Or arrNH_CA(i, 6) = "TNT" Then K32 = K32 + 1
        End If
        If arrNH_CA(i, 2) = 4200 Or arrNH_CA(i, 2) = 4250 Or arrNH_CA(i, 2) = 4260 Or arrNH_CA(i, 2) = 4270 Or arrNH_CA(i, 2) = 4500 Or arrNH_CA(i, 2) = 4550 Or arrNH_CA(i, 2) = 4560 Or arrNH_CA(i, 2) = 4570 Or arrNH_CA(i, 2) = "L500" Then
            If arrNH_CA(i, 6) = "KHA" Or arrNH_CA(i, 6) = "TNO" Or arrNH_CA(i, 6) = "VIC" Or arrNH_CA(i, 6) = "TTN" Or arrNH_CA(i, 6) = "CLH" Or arrNH_CA(i, 6) = "CBD" Or arrNH_CA(i, 6) = "CDN" Or arrNH_CA(i, 6) = "IST" Or arrNH_CA(i, 6) = "IBN" Or arrNH_CA(i, 6) = "MTH" Or arrNH_CA(i, 6) = "TMT" Or arrNH_CA(i, 6) = "TMY" Or arrNH_CA(i, 6) = "TSD" Or arrNH_CA(i, 6) = "TNT" Then K34 = K34 + 1
        End If
        If arrNH_CA(i, 2) = 2230 Or arrNH_CA(i, 2) = 2530 Then
            If arrNH_CA(i, 6) = "KHA" Or arrNH_CA(i, 6) = "TNO" Or arrNH_CA(i, 6) = "VIC" Or arrNH_CA(i, 6) = "TTN" Or arrNH_CA(i, 6) = "CLH" Or arrNH_CA(i, 6) = "CBD" Or arrNH_CA(i, 6) = "CDN" Or arrNH_CA(i, 6) = "IST" Or arrNH_CA(i, 6) = "IBN" Or arrNH_CA(i, 6) = "MTH" Or arrNH_CA(i, 6) = "TMT" Or arrNH_CA(i, 6) = "TMY" Or arrNH_CA(i, 6) = "TSD" Or arrNH_CA(i, 6) = "TNT" Then K33 = K33 + 1
        End If
        If arrNH_CA(i, 2) = 4230 Or arrNH_CA(i, 2) = 4530 Then
            If arrNH_CA(i, 6) = "KHA" Or arrNH_CA(i, 6) = "TNO" Or arrNH_CA(i, 6) = "VIC" Or arrNH_CA(i, 6) = "TTN" Or arrNH_CA(i, 6) = "CLH" Or arrNH_CA(i, 6) = "CBD" Or arrNH_CA(i, 6) = "CDN" Or arrNH_CA(i, 6) = "IST" Or arrNH_CA(i, 6) = "IBN" Or arrNH_CA(i, 6) = "MTH" Or arrNH_CA(i, 6) = "TMT" Or arrNH_CA(i, 6) = "TMY" Or arrNH_CA(i, 6) = "TSD" Or arrNH_CA(i, 6) = "TNT" Then K35 = K35 + 1
        End If
    Next i
End If
...

làm tương tự cho các sheet khác
bạn phải viết theo từng cặp không tách ra

sealand · 18/10/16

Lỗi vì các sheet chưa có dữ liệu nên code của bạn nó gán biến mỗi sheet hơn 1.000.000 dòng trống thành ra 1 loạt biến quá lớn tràn bộ nhớ. Bạn phải chặn lỗi này.

HieuCD · 18/10/16

bạn nên sửa lại code theo kiểu sau để giảm nhẹ bộ nhớ

Mã:

...
Dim LastR As Long, Arr


LastR = Sheets("NHAR - DORU").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NHAR - DORU").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K12 = K12 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K14 = K14 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K13 = K13 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K15 = K15 + 1
        End If
    Next i
End If


LastR = Sheets("NHAR - CAPR").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NHAR - CAPR").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K32 = K32 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K34 = K34 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K33 = K33 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K35 = K35 + 1
        End If
    Next i
End If
...

bạn xóa toàn bộ các khai báo Arr... chỉ cần khai báo 1 Arr thôi

dinhquang042000 · 19/10/16

HieuCD đã viết:
bạn nên sửa lại code theo kiểu sau để giảm nhẹ bộ nhớ

Mã:

... Dim LastR As Long, Arr Em viết lại code này (file đính kèm) theo hướng dẫn của anh, Nhưng nó báo code sai, không cho chạy, Mong anh xem xét chỉ dẫn thêm cho em ạ.

HieuCD · 19/10/16

Bạn thiếu 1 lệnh End If và sai 2 tên sheet
không biết các sheet trung gian có cần thiết không, nếu không cần thì tổng hợp trực tiếp từ dữ liệu gốc cho nhẹ file

Mã:

Option Explicit
Sub baocao()
Dim Arr, i As Long, LastR As Long
Dim C12 As Long, C14 As Long, C13 As Long, C15 As Long, M12 As Long, M14 As Long, M13 As Long, M15 As Long
Dim I12 As Long, I14 As Long, I13 As Long, I15 As Long, K12 As Long, K14 As Long, K13 As Long, K15 As Long
Dim C22 As Long, C24 As Long, C23 As Long, C25 As Long, M22 As Long, M24 As Long, M23 As Long, M25 As Long
Dim I22 As Long, I24 As Long, I23 As Long, I25 As Long, K22 As Long, K24 As Long, K23 As Long, K25 As Long
Dim C32 As Long, C34 As Long, C33 As Long, C35 As Long, M32 As Long, M34 As Long, M33 As Long, M35 As Long
Dim I32 As Long, I34 As Long, I33 As Long, I35 As Long, K32 As Long, K34 As Long, K33 As Long, K35 As Long
Dim C42 As Long, C44 As Long, C43 As Long, C45 As Long, M42 As Long, M44 As Long, M43 As Long, M45 As Long
Dim I42 As Long, I44 As Long, I43 As Long, I45 As Long, K42 As Long, K44 As Long, K43 As Long, K45 As Long
Dim C52 As Long, C54 As Long, C53 As Long, C55 As Long, M52 As Long, M54 As Long, M53 As Long, M55 As Long
Dim I52 As Long, I54 As Long, I53 As Long, I55 As Long, K52 As Long, K54 As Long, K53 As Long, K55 As Long
Dim C62 As Long, C64 As Long, C63 As Long, C65 As Long, M62 As Long, M64 As Long, M63 As Long, M65 As Long
Dim I62 As Long, I64 As Long, I63 As Long, I65 As Long, K62 As Long, K64 As Long, K63 As Long, K65 As Long
Dim C72 As Long, C74 As Long, C73 As Long, C75 As Long, M72 As Long, M74 As Long, M73 As Long, M75 As Long
Dim I72 As Long, I74 As Long, I73 As Long, I75 As Long, K72 As Long, K74 As Long, K73 As Long, K75 As Long


LastR = Sheets("HANG - DORU").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("HANG - DORU").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "CTL" Then C12 = C12 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M12 = M12 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I12 = I12 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "CTL" Then C14 = C14 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M14 = M14 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I14 = I14 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "CTL" Then C13 = C13 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M13 = M13 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I13 = I13 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "CTL" Then C15 = C15 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M15 = M15 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I15 = I15 + 1
        End If
    Next i
End If


LastR = Sheets("NHAR - DORU").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NHAR - DORU").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K12 = K12 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K14 = K14 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K13 = K13 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K15 = K15 + 1
        End If
    Next i
End If


LastR = Sheets("NXLQ - DORU").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NXLQ - DORU").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "CTL" Then C22 = C22 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M22 = M22 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I22 = I22 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "CTL" Then C24 = C24 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M24 = M24 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I24 = I24 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "CTL" Then C23 = C23 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M23 = M23 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I23 = I23 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "CTL" Then C25 = C25 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M25 = M25 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I25 = I25 + 1
        End If
    Next i
End If


LastR = Sheets("HXLA - DORU").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("HXLA - DORU").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then K22 = K22 + 1
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then K24 = K24 + 1
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then K23 = K23 + 1
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then K25 = K25 + 1
     Next i
End If


LastR = Sheets("NHAR - CAPR").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NHAR - CAPR").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K32 = K32 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K34 = K34 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K33 = K33 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
             If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K35 = K35 + 1
        End If
    Next i
End If
LastR = Sheets("HANG - CAPR").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("HANG - CAPR").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "CTL" Then C32 = C32 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M32 = M32 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I32 = I32 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "CTL" Then C34 = C34 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M34 = M34 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I34 = I34 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "CTL" Then C33 = C33 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M33 = M33 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I33 = I33 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "CTL" Then C35 = C35 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M35 = M35 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I35 = I35 + 1
        End If
    Next i
End If


LastR = Sheets("HANG - CXLA").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("HANG - CXLA").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "CTL" Then C52 = C52 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M52 = M52 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I52 = I52 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "CTL" Then C34 = C54 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M54 = M54 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I54 = I54 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "CTL" Then C53 = C53 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M53 = M53 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I53 = I53 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "CTL" Then C55 = C55 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M55 = M55 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I55 = I55 + 1
        End If
    Next i
End If

copy thêm code bài sau nối lại

HieuCD · 19/10/16

Mã:

LastR = Sheets("NXLQ - CAPR").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NXLQ - CAPR").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "CTL" Then C42 = C42 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M42 = M42 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I42 = I42 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "CTL" Then C44 = C44 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M44 = M44 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I44 = I44 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "CTL" Then C43 = C43 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M43 = M43 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I43 = I43 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "CTL" Then C45 = C45 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M45 = M45 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I45 = I45 + 1
        End If
    Next i
End If


LastR = Sheets("HXLA - CAPR").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("HXLA - CAPR").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K42 = K42 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K44 = K44 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K43 = K43 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K45 = K45 + 1
        End If
    Next i
End If


LastR = Sheets("NHAR - CXLA").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NHAR - CXLA").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K52 = K52 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K54 = K54 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K53 = K53 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K55 = K55 + 1
        End If
    Next i
End If


LastR = Sheets("NXLQ - CXLA").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NXLQ - CXLA").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "CTL" Then C72 = C72 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M72 = M72 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I72 = I72 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "CTL" Then C74 = C74 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M74 = M74 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I74 = I74 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "CTL" Then C73 = C73 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M73 = M73 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I73 = I73 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "CTL" Then C75 = C75 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M75 = M75 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I75 = I75 + 1
        End If
    Next i
End If


LastR = Sheets("HXLA - CXLA").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("HXLA - CXLA").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K72 = K72 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K74 = K74 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K73 = K73 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K75 = K75 + 1
        End If
     Next i
End If


LastR = Sheets("NXLQ - XXLQ").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NXLQ - XXLQ").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 7) = "CTL" Then C62 = C62 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 7) = "CTL" Then C64 = C64 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 7) = "CTL" Then C63 = C63 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 7) = "CTL" Then C65 = C65 + 1
        End If
    Next i
End If


With Sheets("BAO CAO F")
    .Range("D10") = C12:  .Range("E10") = C14: .Range("F10") = C13: .Range("G10") = C15
    .Range("D11") = M12:  .Range("E11") = M14: .Range("F11") = M13: .Range("G11") = M15
    .Range("D12") = I12:  .Range("E12") = I14: .Range("F12") = I13: .Range("G12") = I15
    .Range("D13") = K12:  .Range("E13") = K14: .Range("F13") = K13: .Range("G13") = K15
    .Range("D14") = C22:  .Range("E14") = C24: .Range("F14") = C23: .Range("G14") = C25
    .Range("D15") = M22:  .Range("E15") = M24: .Range("F15") = M23: .Range("G15") = M25
    .Range("D16") = I22:  .Range("E16") = I24: .Range("F16") = I23: .Range("G16") = I25
    .Range("D17") = K22:  .Range("E17") = K24: .Range("F17") = K23: .Range("G17") = K25
    .Range("D20") = C32:  .Range("E20") = C34: .Range("F20") = C33: .Range("G20") = C35
    .Range("D21") = M32:  .Range("E21") = M34: .Range("F21") = M33: .Range("G21") = M35
    .Range("D22") = I32:  .Range("E22") = I34: .Range("F22") = I33: .Range("G22") = I35
    .Range("D23") = K32:  .Range("E23") = K34: .Range("F23") = K33: .Range("G23") = K35
    .Range("D24") = C42:  .Range("E24") = C44: .Range("F24") = C43: .Range("G24") = C45
    .Range("D25") = M42:  .Range("E25") = M44: .Range("F25") = M43: .Range("G25") = M45
    .Range("D26") = I42:  .Range("E26") = I44: .Range("F26") = I43: .Range("G26") = I45
    .Range("D27") = K42:  .Range("E27") = K44: .Range("F27") = K43: .Range("G27") = K45
    .Range("D28") = C52:  .Range("E28") = C54: .Range("F28") = C53: .Range("G28") = C55
    .Range("D29") = M52:  .Range("E29") = M54: .Range("F29") = M53: .Range("G29") = M55
    .Range("D30") = I52:  .Range("E30") = I54: .Range("F30") = I53: .Range("G30") = I55
    .Range("D31") = K52:  .Range("E31") = K54: .Range("F31") = K53: .Range("G31") = K55
    .Range("D32") = C62:  .Range("E32") = C64: .Range("F32") = C63: .Range("G32") = C65
    .Range("D33") = C72:  .Range("E33") = C74: .Range("F33") = C73: .Range("G33") = C75
    .Range("D34") = M72:  .Range("E34") = M74: .Range("F34") = M73: .Range("G34") = M75
    .Range("D35") = I72:  .Range("E35") = I74: .Range("F35") = I73: .Range("G35") = I75
    .Range("D36") = K72:  .Range("E36") = K74: .Range("F36") = K73: .Range("G36") = K75
End With
End Sub

dinhquang042000 · 19/10/16

HieuCD đã viết:

Mã:

LastR = Sheets("NXLQ - CAPR").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NXLQ - CAPR").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "CTL" Then C42 = C42 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M42 = M42 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I42 = I42 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "CTL" Then C44 = C44 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M44 = M44 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I44 = I44 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "CTL" Then C43 = C43 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M43 = M43 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I43 = I43 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "CTL" Then C45 = C45 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M45 = M45 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I45 = I45 + 1
        End If
    Next i
End If


LastR = Sheets("HXLA - CAPR").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("HXLA - CAPR").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K42 = K42 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K44 = K44 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K43 = K43 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "KHA" Or Arr(i, 6) = "TNO" Or Arr(i, 6) = "VIC" Or Arr(i, 6) = "TTN" Or Arr(i, 6) = "CLH" Or Arr(i, 6) = "CBD" Or Arr(i, 6) = "CDN" Or Arr(i, 6) = "IST" Or Arr(i, 6) = "IBN" Or Arr(i, 6) = "MTH" Or Arr(i, 6) = "TMT" Or Arr(i, 6) = "TMY" Or Arr(i, 6) = "TSD" Or Arr(i, 6) = "TNT" Then K45 = K45 + 1
        End If
    Next i
End If


LastR = Sheets("NHAR - CXLA").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NHAR - CXLA").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K52 = K52 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K54 = K54 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K53 = K53 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K55 = K55 + 1
        End If
    Next i
End If


LastR = Sheets("NXLQ - CXLA").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NXLQ - CXLA").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 6) = "CTL" Then C72 = C72 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M72 = M72 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I72 = I72 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 6) = "CTL" Then C74 = C74 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M74 = M74 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I74 = I74 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 6) = "CTL" Then C73 = C73 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M73 = M73 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I73 = I73 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 6) = "CTL" Then C75 = C75 + 1
            If Arr(i, 6) = "TCI" Or Arr(i, 6) = "TCO" Or Arr(i, 6) = "CMT" Then M75 = M75 + 1
            If Arr(i, 6) = "TMM" Or Arr(i, 6) = "ITS" Or Arr(i, 6) = "STR" Or Arr(i, 6) = "BPL" Then I75 = I75 + 1
        End If
    Next i
End If


LastR = Sheets("HXLA - CXLA").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("HXLA - CXLA").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K72 = K72 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K74 = K74 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K73 = K73 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 7) = "KHA" Or Arr(i, 7) = "TNO" Or Arr(i, 7) = "VIC" Or Arr(i, 7) = "TTN" Or Arr(i, 7) = "CLH" Or Arr(i, 7) = "CBD" Or Arr(i, 7) = "CDN" Or Arr(i, 7) = "IST" Or Arr(i, 7) = "IBN" Or Arr(i, 7) = "MTH" Or Arr(i, 7) = "TMT" Or Arr(i, 7) = "TMY" Or Arr(i, 7) = "TSD" Or Arr(i, 7) = "TNT" Then K75 = K75 + 1
        End If
     Next i
End If


LastR = Sheets("NXLQ - XXLQ").Range("A65500").End(xlUp).Row
If LastR > 1 Then
    Arr = Sheets("NXLQ - XXLQ").Range("A1:H" & LastR)
    For i = 2 To UBound(Arr)
        If Arr(i, 2) = 2200 Or Arr(i, 2) = 2250 Or Arr(i, 2) = 2260 Or Arr(i, 2) = 2270 Or Arr(i, 2) = 2500 Or Arr(i, 2) = 2550 Or Arr(i, 2) = 2560 Or Arr(i, 2) = 2570 Then
            If Arr(i, 7) = "CTL" Then C62 = C62 + 1
        End If
        If Arr(i, 2) = 4200 Or Arr(i, 2) = 4250 Or Arr(i, 2) = 4260 Or Arr(i, 2) = 4270 Or Arr(i, 2) = 4500 Or Arr(i, 2) = 4550 Or Arr(i, 2) = 4560 Or Arr(i, 2) = 4570 Or Arr(i, 2) = "L500" Then
            If Arr(i, 7) = "CTL" Then C64 = C64 + 1
        End If
        If Arr(i, 2) = 2230 Or Arr(i, 2) = 2530 Then
            If Arr(i, 7) = "CTL" Then C63 = C63 + 1
        End If
        If Arr(i, 2) = 4230 Or Arr(i, 2) = 4530 Then
            If Arr(i, 7) = "CTL" Then C65 = C65 + 1
        End If
    Next i
End If


With Sheets("BAO CAO F")
    .Range("D10") = C12:  .Range("E10") = C14: .Range("F10") = C13: .Range("G10") = C15
    .Range("D11") = M12:  .Range("E11") = M14: .Range("F11") = M13: .Range("G11") = M15
    .Range("D12") = I12:  .Range("E12") = I14: .Range("F12") = I13: .Range("G12") = I15
    .Range("D13") = K12:  .Range("E13") = K14: .Range("F13") = K13: .Range("G13") = K15
    .Range("D14") = C22:  .Range("E14") = C24: .Range("F14") = C23: .Range("G14") = C25
    .Range("D15") = M22:  .Range("E15") = M24: .Range("F15") = M23: .Range("G15") = M25
    .Range("D16") = I22:  .Range("E16") = I24: .Range("F16") = I23: .Range("G16") = I25
    .Range("D17") = K22:  .Range("E17") = K24: .Range("F17") = K23: .Range("G17") = K25
    .Range("D20") = C32:  .Range("E20") = C34: .Range("F20") = C33: .Range("G20") = C35
    .Range("D21") = M32:  .Range("E21") = M34: .Range("F21") = M33: .Range("G21") = M35
    .Range("D22") = I32:  .Range("E22") = I34: .Range("F22") = I33: .Range("G22") = I35
    .Range("D23") = K32:  .Range("E23") = K34: .Range("F23") = K33: .Range("G23") = K35
    .Range("D24") = C42:  .Range("E24") = C44: .Range("F24") = C43: .Range("G24") = C45
    .Range("D25") = M42:  .Range("E25") = M44: .Range("F25") = M43: .Range("G25") = M45
    .Range("D26") = I42:  .Range("E26") = I44: .Range("F26") = I43: .Range("G26") = I45
    .Range("D27") = K42:  .Range("E27") = K44: .Range("F27") = K43: .Range("G27") = K45
    .Range("D28") = C52:  .Range("E28") = C54: .Range("F28") = C53: .Range("G28") = C55
    .Range("D29") = M52:  .Range("E29") = M54: .Range("F29") = M53: .Range("G29") = M55
    .Range("D30") = I52:  .Range("E30") = I54: .Range("F30") = I53: .Range("G30") = I55
    .Range("D31") = K52:  .Range("E31") = K54: .Range("F31") = K53: .Range("G31") = K55
    .Range("D32") = C62:  .Range("E32") = C64: .Range("F32") = C63: .Range("G32") = C65
    .Range("D33") = C72:  .Range("E33") = C74: .Range("F33") = C73: .Range("G33") = C75
    .Range("D34") = M72:  .Range("E34") = M74: .Range("F34") = M73: .Range("G34") = M75
    .Range("D35") = I72:  .Range("E35") = I74: .Range("F35") = I73: .Range("G35") = I75
    .Range("D36") = K72:  .Range("E36") = K74: .Range("F36") = K73: .Range("G36") = K75
End With
End Sub

Dạ vâng ạ, file chạy được rùi ạ, Cảm ơn sự giúp đỡ của anh rất nhiều ạ

Nhờ mọi người Xác định lỗi code VBA. (1 người xem)

Người dùng đang xem chủ đề này

dinhquang042000

Thành viên chính thức

HieuCD

Chuyên gia GPE

sealand

Thành viên gạo cội

HieuCD

Chuyên gia GPE

dinhquang042000

Thành viên chính thức

File đính kèm

HieuCD

Chuyên gia GPE

HieuCD

Chuyên gia GPE

dinhquang042000

Thành viên chính thức

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.