VBA Tildel rækkevidde til array

Denne vejledning viser, hvordan du udfylder en matrix med en række celler.

Tildel rækkevidde til array

Vi kan let udfylde et variants array med en række celler.

Tildel værdi fra en enkelt kolonne

Dette eksempel løber gennem område ("A1: A10") og tildeler celleværdierne til et array:

12345678910111213

Sub TestArrayValuesSingle ()'Deklarere arrayet som en variant arrayDim arRng () Som variant'Deklarer heltalet for at gemme antallet af rækkerDim iRw som heltal'Tildel område til en matrixvariabelarRng = Range ("A1: A10")'loop gennem rækkerne - 1 til 10For iRw = 1 Til UBound (arRng)'vis resultatet i det umiddelbare vindueDebug.Print arRng (iRw, 1)Næste iRwAfslut Sub

Det UBound bruges til at indstille matrixens øvre grænse (f.eks. 10), så sløjfen ved at løkke 10 gange.

DetDebug.Print funktion viser dig værdien i arrayet i det umiddelbare vindue.

Tildel værdi fra flere kolonner

123456789101112131415161718

Sub TestArrayValuesMultiple ()'Deklarere arrayet som en variant arrayDim arRng () Som variant'Deklarer heltalet for at gemme antallet af rækkerDim iRw som heltal'Deklarer heltalet for at gemme antallet af kolonnerDim iCol som heltal'Tildel område til en matrixvariabelarRng = Range ("A1: C10")'loop gennem rækkerne - 1 til 10For iRw = 1 Til UBound (arRng, 1)'nu - mens du er i række 1, går du gennem de 3 kolonnerFor iCol = 1 til UBound (arRng, 2)'vis resultatet i det umiddelbare vindueDebug.Print arRng (iRw, iCol)Næste iColNæste iRwAfslut Sub

I koden ovenfor har vi udfyldt matrixen med værdierne i område ("A1: C10").

Det UBound bruges igen - men denne gang er det nødvendigt to gange - en gang for at gå gennem rækkerne og derefter igen for at gå gennem kolonnerne.

Det Debug.Print funktion viser dig værdien i arrayet i det umiddelbare vindue.