Hàm tính điểm trung bình

[Ba Tê]

Option Explicit
Function DiemTB(HS1 As Range, HS2 As Range, HS3 As Range)
 Dim Cls As Range, Dem As Byte
 For Each Cls In HS1
   If Cls.Value <> "" Then
      DiemTB = DiemTB + Cls.Value:           Dem = 1 + Dem
   End If
 Next Cls
 For Each Cls In HS2
   If Cls.Value <> "" Then
      DiemTB = DiemTB + 2 * Cls.Value:         Dem = 2 + Dem
   End If
 Next Cls
 If HS3.Value <> "" Then
   DiemTB = DiemTB + 3 * HS3.Value:               Dem = Dem + 3
 End If
 DiemTB = ((DiemTB / Dem) * 100 \ 10) / 10
End Function

Lúc đó cú fáp tại [S5] như sau: =DiemTB(C5:K5,L5:Q5,R5)

HYen17 ơi! Chỗ này tôi không hiểu:

DiemTB = ((DiemTB / Dem) * 100  10) / 10

sao không là:

DiemTB = Round(DiemTB / Dem, 1)

Hay Bạn hiểu nhầm câu "làm tròn 1 số lẻ", ý tôi muốn nói là làm tròn thành một số chỉ có 1 số lẻ mà thôi.
Ví dụ: 7.444444444 thành 7.4.
Chúc Bạn vui vẻ.

 

[SA_DQ]

HYen17 ơi! Chỗ này tôi không hiểu:

DiemTB = ((DiemTB / Dem) * 100 10) / 10

sao không là:

DiemTB = Round(DiemTB / Dem, 1)

Hay Bạn hiểu nhầm câu "làm tròn 1 số lẻ", ý tôi muốn nói là làm tròn thành một số chỉ có 1 số lẻ mà thôi.
Ví dụ: 7.444444444 thành 7.4.
Chúc Bạn vui vẻ.

Ý mình là hàm cho ra số thực chỉ thêm 1 số thập fân mà thôi; Chứ như của bạn thì thực chất có khi là số hữu tì dài ngoằn ấy chứ. Nó ngắn lại là do bạn son fấn bằng cách định dạng thôi! Còn mình thì số đó không chút son fấn nào. Nhưng trong quá trình thực hiện í tưởng đó mình lại xài [PHP ]. . .[/php] nên toán tử "\" bị chén mất tiêu.

Khà, khà,. . .

 

[Ba Tê]

Ý mình là hàm cho ra số thực chỉ thêm 1 số thập fân mà thôi; Chứ như của bạn thì thực chất có khi là số hữu tì dài ngoằn ấy chứ. Nó ngắn lại là do bạn son fấn bằng cách định dạng thôi! Còn mình thì số đó không chút son fấn nào. Nhưng trong quá trình thực hiện í tưởng đó mình lại xài [PHP ]. . .[/php] nên toán tử "\" bị chén mất tiêu.
Khà, khà,. . .

Đúng là khi xem: DiemTB = ((DiemTB / Dem) * 100 10) / 10 , chẳng hiểu chi, DiemTB = ((DiemTB / Dem) * 100 \10) / 10 thì test thử đúng rồi. Nhưng vẫn chưa hiểu cái "\" là toán tử gì.
(Thông cảm, vì mình mới xin được quyển "Lập trình VBA trong Excel" của Phan Tự Hướng, tìm trong các toán tử chẳng thấy "\").
"Tiễn Phật tiễn đến Tây thiên" luôn đi.
Khì, Khì...

 

[luongkoolboy]

Thank All!!!!!!!! nhưng vẫn không dc. nản ghê. tại pc của mình rồi, viết song enter là báo lỗi. chán thế, đang phải làm bài tập lớn.

 

[annado254]

Bản thân hàm AVERAGE là đã chia cho tổng số phần tử có trong nó. Ví dụ:

AVERAGE(3,4,5) = (3+4+5)/3
AVERAGE(3,4,5,6) = (3+4+5+6)/4​

Nếu bạn đã dùng AVERAGE rồi mà lại còn đi chia nữa thì dùng AVERAGE để làm gì?: bạn gì ơi,bạn nói hay quá hehe........ cho mình hỏi nè,mình muốn dùng hàm average nhưng mà nếu cứ phải viết công thức average(toan,toan,toan,tin,tin) thì chết à? bạn kia chỉ có 2 môn chứ mình thì co tận 6 môn. nếu làm thế thì chắc chắn sẽ nhầm mất

 

[Tran Mui]

Bạn dùng sổ điểm cá nhân này xem sao nhé
file đính kèm

 

[annado254]

cảm ơn bạn nha. nhưng mìng dốt quá nên chẳng biết dùng thế nào hihi. dù sao cũng cảm ơn bạn. mình dùng hàm sum cho tiện vậy

 

[duykhon82]

đơn giản là:G15(VD) thi no tự động chia trung binh trong khoảng từ G1 đến P5

 

[vietcanhlp]

Moi ban tham khao nhe, chuc vui, co gi lien he theo dia chi vietcanhlp@yahoo.com.vn
ĐT: 0917854429

 

[Quang Tếu]

=average(C5:K5,2*(L5:Q5))

 

[trieuducphu]

=average(điểm môn a*hệ số môn a;điểm môn b*hệ số môn b)/averagea(hệ số môn a;hệ số môn b)

 

[nvltran]

mọi người cho mình hỏi
làm sao để tính trung bình nó làm tròn đến 1 số sau dấu ,
ví dụ 7,8 chứ không phải 7,793

 

[vanle33]

mọi người cho mình hỏi
làm sao để tính trung bình nó làm tròn đến 1 số sau dấu ,
ví dụ 7,8 chứ không phải 7,793

Công thức =Round(7,793;1)

 

[nvltran]

ko thấy có hàm làm tròn đó
mình thấy nó cũng viết công thức =sum(B1+B2+B3)/3 là ra luôn 7,8
không biết chỉnh chỗ nào

 

[vanle33]

ko thấy có hàm làm tròn đó
mình thấy nó cũng viết công thức =sum(B1+B2+B3)/3 là ra luôn 7,8
không biết chỉnh chỗ nào

1) Trời! excel nào cũng có hàm làm tròn đó mà. Đối số number có thể là 1 số hay 1 cell hay 1 công thức cho ra giá trị 1 số.
2) "nó" là cái gì?
3) "sum(B1+B2+B3)/3 là ra luôn 7,8" là gì?
Không biết bạn muốn nói gì.

 

[nvltran]

mình có tải dc 1 bài tính điểm trung bình xếp loại xếp thứ....
ở cột tính điểm trung bình chỉ có công thức =sum(B1+B2+B3)/3 kết quả được làm tròn đến 1 số sau dấu ,
mình làm tương tự nhưng nó làm tròn tới 3 số sau dấu ,

 

[hieuxd]

mình có tải dc 1 bài tính điểm trung bình xếp loại xếp thứ....
ở cột tính điểm trung bình chỉ có công thức =sum(B1+B2+B3)/3 kết quả được làm tròn đến 1 số sau dấu ,
mình làm tương tự nhưng nó làm tròn tới 3 số sau dấu ,

Bạn thêm hàm Round đằng trước
=ROUND(SUM(B1+B2+B3)/3;1)
=ROUND(AVERAGE(B1:B3);1)

 

[anhtuyet.7294]

nhung sao khi tính điểm trung bình thì tính hàm round cơ mà

 

[Xương rồng gai]

cho mình hỏi với, không còn cách nào tình phù hợp hơn =AVERAGE(TOÁN,TOÁN,TIN,TIN,TIN) hả bạn. Giả sử như hệ số của số cần tính TBC lớn mà cứ làm như thế thì lâu quá. mình đang bị mắc chỗ này, mọi người giải đáp hộ mình với. Thank

 

[Phuocam]

cho mình hỏi với, không còn cách nào tình phù hợp hơn =AVERAGE(TOÁN,TOÁN,TIN,TIN,TIN) hả bạn. Giả sử như hệ số của số cần tính TBC lớn mà cứ làm như thế thì lâu quá. mình đang bị mắc chỗ này, mọi người giải đáp hộ mình với. Thank

Tham khảo thử cách này :