ByRef를 하위로 전달한 후 배열에 값이 없습니다.

Question

같은 모듈의 다른 하위에 배열을 전달해야하는 워크 시트에 모듈이 있습니다. 지금까지, 각 개별 배열 요소를 가져 오는 데 사용되는 변수 N이 항상 조사 식 창에서 0으로 표시된다는 것을 알았습니다. 배열에서 요소를 가져 오는 방법은 무엇입니까? 다음은 코드입니다.

Option Explicit 

Sub CreateReports() 

Dim numRows As Integer 
Dim numCount As Integer 
Dim category As String 
Dim size As Integer 
Dim sizeCount As Integer 

Dim departmentNums() As Integer 
With Sheets("GM Alignment") 
    numRows = Application.WorksheetFunction.CountA(Range("A2:A1048576")) 
    .Range("A2").Select 
    Do While numCount < numRows 
     category = ActiveCell.Value 
     size = Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).End(xlToRight)).Columns.Count - 1 
     If size > 7 Then 
      size = 0 
     End If 
     ReDim departmentNums(size) 
     .Cells(ActiveCell.Row, 1).Select 
     For sizeCount = 0 To size 
      ActiveCell.Offset(0, 1).Select 
      departmentNums(sizeCount) = ActiveCell.Value 
     Next sizeCount 
     .Cells(ActiveCell.Row, 1).Select 
     GenerateReports Arr:=departmentNums, Sheet:=category 
     ActiveCell.Offset(1, 0).Select 
    numCount = numCount + 1 
    Loop 
End With 

End Sub 

Sub GenerateReports(ByRef Arr() As Integer, Sheet As String) 

Dim N As Integer 

For N = LBound(Arr) To UBound(Arr) 

    Dim Lastrow As Long 

    With Sheets("DATA") 

     If .Range("I:I").Find(N, , xlValues, xlWhole, , , False) Is Nothing Then 
      MsgBox "No " + Sheet + " rows found. ", , "No Rows Copied": Exit Sub 
     Else 

      Application.ScreenUpdating = False 

      Lastrow = .Range("K" & Rows.Count).End(xlUp).Row 
      .Range("K1:K" & Lastrow).AutoFilter Field:=1, Criteria1:=N 
      .Range("K2:K" & Lastrow).SpecialCells(xlCellTypeVisible).EntireRow.Copy 
      Sheets(Sheet).Range("A2").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False 
      .AutoFilterMode = False 

      'Position on cell A3 
      With Application 
       .CutCopyMode = False 
       .Goto Sheets("DATA").Range("A2") 
       .ScreenUpdating = True 
      End With 

      MsgBox "All matching data has been copied.", , "Copy Complete" 

     End If 

    End With 

Next N 

End Sub 

고마워요!

Answer 1

코드에 너무 많이 들지는 않지만 Arr에서 읽거나 어떤 코드로 GenerateReports을 읽거나 읽지 않는 것으로 나타났습니다. 나는 당신이 배열이 어떻게 행동하는지 오해하고 있다고 생각합니다.

Dim index as Integer 
For index = LBound(Arr) To UBound(Arr) 
    Debug.Print "Index: "; index; " Value: " Arr(index) 
Next N 

LBound(Arr) 및 Arr하지 값의 최저 및 최고 인덱스를 돌려줍니다 Ubound(Arr). Arr에 포함 된 값에 액세스하려면 Arr(index)을 사용하십시오. 인덱스에 대해 걱정하지 않는 경우

당신은 가능한 한 그것을 다른 순서의 같은 Collection을 사용하는 것을 허용하기 때문에이 방법을 사용하는 것이 좋습니다

Dim element as Integer 
    For each element in Arr 
     debug.Print element 
    Next n 

사용할 수 있습니다. 그러나 여러 시퀀스 또는 시퀀스의 일부를 반복 할 때 항상 가능하지는 않습니다. VB.NET 배열에 대한

Sub PrintOneToTen() 
    Dim xs(1 to 10) as Integer 
    FillArray xs 
    Dim x as Integer 
    For Each x In xs 
     Debug.Print x 
    Next x 
    ' or just Debug.Print Join(xs, vbNewLine) 
End Sub 
Sub FillArray(ByRef xs() As Integer) 
    Dim i as Integer 
    For i = LBound(xs) To Ubound(xs) 
     xs(i) = i 
    Next i 
End Sub 

문서 here을 나열됩니다

여기에 기본적인 예입니다. 참고 VB.NET은 VBA가 아니지만 배열의 경우 정보의 99 %는 VBA에서 동일해야합니다. 나는 VBA 문서를 게시 하겠지만 마이크로 소프트의 데이터베이스에 깊이 파 묻히고있다. 나는 그것을 걱정한다고 생각하지 않는다.