無法獲得工作表功能的MMult屬性

大家好，我遇到了一個奇怪的問題，請大家幫忙。無法獲得工作表功能的MMult屬性

錯誤消息是：

運行時錯誤 '1004'

無法獲取WorksheetFunction類

1的MMult財產，我用一個程序名字是「schedule」每天自動運行我的VBA程序，但VBA程序每天都會失敗，但是當我控制我的「時間表程序」時，再次自動運行它來試圖重現這個錯誤，我無法得到它，它運行平穩。

2，當這個錯誤發生時，Excel會顯示[完] [調試]窗口，我點擊[調試]並按[F5]，它運行流暢;如果MMult的參數不正確，它會再次顯示錯誤。

3，我寫了一個子轉儲我在mmult中使用的數據，它在發生錯誤和沒有錯誤時是一樣的。

因此，我可以假設mmult的兩個參數是正確的，但爲什麼我每天都收到錯誤消息？

這個最難的事情是很難重現這個錯誤。

代碼：

Public Function Regression(ByVal X As Variant, ByVal y As Variant) 
    writelog ("Regression") 
    writelog ("dump x") 
    Call dumpRange(X, 2) 
    writelog ("dump y") 
    Call dumpRange(y, 1) 

    Dim xtrans, temp, temp2, b 
    xtrans = Application.WorksheetFunction.Transpose(X) 
    temp = Application.WorksheetFunction.MMult(xtrans, X)  ' occour error on this line 
    temp = Application.WorksheetFunction.MInverse(temp) 
    temp2 = Application.WorksheetFunction.MMult(xtrans, y) 
    b = Application.WorksheetFunction.MMult(temp, temp2) 
    Regression = b 
End Function

X是這樣

1 0.34343323 
1 1.32323323 
1 1.21111221 
1 0.33444232 
. ......

微軟Windows 7家庭高級無灰64

Office 2010專業64位/ 32位SP1

來源

2011-12-16 user1102715

你能粘貼代碼，調試器突出 – 2011-12-16 20:51:49

我不知道你在說什麼就行了。什麼是確切的錯誤（數字和消息）？ – Fionnuala 2011-12-16 20:53:39

我已經重新安裝了我的操作系統和辦公室，現在工作正常。

來源

2011-12-20 20:32:02 user1102715

嘗試各種這個。我認爲這是你在哪裏得到你的錯誤

temp = Application.WorksheetFunction.MMult(xtrans, 
Application.Transpose(X))

來源

2011-12-16 21:00:15

我有同樣的問題。但事實證明，我的是由維度問題引起的。

我所做的：

Redim Y(obs) 
Redim X(obs,3) 
Xtransposed = Application.worksheetfunction.transpose(X) 
MMult = Application.worksheetfunction.mmult(Xtransposed, Y)

雖然我應該做的REDIM Y（OBS，1），以使代碼工作。

所以：

Redim Y(obs,1) 
Redim X(obs,3) 
Xtransposed = Application.worksheetfunction.transpose(X) 
MMult = Application.worksheetfunction.mmult(Xtransposed, Y)

來源

2017-03-20 10:34:57 user7739303

無法獲得工作表功能的MMult屬性

回答

相關問題