Ez az oktatóanyag bemutatja, hogyan lehet tömböt kimenni egy tartományba VBA használatával.
Kimeneti (nyomtatási) tömb tartományba
A tömbben tárolt adatok könnyen kinyomtathatók Excel -lapba. Ennek 3 módja van.
Adatok más tartományba történő kiadása
Egy tömböt feltölthetünk az Excel egy tartományából származó adatokkal, majd az adatokat egy másik tartományba vihetjük ki az Excelben.
12345678 | Nyilvános alvizsgálat kimenet ()'deklarálja a tömbötDim rnArray () mint változat'töltse ki a tömböt a tartománytrnArray = Tartomány ("A1: H24")'a tömböt más cellatartományba adja kiTartomány ("J1: Q24") = rnArray ()End Sub |
A teljes tömb egy kódsorban átmásolódik a tömbbe, majd teljes egészében a lap egy másik cellájába kerül.
Looping egy tömbön és az adatok kiadása
Ez a példa végigmegy egy tömbön, és egy tömböt ad ki egy tartományba.
12345678910111213 | Nyilvános altesztLoopArray ()'deklarálja a tömbötDim rnArray () mint változat'Adja meg az egész számot a sorok tárolásáhozDim iRw mint egész'Tartomány hozzárendelése egy tömbváltozóhozrnArray = Tartomány ("A1: A10")'ciklus a tömb értékei közöttIRw = LBound (rnArray) - UBound (rnArray) esetén'egy másik tartományt tölt be az adatokkalCella (iRw, 2). Érték = rnArray (iRw, 1)Következő iRwEnd Sub |
LBoundés UBoundegy tömb kezdőindexét (alsó korlátja) és befejező indexét (felső korlátja) adja vissza, ebben az esetben az 1 -es és a 10 -es értéket.
Tömbadatok transzponálása
A tömb adatait átvihetjük az Excel lapra is. A Transpose lehetővé teszi az adatok vízszintes megjelenítését az Excel -lapon.
Például, ha van egy állapotlistánk az Excelben, és át akarjuk ültetni őket.
Ezután a következő kódot futtathatjuk:
12345678 | Nyilvános alvizsgálatOutputTranspose ()'deklarálja a tömbötDim rnArray () mint változat'töltse ki a tartománytrnArray = Tartomány ("A1: A38")'transzponálja az adatokatTartomány (cellák (1, 3), cellák (1, 40)). Érték = alkalmazás. Transzponálás (rnArray)End Sub |
Ami a következőket eredményezné:
Kimenet hibakereséshez. Nyomtatás
A tömbértékeket a hibakeresési ablakba is ki tudjuk adni.
12345678910111213 | Nyilvános altesztLoopArray ()'deklarálja a tömbötDim rnArray () mint változat'Adja meg az egész számot a sorok tárolásáhozDim iRw mint egész'Tartomány hozzárendelése egy tömbváltozóhozrnArray = Tartomány ("A1: A10")'ciklus a sorokban - 1-10Az iRw = 1 UBound (rnArray) esetén'kimenet a közvetlen ablakbaHibakeresés. Nyomtatás rnArray (iRw, 1)Következő iRwEnd Sub |