は、動的配列VBAを使用して傾きと切片を決定

Question

そのなって、私はそう私を許してくださいエクセルVBAで配列を使用しましたので、しばらく...

私はある連続したマッチング細胞をベース動的配列を定義しようとしていますループで決定される。私は私の構文が間違っていると確信しています。難しいのは、私の配列が1列の約6連続した行と、別の列の別のセルとで構成されていることです。何か案は？

Sub calib_range() 
Dim instrument As Variant 
Dim calibrator As Variant 
Dim lastrow As Integer 

lastrow = ThisWorkbook.ActiveSheet.Range("b2").SpecialCells(xlCellTypeLastCell).Row 

For i = 4 To lastrow 

If Cells(i, 4) Like "MPC*" Then 
'enter loop to determine length of MPC* array 
    For x = i + 1 To lastrow 
    If Cells(x, 4) = Cells(x - 1, 4) Then 
     Else 
     x = x - 1 
     Exit For 
    End If 
    Next x 

    instrument = Array(Cells(i, 17), Range(Cells(i, 14), Cells(x, 14))) 
    calibrator = Array(0, Range(Cells(i, 12), Cells(x, 12))) 
    Slope = Application.WorksheetFunction.Slope(instrument, calibrator) 
    Intercept = Application.WorksheetFunction.Intercept(instrument, calibrator) 
    Cells(i, 22) = Slope 
    Cells(i, 23) = Intercept 
End If 
Next i 

End Sub 

Answer 1

あなたの問題はここにある：

calibrator = Array(0, Range(Cells(i, 12), Cells(x, 12))) 

VBAは、あなたの配列にあなたは0と範囲を得ることを考えているので、あなたは、そうすることを許可されていません。したがって、配列は2種類のvaluseで構成されます。あなたが必要とするものではありません。

hereアレイの初期化方法についてもう少し詳しくお読みください。

編集： また、前の行では、範囲の配列を作成するだけです。何のために働くだろうが、おそらくこのようなものです：あなたは `細胞（X、4）=細胞持つ

Public Sub CheckArray() 

    Dim my_array() As Double 

    ReDim my_array(6) 
    my_array(0) = Cells(1, 17) 
    my_array(1) = Cells(2, 17) 
    my_array(2) = Cells(3, 17) 
    my_array(3) = Cells(4, 17) 
    my_array(4) = Cells(5, 17) 
    my_array(5) = Cells(6, 17) 
    my_array(6) = Cells(7, 17) 


End Sub