想要用EXCEL实现所存储矩阵的马氏距离的计算.想在Sheet1中加入一个按钮(CommangButton1),将其’Caption’设为’计算协方差矩阵’,并为其编写代码.实现计算协方差矩阵.但是不知道如何加入按钮,如何让程序运行.代码如下:
Private Sub CommandButton1_Click()
For i = 1 To 25
p(i) = Sheet1.Cells(1026, i)
Next i
For i = i To 25
For j = i To 25
s(i, j) = 0
For k = 1 To 1025
s(i, j) = s(i, j) + (Sheet1.Cells(k, i) - p(i)) * (Sheet1.Cells(k, j) - p(j))
Next k
s(i, j) = s(i, j) / 1024
Sheet2.Cells(i, j) = s(i, j)
If i <> j Then Sheet2.Cells(i, j) = s(i, j)
Next i
Next j
End Sub
请问高手,能不能一个步骤一个步骤的教我把最后的计算结果调试出来.
非常感谢!
使ç¨å¼åå·¥å ·é项å¡ä¸çå½ä»¤æé®ï¼æå ¥å³å¯ã
Excelçæ¬åèï¼2010
1ãéä¸è¦æå ¥çåå æ ¼ä½ç½®ï¼
2ãç¹å»å¼åå·¥å ·-æå ¥ï¼ActiveXï¼ï¼å½ä»¤æé®ï¼
3ãå¨å·¥ä½è¡¨ä¸ç»åºä¸ä¸ªå¤§å®¶åéçæé®å³å¯ï¼
4ãæ¥çææï¼OKï¼ã