Innehållsförteckning
Denna handledning kommer att visa hur du fyller i en array med ett antal celler.
Tilldela område till Array
Vi kan enkelt fylla i en variantmatris med ett antal celler.
Tilldela värde från en enda kolumn
Det här exemplet går igenom intervallet ("A1: A10") och tilldelar cellvärdena till en array:
| 12345678910111213 | Sub TestArrayValuesSingle ()'Deklarera matrisen som en variantmatrisDim arRng () Som variant'Deklarera heltalet för att lagra antalet raderDim iRw som heltal'Tilldela intervallet till en matrisvariabelarRng = Range ("A1: A10")'gå igenom raderna - 1 till 10För iRw = 1 Till UBound (arRng)'visa resultatet i det omedelbara fönstretDebug.Print arRng (iRw, 1)Nästa iRwAvsluta Sub |
De UBound används för att ställa in matrisens övre gräns (t.ex. 10) så att slingan vet att slingan ska gå 10 gånger.
DeDebug.Print -funktionen visar värdet i matrisen i det omedelbara fönstret.
Tilldela värde från flera kolumner
| 123456789101112131415161718 | Sub TestArrayValuesMultiple ()'Deklarera matrisen som en variantmatrisDim arRng () Som variant'Deklarera heltalet för att lagra antalet raderDim iRw som heltal'Deklarera heltalet för att lagra antalet kolumnerDim iCol som heltal'Tilldela intervallet till en matrisvariabelarRng = Range ("A1: C10")'gå igenom raderna - 1 till 10För iRw = 1 Till UBound (arRng, 1)'nu - i rad 1, gå igenom de tre kolumnernaFör iCol = 1 till UBound (arRng, 2)'visa resultatet i det omedelbara fönstretDebug.Print arRng (iRw, iCol)Nästa iColNästa iRwAvsluta Sub |
I koden ovan har vi fyllt i matrisen med värdena i intervall ("A1: C10").
De UBound används igen - men den här gången behövs det två gånger - en gång för att gå igenom raderna och sedan igen för att gå igenom kolumnerna.
De Debug.Print -funktionen visar värdet i matrisen i det omedelbara fönstret.
