Excel VBAでApplication.someBuilt-InFunctionを使用する際にショートカットを回避する方法はありますか？

Question

私はVBAの組み込み関数を使用するコードを持っていますが、Application.mmult()とApplication.minverse

Function MReg (Rango as Range) as variant 
MReg=application.mmult(application.minverse(application.mmult(Rango,application.transpose(Rango))),application.transpose(Rango)) 

End function 

Application.がnessesaryないように、VBAを設定する方法はあります：

は、これは私のコードですか？

Answer 1

あなたはすでに2つの良い答えを持って、それにもかかわらず、これは、よりエレガントなものです：

はその意志の機能を作成します。あなたが必要とするものを、構造化された方法で行います。

Public Function MULT(M1 As Range, M2 As Range) As Variant 
MULT = Application.MMult(M1, M2) 
End Function 

Public Function TRANSPOSE(M1 As Range) As Variant 
TRANSPOSE = Application.TRANSPOSE(M1) 
End Function 

Public Function INVERSE(M1 As Range) As Variant 
INVERSE = Application.MInverse(M1) 
End Function 

次にあなたが問題なくあなたの「メイン」関数にこれらの関数を使用することができますし、私ははるかに良い見てみましょう：

Function MREG(X As Range, Y As Range) As Variant 
MREG = MULT(MULT(INVERSE(MULT(X, TRANSPOSE(X))), TRANSPOSE(X)), Y) 
End Function 

私はあなたが複数の回帰を実行するための関数を作成したいと仮定、だから私は少しあなたのコードを変更しました。

Answer 2

これはあなたのためにそれを行います。

Function MReg (Rango as Range) as variant 
    With Application 
    MReg= .mmult(.minverse(.mmult(Rango,.transpose(Rango))),.transpose(Rango)) 
    End With 
End function 

Answer 3

使用With -End Withブロック

Function MReg(Rango As Range) As Variant 
    With Application 
     MReg = .MMult(.MInverse(.MMult(Rango, .Transpose(Rango))), .Transpose(Rango)) 
    End With 
End Function