huyentt510
Thành viên hoạt động
![](/diendan/data/PhoToDanhHieu/gold.gif)
![](/diendan/data/PhoToDanhHieu/gold.gif)
![](/diendan/data/PhoToDanhHieu/gold.gif)
- Tham gia
- 12/10/10
- Bài viết
- 124
- Được thích
- 4
Lại 1 người nữa mở chủ đề lung tungNhờ các ACE giúp tôi tìm ra công thức để cho kết quả đúng. Mong các ACE nghiên cứu kỹ dùm cho, đã có bác cho rằng đề tài này đã gửi nhiều lần và quả thực tôi đã gửi nhiều lần nhưng chưa ai tìm ra công thức đúng. Sau đó tôi lại gửi đi gửi lại để hỏi nhưng lại bảo đề tài này hỏi mãi. Quả thực nó rắc rối tôi thử đi thử lại và tìm không ra vì vậy mong các ACE đừng bỏ qua nhé,xin cảm ơn rất nhiều.
Cảm ơn các bác cho em hỏi tiếp vấn đền này vì khi em thử lại thì công thức ở O 15 cho kết quả sai. vì vậy mong các bác tìm ra chỗ sai??. Đồng thời các bác tìm giúp em ra công thức tính GPA tích lũy ( phần cột đánh dấu hỏi). Thất sự là tôi rất trăn trở với công thức này nên liên tiếp hỏi có gì đó làm phiền mong các bac thông cảm.Lại 1 người nữa mở chủ đề lung tung
Muốn gì thì cứ vào đây mà hỏi tiếp nhé:
http://www.giaiphapexcel.com/forum/showthread.php?50108-tính-giá-trị-TB-cho-GPA
Đề tài này rất khó nên mong các ACE giỏi về exel hãy giúp tôi nhé. Cảm ơn nhiều.
To huyentt510 lần sau bạn muốn hỏi tiếp về đề tài này thì chỉ cần vào đề tài bạn đã tạo trước đó và viết câu hỏi tiếp, bạn không nên nhiều lần tạo đề tài mà vẫn với một chủ đề cũ. Vì như vậy đã vi phạm nội quy của diễn đàn chúng tôi có thể xóa bỏ bài của bạn bất kỳ lúc nào?Đề tài này rất khó nên mong các ACE giỏi về exel hãy giúp tôi nhé. Cảm ơn nhiều.
Tôi cần là công thức tổng quát vì có rất nhiều môn và nhiều SV chứ có phải vài người đâu mà ngồi tính tay. Nói như bác thì còn gì là exel..
cho tôi hỏi chút trong exel công thức GPA là gì vậy? sao khi tôi dùng trong máy tính của tôi như hàm bạn cho =gpa (B14:M14,B12:M12,2) cho kết quả name?Vậy bạn có cách nào hay hơn để bố trí cột phụ mà cho kết quả đúng chỉ tôi nhé.
Option Explicit
Function GPA(Diem As Range, SoTrinh As Range, Optional Lan As Byte = 3)
Dim Cls As Range
Dim jJ As Byte, Col As Byte, TuSo As Double, MSo As Double
Col = Diem.Cells.Count
For jJ = 1 To Col Step 2
If Lan = 1 Then
TuSo = TuSo + Diem(jJ) * SoTrinh(jJ)
MSo = MSo + IIf(Diem(jJ) <> 0, SoTrinh(jJ), 0)
ElseIf Lan = 2 Then
TuSo = TuSo + IIf(Diem(jJ + 1) <> 0, Diem(jJ + 1), Diem(jJ)) * SoTrinh(jJ + 1)
MSo = MSo + IIf(Diem(jJ + 1) <> 0 Or Diem(jJ) <> 0, SoTrinh(jJ + 1), 0)
ElseIf Lan = 3 Then
If Diem(jJ + 1) >= 2 Or Diem(jJ) >= 2 Then
TuSo = TuSo + IIf(Diem(jJ) >= 2, Diem(jJ), Diem(jJ + 1)) * SoTrinh(jJ)
MSo = MSo + SoTrinh(jJ + 1)
End If
Else
GPA = "2uá Ngóc!": Exit Function
End If
Next jJ
If MSo <> 0 Then
GPA = TuSo / MSo
Else
GPA = 0
End If
End Function
[h=2]Xài hàm tự tạo đi, có vẻ đơn giản & uyễn chuyển hơn![/h]Bạn kiểm xem sao. . . . gpeGiaoDuc.rar (18.1 KB, 8 lần tải)