Ši pamoka parodys, kaip išvesti masyvą į diapazoną naudojant VBA.
Išvesties (spausdinimo) masyvas į diapazoną
Masyve saugomi duomenys gali būti lengvai išvedami į „Excel“ lapą. Yra 3 būdai tai padaryti.
Išveskite duomenis į kitą diapazoną
Galėtume užpildyti masyvą duomenimis iš vieno „Excel“ diapazono, o tada išvesti duomenis į kitą „Excel“ diapazoną.
| 12345678 | Viešas antrinis testas Išvestis ()“paskelbti masyvąDim rnArray () kaip variantas'užpildykite masyvą diapazonurnArray = Diapazonas ("A1: H24")“išveskite masyvą į skirtingą ląstelių diapazonąDiapazonas ("J1: Q24") = rnArray ()Pabaiga Sub |
Visas masyvas nukopijuojamas į vieną kodo eilutę į masyvą, o po to išvedamas visas į kitą lapo langelių diapazoną.
Žvilgsnis į masyvą ir duomenų išvedimas
Šis pavyzdys aplenks masyvą, išvesdamas masyvą į diapazoną.
| 12345678910111213 | Viešas antrinis testas „LoopArray“ ()“paskelbti masyvąDim rnArray () kaip variantas„Deklaruokite sveikąjį skaičių, kad išsaugotumėte eilučių skaičiųDim iRw As Integer„Priskirkite diapazoną masyvo kintamajamrnArray = Diapazonas ("A1: A10")“peržiūrėkite masyvo reikšmesIRw = LBound (rnArray) iki UBound (rnArray)“užpildykite duomenis kitu diapazonuLąstelės (iRw, 2). Vertė = rnArray (iRw, 1)Kitas iRwPabaiga Sub |
LBoundir UBoundgrąžina masyvo pradžios indeksą (apatinę ribą) ir pabaigos indeksą (viršutinę ribą), šiuo atveju 1 ir 10.
Perkelti masyvo duomenis
Masyvo duomenis taip pat galime perkelti į „Excel“ lapą. „Transpose“ leidžia rodyti duomenis horizontaliai „Excel“ lape.
Pavyzdžiui, jei „Excel“ turime būsenų sąrašą ir norime jas perkelti.
Tada galėtume paleisti šį kodą:
| 12345678 | Public Sub TestOutputTranspose ()“paskelbti masyvąDim rnArray () kaip variantas“užpildykite jį diapazonurnArray = Diapazonas ("A1: A38")“perkelti duomenisDiapazonas (langeliai (1, 3), langeliai (1, 40)). Vertė = taikymas. Perkelti (rnArray)Pabaiga Sub |
Dėl to atsirastų:
Išvestis į derinimą. Spausdinti
Mes taip pat galime išvesti masyvo vertes į derinimo langą.
| 12345678910111213 | Viešas antrinis testas „LoopArray“ ()“paskelbti masyvąDim rnArray () kaip variantas„Deklaruokite sveikąjį skaičių, kad išsaugotumėte eilučių skaičiųDim iRw As Integer„Priskirkite diapazoną masyvo kintamajamrnArray = Diapazonas ("A1: A10")„eikite per eilutes - nuo 1 iki 10„IRw“ = 1 iki „UBound“ (rnArray)“išvestį į tiesioginį langąDerinti. Spausdinti rnArray (iRw, 1)Kitas iRwPabaiga Sub |
