WorksheetFunctionのMMultプロパティを取得できません

Question

皆、私は奇妙な問題を抱えています。助けてください。

エラーメッセージは次のとおりです。

が

WorksheetFunctionクラス

1のMMultプロパティを取得することができません、私はプログラムを使っエラー '1004' ランタイム名前は "schedule"で、毎日私のVBAプログラムを自動的に実行しますが、VBAプログラムは毎日失敗しますが、私の "スケジュールプログラム"自動的にこのエラーを再現しようとするためにそれを実行するには、私はそれを得ることができない、それは滑らかに実行されます。

2、このエラーが発生したときに、Excelが[終了] [デバッグ]ウィンドウが表示されます、私は[デバッグ]をクリックして、それがスムーズに実行し、[F5]を押してください。 MMultのパラメータが正しくない場合、エラーを再度表示することを前提としています。

3、私はmmultで使用しているデータをダンプするために、エラーが発生し、エラーは発生しません。

だから、私はmmultの2つのパラメータが正しいと思いますが、毎日エラーメッセージが表示されるのはなぜですか？

この最も難しいのはこのエラーを再現することです。

コード：

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 
. ...... 

ウィンドウ7のホームpreminum 64ビット

オフィス2010プロの64ビット/ 32ビットSP1

Answer 1

私は私のOSとオフィスを再インストールしているあなたのエラーを取得しているところ、これは、それは今も元気に動作していると思います。

Answer 2

てみような範囲でありますこの。私はあなたが

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

Answer 3

私は同じ問題を抱えていました。しかし、それは鉱山が次元問題によって引き起こされたことが判明しました。

私がやった：

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)