Ta vadnica bo pokazala, kako izhoditi matriko v obseg z uporabo VBA.
Izhodni (natisni) niz v obseg
Podatke, ki so shranjeni v matriki, je mogoče enostavno vnesti v Excelov list. Obstajajo 3 načini za to.
Izhodni podatki v drugo območje
Polje lahko v Excelu napolnimo s podatki iz enega obsega, nato pa v Excelu iznesemo podatke v drugo območje.
12345678 | Public Sub TestOutput ()'razglasi matrikoZatemni rnArray () kot varianto'napolni polje z obsegomrnArray = Obseg ("A1: H24")'iznesite matriko v drug obseg celicRazpon ("J1: Q24") = rnArray ()End Sub |
Celotno polje se kopira v eno vrstico kode v matriko in nato v celoti izloči v drug obseg celic na listu.
Ponavljanje po nizu in izpis podatkov
Ta primer se bo vrtel skozi matriko in matriko prikazal v obsegu.
12345678910111213 | Javni pod testLoopArray ()'razglasi matrikoZatemni rnArray () kot varianto'Razglasite celo število za shranjevanje števila vrsticZatemni iRw kot celo število'Dodelite obseg spremenljivki matrikernArray = Obseg ("A1: A10")'prelet skozi vrednosti v matrikiZa iRw = LBound (rnArray) do UBound (rnArray)'napolni s podatki drugo območjeCelice (iRw, 2). Vrednost = rnArray (iRw, 1)Naslednji iRwEnd Sub |
LBoundin UBoundvrne začetni indeks (spodnja meja) in končni indeks (zgornja meja) matrike, v tem primeru 1 in 10.
Prenos podatkov matrike
Podatke v matriki lahko prenesemo tudi na Excelov list. Prenos vam omogoča, da podatke prikažete vodoravno na Excelovem listu.
Na primer, če imamo v Excelu seznam stanj in jih želimo prenesti.
Nato bi lahko zagnali naslednjo kodo:
12345678 | Javni pod TestOutputTranspose ()'razglasi matrikoZatemni rnArray () kot varianto'napolni z obsegomrnArray = Obseg ("A1: A38")'prenese podatkeObseg (celice (1, 3), celice (1, 40)). Vrednost = uporaba. Prenos (rnArray)End Sub |
Kar bi povzročilo naslednje:
Izhod v Debug.Print
V okno za odpravljanje napak lahko iznesemo tudi vrednosti matrike.
12345678910111213 | Javni pod testLoopArray ()'razglasi matrikoZatemni rnArray () kot varianto'Razglasite celo število za shranjevanje števila vrsticZatemni iRw kot celo število'Dodelite obseg spremenljivki matrikernArray = Obseg ("A1: A10")'zanka skozi vrstice - 1 do 10Za iRw = 1 proti UBound (rnArray)'izhod v neposredno oknoOdpravljanje napak rnArray (iRw, 1)Naslednji iRwEnd Sub |