Công thức của bạn sẽ không đúng nếu 5 người đó có số điểm bằng nhau. Nói tóm lại hỏi theo kiểu vu vơ như thế này thì kết quả ra sẽ như thế nào? 5 người có điểm gần điểm trung bình nhất, nhỡ có tới 10 người cùng số điểm 6.6 (gần 6.5) thì sao? Hoặc là 3 người cận trên 6.5, 3 người cận dưới 6.5...lấy ai?
Option Explicit
Sub TrungDiem()
Dim TriTim As Double: Dim Cls As Range
[F1].Value = "Delta" '<=| Ten Truòng '
TriTim = [i1].Value '<=| Chú Ý '
'Duyet Theo Cot "E": '
For Each Cls In Range([e2], [e2].End(xlDown))
With Cls.Offset(, 1)
If Cls.Value >= TriTim Then
.Value = Cls.Value - TriTim
Else
.Value = TriTim - Cls.Value
End If
End With
Next Cls
'Xép Theo Cot "F": '
Range("B1").CurrentRegion.Offset(, 1).Select
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("E2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub
1]private const SOLUONG = 6
for i = 1 to SOLUONG
' đúng ra thì mảng tiêu chuẩn từ 0 đến 5 nhưng ở đây dùng 1 đến 6 cho dễ
m1(i) = soMoc : m2(i) = soMoc
next iwith [range cột cần xét]
for i1 = [ô đầu tiên] to [ô cuối cùng]
' nếu trị cell nhỏ hơn số mốc thì xem có thể nhét vào mảng dưới
' nếu lớn hơn số mốc thì xem có thể nhét vào mảng trên
' nếu bằng thì bỏ qua
if .cells(i1) < soMoc then
' code tính đầu dưới
for i2 = 1 to SOLUONG
if .cells(i1).value > m1(i2) then ' số này gần số mốc hơn
for i3 = SOLUONG to i2+1 step -1
m1(i3) = m1(i3-1) ' đẩy các số về bên phải
next i3
m1(i2) = .cells(i1) ' chép số vào mảng
exit for ' nhét xong rồi không cần xét mảng nữa
end if
next i2
elseif .cells(i1) > soMoc then
' code tính đầu trên ở đây, code ngược với mảng nhỏ
end if
next i1
end with
