!!!Mọi người giúp mình viết đoạn code xử lý số liệu với (1 người xem)

[honhutlinh]

Chào mọi người,
Mình có bộ dữ liệu về chất lượng ô nhiễm không khí với chỉ tiêu SO2 và nhiều chỉ tiêu khác.
Mỗi chỉ tiêu mình sẽ có số liệu từ năm 2003-2007, với số dữ liệu là 24 thông số đại diện cho 24 giờ trên 1 ngày X 365 ngày X 5 năm.
Số lượng dữ liệu khổng lồ theo trung bình từng giờ như vậy nên mình muốn sử dụng VBA để có thể tính được trung bình ngày, nghĩa là tính trung bình giá trị của 24 giờ. Tuy nhiên nếu mình tính thủ công thì mất rất nhiều thời gian và dường như khó có thể thực hiện được với rất nhiều chỉ tiêu khác nữa.
Mình mong mọi người tư vấn hoặc giúp mình viết đoạn code để mình có thể chạy tự động ra kết quả trung bình ngày, với điều kiện là số dữ liệu có phải trên 50% (nghĩa là có dữ liệu của >=12 giờ trong ngày) thì mới tính trung bình ngày, còn ít hơn 12 giờ trong ngày thì mình bỏ qua không tính trung bình, xem như ngày đó không có dữ liệu ạ.
Mình gửi kèm dữ liệu của mình để mọi người xem giúp.

Rất mong các chuyên gia có thể giúp sức với mình, mình xem VBA cả tuần này mà vẫn không thể nào làm nổi...
Cảm ơn mọi người nhiều lắm
Mọi người có thể liên lạc với mình qua fb: https://www.facebook.com/linh.honhut
Mail: hnlinh@hcmus.edu.vn

 

[langtuchungtinh360]

Chào mọi người,
Mình có bộ dữ liệu về chất lượng ô nhiễm không khí với chỉ tiêu SO2 và nhiều chỉ tiêu khác.
Mỗi chỉ tiêu mình sẽ có số liệu từ năm 2003-2007, với số dữ liệu là 24 thông số đại diện cho 24 giờ trên 1 ngày X 365 ngày X 5 năm.
Số lượng dữ liệu khổng lồ theo trung bình từng giờ như vậy nên mình muốn sử dụng VBA để có thể tính được trung bình ngày, nghĩa là tính trung bình giá trị của 24 giờ. Tuy nhiên nếu mình tính thủ công thì mất rất nhiều thời gian và dường như khó có thể thực hiện được với rất nhiều chỉ tiêu khác nữa.
Mình mong mọi người tư vấn hoặc giúp mình viết đoạn code để mình có thể chạy tự động ra kết quả trung bình ngày, với điều kiện là số dữ liệu có phải trên 50% (nghĩa là có dữ liệu của >=12 giờ trong ngày) thì mới tính trung bình ngày, còn ít hơn 12 giờ trong ngày thì mình bỏ qua không tính trung bình, xem như ngày đó không có dữ liệu ạ.
Mình gửi kèm dữ liệu của mình để mọi người xem giúp.

Rất mong các chuyên gia có thể giúp sức với mình, mình xem VBA cả tuần này mà vẫn không thể nào làm nổi...
Cảm ơn mọi người nhiều lắm
Mọi người có thể liên lạc với mình qua fb: https://www.facebook.com/linh.honhut
Mail: hnlinh@hcmus.edu.vn

bạn tham khảo code này đúng ý không nha

Option Explicit
Sub trungbinh()
Dim i, lr As Long
Dim j As Byte
Dim Count
lr = Cells.Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 3 To lr
j = Application.WorksheetFunction.Count(Range("C" & i & ":C" & i + 23))
If j >= 12 Then Range("D" & i + 23) = "=AVERAGE(R[-23]C[-1]:RC[-1])"
i = i + 23
Next i
End Sub

 

[honhutlinh]

Mình chạy được rồi, cảm ơn bạn nhiều lắm