Giúp em tìm Max, Min và Average bằng VBA với ạ (1 người xem)

[nhnn1986]

Chào Anh/Chị ạ:
Em có sheet dữ liệu là sheets("data"), dữ liệu có từ cột D đến Lastcolumn (Cột cuối không cố định, thay đổi tùy thời gian)
Tại dòng i em muốn có các giá trị sau được điền bằng VBA ạ: => Giá trị chứ không phải công thức (fumula) ạ.
Ai = Max(D:Lastcolum) => Tại dòng i Cột A là giá trị lớn nhất
Bi = Min(D:Lastcolum) => Tại dòng i Cột B là giá trị nhỏ nhất
Ci = Average(D:Lastcolum) => Tại dòng i Cột C là giá trị trung bình
i được tính từ dòng 4 đến Lastrow (dòng cuối cũng không cố định)

Anh/Chị giúp em với ạ, em xin cảm ơn trước./.

 

[LamNA]

Chào Anh/Chị ạ:
Em có sheet dữ liệu là sheets("data"), dữ liệu có từ cột D đến Lastcolumn (Cột cuối không cố định, thay đổi tùy thời gian)
Tại dòng i em muốn có các giá trị sau được điền bằng VBA ạ: => Giá trị chứ không phải công thức (fumula) ạ.
Ai = Max(D:Lastcolum) => Tại dòng i Cột A là giá trị lớn nhất
Bi = Min(D:Lastcolum) => Tại dòng i Cột B là giá trị nhỏ nhất
Ci = Average(D:Lastcolum) => Tại dòng i Cột C là giá trị trung bình
i được tính từ dòng 4 đến Lastrow (dòng cuối cũng không cố định)

Anh/Chị giúp em với ạ, em xin cảm ơn trước./.

Bạn tham khảo bài viết này
https://www.giaiphapexcel.com/diendan/threads/lọc-dữ-liệu-theo-nhóm-bằng-vba.59477/#post-368930

 

[snow25]

Chào Anh/Chị ạ:
Em có sheet dữ liệu là sheets("data"), dữ liệu có từ cột D đến Lastcolumn (Cột cuối không cố định, thay đổi tùy thời gian)
Tại dòng i em muốn có các giá trị sau được điền bằng VBA ạ: => Giá trị chứ không phải công thức (fumula) ạ.
Ai = Max(D:Lastcolum) => Tại dòng i Cột A là giá trị lớn nhất
Bi = Min(D:Lastcolum) => Tại dòng i Cột B là giá trị nhỏ nhất
Ci = Average(D:Lastcolum) => Tại dòng i Cột C là giá trị trung bình
i được tính từ dòng 4 đến Lastrow (dòng cuối cũng không cố định)

Anh/Chị giúp em với ạ, em xin cảm ơn trước./.

Vậy Đầu tiên là bạn xác định vùng cần tim.Rồi gắn nó vào mảng.Duyệt qua từng phần tử của nó.Tìm lớn nhất và nhỏ nhất.Cộng các giá trị lại với nhau rồi chia cho số phần tử là được giá trị trung bình.Không có file chỉ biết vậy.Muốn code thì bạn cho File cụ thể lên nhé.

 

[VetMini]

Gồm các bước sau đây:

1. Đặt một sub Worksheet_Change cho sheet "Data"

2. Đặt điều kiện, nếu thay đổi không nằm trong cột D thì Exit Sub

3. Code tìm dòng cuối trong cột D, dongCuoi

4. Range("Ai").Value = Application.Max(Range("D4: D" & dongCuoi))
Range("Bi").Value = Application.Min(Range("D4: D" & dongCuoi))
Range("Ci").Value = Application.Average(Range("D4: D" & dongCuoi))

5. Hết

Cách thực hiện các bước trên đã có nhiều ở đây. Tìm là ra.

 

[nhnn1986]

Many thanks, em nàm được gồi ạ./.