LBound von Arrays innerhalb der Variante

Question

In diesem question wurde mir eine Antwort gegeben, die mein Problem gelöst hat, aber als ich meinen Code durchgegangen bin, habe ich etwas merkwürdiges bemerkt. Wenn ich die 3 Arrays der Array-Variante zuordne, kann ich im lokalen Fenster sehen, dass der LBound der Variante bei 0 beginnt (wie erwartet), aber die einzelnen Arrays LBound beginnen bei 1, obwohl ich oben Option Base 0 geschrieben habe Modul. Ist das richtig?

-Code aufzufüllen Array

Public Sub FillArray(ByRef data As Variant, 
        sRange As String) 
data = oCurrentWs.Range(sRange) End Sub 

Answer 1

es ist, weil die Zuordnung eines Range zu einem Variant beginnen würde immer Ergebnis in einem 1-low-bounded Array, unabhängig von Option Base Einstellung.

wie können Sie mit diesem Test finden Sie unter:

Public Sub FillArray(ByRef data As Variant, sRange As String) 
     With oCurrentWs.Range(sRange) 
      ReDim data(0 To .Rows.Count - 1, 0 To .Columns.Count - 1) '<--| this dims 'data' as a 0-based array 
      data = .Value '<--| this redims 'data' as a 1-based array 
     End With 
    End Sub 

so, wenn Sie wirklich Notwendigkeit 0-basiert haben Arrays Sie wie zu kodieren haben folgt:

Public Sub FillArray(ByRef data As Variant, sRange As String) 
    Dim i As Long, j As Long 
    With oCurrentWs.Range(sRange) 
     ReDim data(0 To .Rows.Count - 1, 0 To .Columns.Count - 1) '<--| dim 'data' as a zero-based array 
     For i = 1 To .Rows.Count '<--| loop through referenced range rows 
      For j = 1 To .Columns.Count '<--| loop through referenced range columns 
       data(i - 1, j - 1) = .Cells(i, j) '<--| fill each array element individually 
      Next 
     Next 
    End With 
End Sub 

Answer 2

Variant-Arrays dynamische Arrays des Variantentyp diese verwenden "= Array()" initialisiert.

Vorteil

wie sie initialisiert werden mit „= Array()“, LBound und UBound Funktionen mit ihnen zu arbeiten, auch wenn sie keine Elemente haben:

Dim varr As Variant 

    varr = Array() 

    Debug.Print LBound(varr) 'Prints 0 
    Debug.Print UBound(varr) 'Prints -1 

Jetzt können wir auch ein Element hinzufügen, ohne zu überprüfen für UBound-Fehler

Excel-Bereiche Verwenden Sie Basis 1

Wenn ein Array gerade aus einem Bereich aufgefüllt wird die Anordnung bei 1 und nicht 0

Weitere Informationen finden Sie in der Cells & Ranges > Working With Arrays