Lang L: none (table-of-contents)
See õpetus näitab, kuidas massiivi täita lahtrivahemikuga.
Määrake massiivile vahemik
Saame hõlpsasti täita A Variant massiivi lahtrivahemikuga.
Määrake väärtus ühest veerust
See näide liigub läbi vahemiku ("A1: A10"), määrates lahtri väärtused massiivile:
12345678910111213 | Sub TestArrayValuesSingle ()'Kuulutage massiiv variatiivmassiiviksDim arRng () Variandina'Deklareerige täisarv, et salvestada ridade arvDim iRw täisarvuna'Määra massiivimuutujale vahemikarRng = Vahemik ("A1: A10")'rida läbi ridade - 1 kuni 10IRw = 1 kuni UBound (arRng)'näita tulemust kohe aknasSilumine. Prindi arRng (iRw, 1)Järgmine iRwEnd Sub |
The UBound kasutatakse massiivi ülemise piiri (nt 10) seadistamiseks, nii et tsükkel teaks loopida 10 korda.
TheSilumine. Print funktsioon kuvab massiivis sisalduva väärtuse vahetus aknas.
Määrake väärtus mitmest veerust
123456789101112131415161718 | Sub TestArrayValuesMultiple ()'Kuulutage massiiv variatiivmassiiviksDim arRng () Variandina'Deklareerige täisarv, et salvestada ridade arvDim iRw täisarvuna'Kuulutage täisarv, et salvestada veergude arvDim iCol täisarvuna'Määra massiivimuutujale vahemikarRng = Vahemik ("A1: C10")'rida läbi ridade - 1 kuni 10IRw = 1 kuni UBound (arRng, 1)nüüd - reas 1 vaadake 3 veerguICol = 1 kuni UBound (arRng, 2)'näita tulemust kohe aknasSilumine. Prindi arRng (iRw, iCol)Järgmine iColJärgmine iRwEnd Sub |
Ülaltoodud koodis oleme massiivi täitnud vahemiku väärtustega („A1: C10”).
The UBound kasutatakse uuesti - kuid seekord on seda vaja kaks korda - üks kord ridade läbimiseks ja seejärel uuesti veergude läbimiseks.
The Silumine. Print funktsioon kuvab massiivis sisalduva väärtuse vahetus aknas.