Giúp: Tìm lỗi của hàm ROUND ?

[tedaynui]

Chào các bạn,
Mình có 2 cột điểm và tính điểm trung bình cộng, làm tròn lấy phần nguyên
Mình test thử 1 đoạn code nhỏ tính điểm trung bình dựa vào Array nhưng gặp chút lỗi, không tìm ra do đâu
VD :
Trường hợp (7 + 6) / 2 => kết quả lẽ ra là 7 nhưng nó lại ra 6
Trường hợp (9 + 8) / 2 => kết quả lẽ ra là 9 nhưng nó lại ra 8
... ...

Sub TEST()
Dim Arr
Dim i As Long
Arr = [A1:C20]
For i = 1 To 20
    Arr(i, 3) = Round((Arr(i, 1) + Arr(i, 2)) / 2, 0)
Next i
[A1:C20] = Arr
Erase Arr
End Sub

Xin cảm ơn

 

[hanhpptc]

Mình cũng không biết tại sao, nhưng mình sử dụng hàm Round trong wordsheet thì được.

 

[ptm0412]

Đó không phải lỗi code cũng không phải lỗi array, mà là lỗi của Anh Bill:
Trong cửa sổ immediate, gõ ?Round(6.5, 0) rồi enter cũng ra 6, Gõ ?Round(8.5, 0) rồi enter cũng ra 8

Cách khắc phục: Dùng Application.Round thay cho Round

 

[tedaynui]

Xin cảm ơn
Vì em nghĩ nếu VBA có hàm Round thì dùng sẽ nhanh hơn Round của WorkSheet nhưng đành chịu thôi.

TDN