Code tính tổng cột IN & Cột OUT

[lhthai]

Chào Các Anh
Hiện tại dùng công thức cộng từ cột IN và Cột OUT nay nhờ các viết thành code
Nội dung file của em như sau
Dùng công thức tại cột E5 = H5+J5+L5…
Dùng công thức tại cột F5 = I5+K5+M5...
Dùng công thức tại cột G5 = D5+E5-F5
Các anh xem file dinh kèm

 

[Ba Tê]

Chào Các Anh
Hiện tại dùng công thức cộng từ cột IN và Cột OUT nay nhờ các viết thành code
Nội dung file của em như sau
Dùng công thức tại cột E5 = H5+J5+L5…
Dùng công thức tại cột F5 = I5+K5+M5...
Dùng công thức tại cột G5 = D5+E5-F5
Các anh xem file dinh kèm

Hàm Excel nhẹ nhàng:

E5=SUMIF($H$4:$BQ$4;"IN";$H5:$BQ5)
F5=SUMIF($H$4:$BQ$4;"OUT";$H5:$BQ5)

Muốn Code thì:

Public Sub GPE()
Dim sArr(), dArr(), I As Long, J As Long
sArr = Range([C5], [C5].End(xlDown)).Offset(, 5).Resize(, 62).Value
ReDim dArr(1 To UBound(sArr, 1), 1 To 3)
For I = 1 To UBound(sArr, 1)
    For J = 1 To 61 Step 2
        dArr(I, 1) = dArr(I, 1) + sArr(I, J)
        dArr(I, 2) = dArr(I, 2) + sArr(I, J + 1)
    Next J
    dArr(I, 3) = "=RC[-3]+RC[-2]-RC[-1]"
Next I
[E5:G5].Resize(I - 1) = dArr
End Sub