Šī apmācība parādīs, kā izvadīt masīvu diapazonā, izmantojot VBA.
Izvades (drukas) masīvs diapazonā
Masīvā saglabātos datus var viegli izvadīt Excel lapā. Ir 3 veidi, kā to izdarīt.
Izvadiet datus citā diapazonā
Mēs varētu aizpildīt masīvu ar datiem no viena Excel diapazona un pēc tam izvadīt datus citā Excel diapazonā.
12345678 | Publiskais apakšpārbaudes izvads ()'deklarējiet masīvuDim rnArray () kā variants'aizpildiet masīvu ar diapazonurnArray = Diapazons ("A1: H24")'izvada masīvu citam šūnu diapazonamDiapazons ("J1: Q24") = rnArray ()Beigu apakš |
Viss masīvs tiek kopēts vienā koda rindā uz masīvu un pēc tam pilnībā izvadīts citā lapas šūnu diapazonā.
Looping caur masīvu un datu izvadīšana
Šajā piemērā tiks aplūkots masīvs, izvadot masīvu diapazonā.
12345678910111213 | Public Sub TestLoopArray ()'deklarējiet masīvuDim rnArray () kā variants'Deklarējiet veselu skaitli, lai saglabātu rindu skaituDim iRw kā vesels skaitlis'Piešķirt diapazonu masīva mainīgajamrnArray = Diapazons ("A1: A10")'cilpa caur masīva vērtībāmAttiecībā uz iRw = LBound (rnArray) līdz UBound (rnArray)ar datiem aizpildiet citu diapazonuŠūnas (iRw, 2). Vērtība = rnArray (iRw, 1)Nākamais iRwBeigu apakš |
LBoundun UBoundatgriež masīva sākuma indeksu (apakšējā robeža) un beigu indeksu (augšējā robeža), šajā gadījumā 1. un 10. punktu.
Transponēt masīva datus
Mēs varam arī transponēt masīvā esošos datus Excel lapā. Transponēšana ļauj parādīt datus horizontāli visā Excel lapā.
Piemēram, ja programmā Excel mums ir stāvokļu saraksts un mēs vēlamies tos transponēt.
Pēc tam mēs varētu palaist šādu kodu:
12345678 | Public Sub TestOutputTranspose ()'deklarējiet masīvuDim rnArray () kā variants'aizpildiet to ar diapazonurnArray = Diapazons ("A1: A38")'transponēt datusDiapazons (šūnas (1, 3), šūnas (1, 40)). Vērtība = pielietojums. Transponēt (rnArray)Beigu apakš |
Kas radītu sekojošo:
Izeja atkļūdošanai. Drukāt
Mēs varam arī izvadīt masīva vērtības atkļūdošanas logā.
12345678910111213 | Public Sub TestLoopArray ()'deklarējiet masīvuDim rnArray () kā variants'Deklarējiet veselu skaitli, lai saglabātu rindu skaituDim iRw kā vesels skaitlis'Piešķirt diapazonu masīva mainīgajamrnArray = Diapazons ("A1: A10")"cilpa caur rindām - no 1 līdz 10IRw = 1 līdz UBound (rnArray)'izvadi tūlītējā logāAtkļūdot. Drukāt rnArray (iRw, 1)Nākamais iRwBeigu apakš |