Nhờ viết giúp code tính tổng có điều kiện (1 người xem)

[le thi thuy 3013]

Help!!! Nhờ mọi người giúp mình tính tổng thu nhập của 52 tuần, điều kiện nếu số tuần( cột E) lớn hơn hoặc bằng start week và nhỏ hơn bằng end week thì tổng Total weakly saving=weekly earning-weekly lost.
Thank.

 

[TzoongZoong]

Help!!! Nhờ mọi người giúp mình tính tổng thu nhập của 52 tuần, điều kiện nếu số tuần( cột E) lớn hơn hoặc bằng start week và nhỏ hơn bằng end week thì tổng Total weakly saving=weekly earning-weekly lost.
Thank.

Bạn thử code này xem được không. Chỉ là tham khảo chứ mình không chắc chắn lắm. Check lại nhé.
Sub Tinh()
Dim i, j As Long
Dim k As Double
For i = 2 To 53
k = 0
For j = 2 To 17
If Sheet2.Cells(i, 5) >= Sheet2.Cells(j, 1) And Sheet2.Cells(i, 5) <= Sheet2.Cells(j, 2) Then
k = k + (Sheet2.Cells(j, 4) - Sheet2.Cells(j, 3))
End If
Next j
Sheet2.Cells(i, 6) = k
Next i
End Sub

 

[snow25]

Help!!! Nhờ mọi người giúp mình tính tổng thu nhập của 52 tuần, điều kiện nếu số tuần( cột E) lớn hơn hoặc bằng start week và nhỏ hơn bằng end week thì tổng Total weakly saving=weekly earning-weekly lost.
Thank.

Bạn cho cái kết quả ở các ô ??????? xem nào.

 

[le thi thuy 3013]

Bạn thử code này xem được không. Chỉ là tham khảo chứ mình không chắc chắn lắm. Check lại nhé.
Sub Tinh()
Dim i, j As Long
Dim k As Double
For i = 2 To 53
k = 0
For j = 2 To 17
If Sheet2.Cells(i, 5) >= Sheet2.Cells(j, 1) And Sheet2.Cells(i, 5) <= Sheet2.Cells(j, 2) Then
k = k + (Sheet2.Cells(j, 4) - Sheet2.Cells(j, 3))
End If
Next j
Sheet2.Cells(i, 6) = k
Next i
End Sub

Cảm ơn bạn nhiều nha