VBA priskirti diapazoną masyvui

Ši pamoka parodys, kaip užpildyti masyvą ląstelių diapazonu.

Priskirkite diapazoną masyvui

„A Variant“ masyvą galime lengvai užpildyti langelių diapazonu.

Priskirkite vertę iš vieno stulpelio

Šis pavyzdys pereis per diapazoną („A1: A10“), priskirdamas langelio reikšmes masyvui:

12345678910111213

Sub TestArrayValuesSingle ()„Paskelbkite masyvą kaip variantų masyvąDim arRng () kaip variantas„Deklaruokite sveikąjį skaičių, kad išsaugotumėte eilučių skaičiųDim iRw As Integer„Priskirkite diapazoną masyvo kintamajamarRng = Diapazonas ("A1: A10")„eikite per eilutes - nuo 1 iki 10„IRw“ = 1 į „UBound“ (arRng)“parodykite rezultatą tiesioginiame langeDerinti. Spausdinti arRng (iRw, 1)Kitas iRwPabaiga Sub

The UBound naudojama nustatyti masyvo viršutinę ribą (pvz., 10), kad ciklas žinotų, kad ciklas yra 10 kartų.

TheDerinti. Spausdinti funkcija parodys masyvo reikšmę tiesioginiame lange.

Priskirkite vertę iš kelių stulpelių

123456789101112131415161718

Sub TestArrayValuesMultiple ()„Paskelbkite masyvą kaip variantų masyvąDim arRng () kaip variantas„Deklaruokite sveikąjį skaičių, kad išsaugotumėte eilučių skaičiųDim iRw As Integer„Deklaruokite sveikąjį skaičių, kad išsaugotumėte stulpelių skaičiųDim iCol kaip sveikasis skaičius„Priskirkite diapazoną masyvo kintamajamarRng = Diapazonas ("A1: C10")„eikite per eilutes - nuo 1 iki 10„IRw“ = 1 į „UBound“ (arRng, 1)dabar - būdami 1 eilutėje, peržiūrėkite 3 stulpelius„ICol“ = nuo 1 iki „UBound“ (arRng, 2)“parodykite rezultatą tiesioginiame langeDerinti. Spausdinti ARRng („iRw“, „iCol“)Kitas „iCol“Kitas iRwPabaiga Sub

Aukščiau esančiame kode masyvą užpildėme diapazono reikšmėmis („A1: C10“).

The UBound yra dar kartą naudojamas, bet šį kartą to reikia du kartus - vieną kartą, kad būtų galima pereiti per eilutes, o paskui dar kartą - per stulpelius.

The Derinti. Spausdinti funkcija parodys masyvo reikšmę tiesioginiame lange.