VBA配列とループ

Question

すでに定義されている配列をループして500を超える値を見つけるのに問題があります。私の下付き文字が範囲外です。

これはこれまで私が行ってきたことです。誰かが私に2番目の部分を修正するのを助けることができるので、すでに確立されている配列を適切にループします。

Sub hishSale() 

    Dim customers() As String 
    Dim sale() As String 
    Dim hiCustomer() As String 
    Dim hiSale() As String 
    Dim nCustomers As Integer 
    Dim i As Integer 
    Dim isOver As Integer 


    'capture the number of customers and sales and put them in two seperate arrays 
    With wsData.Range("A3") 
     nCustomers = Range(.Offset(1, 0), .End(xlDown)).Rows.Count 
     ReDim customers(nCustomers) 
     ReDim sale(nCustomers) 
     For i = 1 To nCustomers 
      customers(i) = .Offset(i, 0).Value 
      sale(i) = .Offset(i, 1).Value 
     Next 
    End With 

'Loop through arrays to find sales over $500 

    With Range("A3") 
    isOver = 0 
     For i = 1 To nCustomers 
      If .Offset(i, 1).Value > 500 Then 
       isOver = isOver + 1 
       hiCustomer(isOver) = .Offset(i, 0).Value 
       hiSale(isOver) = .Offset(isOver, 1).Value 
      End If 
     Next 
    End With 

    'return results in columns D and E 
    With Range("D3") 
     For i = 1 To nCustomers 
     .Offset(i, 0) = hiCustomer(isOver) 
     .Offset(i, 1) = hiSale(isOver) 
     Next 
    End With 

End Sub 

Answer 1

そうしながら、私は、問題はあなたがhiCustomer OR hiSale寸法を記入しませんでした、あなたの配列が大きくあることについて散歩その後、必要に応じて、大きな記述を書き始め、それらがどのようにゼロのベースを持っています。

変更この： - これに

'Loop through arrays to find sales over $500 
With Range("A3") 
isOver = 0 
    For i = 1 To nCustomers 
     If .Offset(i, 1).Value > 500 Then 
      isOver = isOver + 1 
      hiCustomer(isOver) = .Offset(i, 0).Value 
      hiSale(isOver) = .Offset(isOver, 1).Value 
     End If 
    Next 
End With 

： - ：

​​

-

ReDim hiCustomer(0) 
ReDim hiSale(0) 
With Range("A3") 
    For i = 1 To nCustomers 
     If .Offset(i, 1).Value > 500 Then 
      ReDim Preserve hiCustomer(UBound(hiCustomer, 1) + 1) 
      ReDim Preserve hiSale(UBound(hiSale, 1) + 1) 
      hiCustomer(UBound(hiCustomer, 1)) = .Offset(i, 0).Value 
      hiSale(UBound(hiCustomer, 1)) = .Offset(i, 1).Value 
     End If 
    Next 
End With 

そして、私はそれが次のループを修正読んでいる場合にもに変化する必要があります。これまでは、> 500リストだけでなく、顧客リストを探していました。