tính ma trận hiệp phương sai

[nanabi]

Các bác ơi chỉ cho em cách tính ma trận hiệp phương sai với.
Nếu dùng hàm covar thì phải làm với nhiêu ô mới ra được
Còn dùng data analysis thì nó chỉ ra kết quả ở 1 bên đường chéo chính thôi.
Còn nếu ra cả matrận thì em không biết làm thế nào cả

Có bác nào biết check hộ em cái code này với em không hiểu sao nó toàn ra giá trị bằng 0

Sub tinhcovar()
Dim A, B() As Long ' khai bao 2 ma tran A B
Dim n, m, i, j As Integer
Set A = Application.InputBox("Vao mang:", "Linh tinh", Type:=8)
n = A.Columns.Count ' Tính so cot chon
m = A.Rows.Count ' Tính so hàng chon
ReDim B(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
B(i, j).Value = Application.WorksheetFunction.Covar(A.Columns(i), A.Columns(j))
Next j
Next i
Sheets.Add
For i = 1 To n
For j = 1 To n
Cells(i, j).Value = B(i, j)
Next j
Next i
 
End Sub

 

[email]

bạn thử xem lại các giá trị của ma trận B xem, mình nghĩ nó có vấn đề