See õpetus näitab, kuidas VBA abil massiivi vahemikku väljastada.
Väljund (print) Massiiv vahemikku
Massiivi salvestatud andmed saab hõlpsasti Exceli lehele väljastada. Selleks on 3 võimalust.
Väljastage andmed erinevasse vahemikku
Võiksime massiivi täita Exceli ühe vahemiku andmetega ja seejärel andmed Excelis teise vahemikku väljastada.
12345678 | Avalik alamkatse väljund ()'kuulutage massiivDim rnArray () Variandina'täitke massiiv vahemikugarnArray = Vahemik ("A1: H24")'väljastab massiivi erinevatesse lahtritesseVahemik ("J1: Q24") = rnArray ()End Sub |
Kogu massiiv kopeeritakse massiivi ühe koodireaga ja väljastatakse seejärel tervikuna lehe erinevatesse lahtritesse.
Massiivi läbimine ja andmete väljastamine
See näide läbib massiivi, andes massiivi vahemikku.
12345678910111213 | Avalik alamkatseLoopArray ()'kuulutage massiivDim rnArray () Variandina'Deklareerige täisarv, et salvestada ridade arvDim iRw täisarvuna'Määra massiivimuutujale vahemikrnArray = Vahemik ("A1: A10")'silmus läbi massiivi väärtusteIRw = LBound (rnArray) kuni UBound (rnArray)'täitke andmetega erinev vahemikLahtrid (iRw, 2). Väärtus = rnArray (iRw, 1)Järgmine iRwEnd Sub |
LBoundja UBoundtagastab massiivi algusindeksi (alumine piir) ja lõpp -indeksi (ülemine piir), antud juhul 1 ja 10.
Massiivi andmete ülevõtmine
Samuti võime massiivi andmed Exceli lehele üle kanda. Ülekanne võimaldab kuvada andmeid horisontaalselt kogu Exceli lehel.
Näiteks kui meil on Excelis olekute loend ja soovime need üle võtta.
Seejärel võime käivitada järgmise koodi:
12345678 | Avalik alamkatseOutputTranspose ()'kuulutage massiivDim rnArray () Variandina'täitke see vahemikugarnArray = Vahemik ("A1: A38")'andmed üle võttaVahemik (lahtrid (1, 3), lahtrid (1, 40)). Väärtus = rakendus. Ülekanne (rnArray)End Sub |
Mis tooks kaasa järgmise:
Väljund silumiseks. Print
Samuti võime massiivi väärtused silumisaknasse väljastada.
12345678910111213 | Avalik alamkatseLoopArray ()'kuulutage massiivDim rnArray () Variandina'Deklareerige täisarv, et salvestada ridade arvDim iRw täisarvuna'Määra massiivimuutujale vahemikrnArray = Vahemik ("A1: A10")'rida läbi ridade - 1 kuni 10IRw = 1 kuni UBound (rnArray)'väljund vahetu aknasseSilumine. Prindi rnArray (iRw, 1)Järgmine iRwEnd Sub |