Nhờ kiểm tra code

[khanhnhuthuong]

Function TH(M As Range, P As Range, T As Range, n As Byte)
MCOTH1 = WorksheetFunction.Count(M)
PCOTH2 = WorksheetFunction.Count(P)
TCOTHKI = WorksheetFunction.Count(T)
tcot = MCOTH1 * 1 + PCOTH2 * 1 + TCOTHKI * 2
If WorksheetFunction.Sum(tcot) = 0 Then
TH = ""
Else
TH = Round(((WorksheetFunction.Sum(M) + WorksheetFunction.Sum(P) + WorksheetFunction.Sum(T) * 2) / tcot), 1)
End If
End Function
tôi viết hàm trên nhưng giá trị trả về hàm chỉ lấy 1 số lẻ mà không làm tròn
cụ thề:
WorksheetFunction.Sum(M) =10
WorksheetFunction.Sum(P) =9
WorksheetFunction.Sum(T)=10
nhưng giá trị trả về là 9.2
không biết sai chổ nào nữa. nhờ các bạn hướng dẫn

 

[ptlong04x1]

Bạn dùng Round(...,1) thì hàm lấy giá trị với 1 số lẻ chứ sao nữa???

 

[ChanhTQ@]

Bạn thử thay con số 1 bằng
(1) số 0;
(2) số -1

(& thất bại mới là mẹ đẽ của thành công!)

 

[thanhhuong79]

Có ai biết về cách sử dụng pivot table trên exel 2003