2016-10-24 22 views
0

私はこの多変量回帰アドインこのウェブサイトからダウンロード: http://www3.wabash.edu/econometrics/EconometricsBook/Basic%20Tools/ExcelAddIns/OLSRegression.htm使用VBAアドイン

次のコードは、アドインを実行しようとします。しかし、範囲を配列として設定した後でも、コードは配列が期待されていると言っています。

誰でも手助けできますか?

Sub XLAExample() 
    Dim x 
    Dim ws As Worksheet 
    Set ws = Worksheets("Sheet3") 
    Dim xy As Double 
    Dim xyz As Double 

    xy = ws.Range("b2:b3750") 
    xyz = ws.Range("bm2:bm3750") 

    x = OLSRegressionAddIn.MatrixWorkNew(xy, xyz) 




End Sub 

答えて

0

あなたは

Dim xy() As Double 
Dim xyz() As Double 

行中に括弧を逃しています。あなたがそれらを配列

編集宣言する必要があります。Dim、その後、私は、配列の範囲を設定しようとすると、アレイ

Dim wb as Workbook 
Dim ws as WorkSheet 
Set wb = ThisWorkbook 
Set ws = wb.Sheets("Sheet1") 
Dim testArr() As Variant 
testArr = ws.Range("A1:A5") 'obviously replace with correct range 
+0

を設定する方法の以下の実施例を、それが不一致を入力しますと言います。 '' Set rng = Worksheets( "Sheet3")。範囲( "BK1:BK3750") ' ' xvals()= rng' – Daruki

+0

@Daruki配列を等しくするときは、かっこは使用しません。私は上記の例を追加しました – gg2104

+0

@ダルキ将来の参考のためにも、[this](http://www.cpearson.com/excel/ArraysAndRanges.aspx) – gg2104

関連する問題