Inhoudsopgave
Deze zelfstudie laat zien hoe u een array kunt vullen met een reeks cellen.
Bereik toewijzen aan array
We kunnen A Variant-array eenvoudig vullen met een reeks cellen.
Waarde toewijzen uit een enkele kolom
Dit voorbeeld loopt door Range ("A1:A10") en wijst de celwaarden toe aan een array:
| 12345678910111213 | Sub TestArrayValuesSingle()'Declareer de array als een variantarray'Dim arRng() als variant'Declareer het gehele getal om het aantal rijen op te slaanDim iRw als geheel getal'Wijs een bereik toe aan een arrayvariabele'arRng = Bereik ("A1:A10")'loop door de rijen - 1 tot 10'Voor iRw = 1 Naar UBound(arRng)'toon het resultaat in het directe venster'Debug.Print arRng(iRw , 1)Volgende iRwEinde sub |
De UBound wordt gebruikt om de bovengrens van de array in te stellen (bijv. 10) zodat de lus 10 keer weet te lussen.
DeDebug.Print functie toont u de waarde in de array in het directe venster.
Waarde toewijzen uit meerdere kolommen
| 123456789101112131415161718 | Sub TestArrayValuesMultiple()'Declareer de array als een variantarray'Dim arRng() als variant'Declareer het gehele getal om het aantal rijen op te slaanDim iRw als geheel getal'Declareer het gehele getal om het aantal kolommen op te slaanDim iCol als geheel getal'Wijs een bereik toe aan een arrayvariabele'arRng = Bereik ("A1:C10")'loop door de rijen - 1 tot 10'Voor iRw = 1 Naar UBound(arRng,1)'nu - terwijl in rij 1, loop door de 3 kolommenVoor iCol = 1 tot UBound(arRng,2)'toon het resultaat in het directe venster'Debug.Print arRng(iRw, iCol)Volgende iColVolgende iRwEinde sub |
In de bovenstaande code hebben we de array gevuld met de waarden in Range ("A1: C10").
De UBound wordt nogmaals gebruikt - maar deze keer is het twee keer nodig - een keer om door de rijen te bladeren en dan nog een keer om door de kolommen te bladeren.
De Debug.Print functie toont u de waarde in de array in het directe venster.
