Turinys
Š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.
