Dùng VBA tính trung bình (cứ cách 4 giá trị lại lấy 1 giá trị để tính trung bình)
- hands
- Excel Ứng Dụng
Em cảm ơn các bác nhiều nhiều!
Các cao thủ giúp em bài này với ạ.
Em có 1 chuỗi số liệu ví dụ từ ô A1 đến A10000. Em cần tính trung bình và tính độ lệch chuẩn của (A1, A5, A10, A15,….,A1990,A1995,A10000) thì lệnh trong VBA thế nào ạ?
Em có gửi ví dụ kiểu tính trung bình và độ lệch chuẩn này trong tệp excel đính kèm mà em tính thủ công để các bác hình dung.
Em cảm ơn các bác nhiều nhiều!
Option Explicit
Sub TinhTrungBinh_DoLechChuan()
Dim Rng As Range, WF As Object
Dim J As Long, Rws As Long, W As Byte
Rws = .CurrentRegion.Rows.Count
Set WF = Application.WorksheetFunction
For W = 0 To 3
For J = 1 To Rws Step 4
If Rng Is Nothing Then
Set Rng = Cells(J + W, "B")
Else
Set Rng = Union(Rng, Cells(J + W, "B"))
End If
Next J
Cells(2 + W, "C").Value = WF.Average(Rng)
Cells(W + 2, "D").Value = WF.StDev(Rng)
Set Rng = Nothing
Next W
End Sub
www.giaiphapexcel.com/diendan/threads/d%C3%B9ng-vba-t%C3%ADnh-trung-b%C3%ACnh-c%E1%BB%A9-c%C3%A1ch-4-gi%C3%A1-tr%E1%BB%8B-l%E1%BA%A1i-l%E1%BA%A5y-1-gi%C3%A1-tr%E1%BB%8B-%C4%91%E1%BB%83-t%C3%ADnh-trung-b%C3%ACnh.98894/
Thiết kế Tổng đãi ngộ (Total Rewards) theo khung SHRM
Khóa học “Thiết kế Tổng phần thưởng (Total Reward) chuẩn khung SHRM” giúp bạn nắm vững toàn bộ hệ thống đãi ngộ theo chuẩn...
Xem khóa học