Tämä opetusohjelma osoittaa, kuinka matriisi tulostetaan alueelle VBA: ta käyttäen.
Tulostus (tulostus) Taulukko alueelle
Matriisiin tallennetut tiedot voidaan helposti tulostaa Excel -taulukkoon. On 3 tapaa tehdä tämä.
Tulosta tiedot eri alueelle
Voisimme täyttää taulukon Excelin yhden alueen tiedoilla ja tulostaa tiedot sitten eri alueelle Excelissä.
| 12345678 | Julkinen alitesti Lähtö ()'julistaa taulukonDim rnArray () Varianttina'täyttää taulukon alueellarnArray = Alue ("A1: H24")'lähettää taulukon eri solualueelleAlue ("J1: Q24") = rnArray ()End Sub |
Koko matriisi kopioidaan yhdellä koodirivillä taulukkoon ja tulostetaan sitten kokonaisuudessaan taulukon eri solualueelle.
Silmukan kiertäminen matriisin läpi ja tietojen tuottaminen
Tämä esimerkki kiertää matriisin läpi ja antaa taulukon alueelle.
| 12345678910111213 | Julkinen alitestiLoopArray ()'julistaa taulukonDim rnArray () Varianttina'Ilmoita kokonaisluku rivien lukumäärän tallentamiseksiDim iRw kokonaislukuna'Määritä alue taulukkomuuttujallernArray = Alue ("A1: A10")'kierrä taulukon arvot läpiIRw = LBound (rnArray) - UBound (rnArray)'täyttää tiedot eri alueilleSolut (iRw, 2). Arvo = rnArray (iRw, 1)Seuraava iRwEnd Sub |
LBoundja UBoundpalauttaa taulukon alkuindeksin (alaraja) ja lopetusindeksin (yläraja), tässä tapauksessa 1 ja 10.
Transponoi matriisitiedot
Voimme myös siirtää taulukon tiedot Excel -taulukkoon. Transponoinnin avulla voit näyttää tiedot vaakasuunnassa Excel -taulukon poikki.
Jos esimerkiksi Excelissä on luettelo tiloista ja haluamme siirtää ne osaksi kansallista lainsäädäntöä.
Voisimme sitten suorittaa seuraavan koodin:
| 12345678 | Julkinen alitesti Lähtösiirto ()'julistaa taulukonDim rnArray () Varianttina'täytä se alueellarnArray = Alue ("A1: A38")'siirtää tiedotAlue (Solut (1, 3), Solut (1, 40)). Arvo = Sovellus. Transponoi (rnArray)End Sub |
Mikä johtaisi seuraavaan:
Tulos Debug.Print
Voimme myös lähettää taulukon arvot virheenkorjausikkunaan.
| 12345678910111213 | Julkinen alitestiLoopArray ()'julistaa taulukonDim rnArray () Varianttina'Ilmoita kokonaisluku rivien lukumäärän tallentamiseksiDim iRw kokonaislukuna'Määritä alue taulukkomuuttujallernArray = Alue ("A1: A10")'silmukka rivien läpi - 1-10IRw = 1 UBoundiin (rnArray)'tulosta välittömään ikkunaanDebug.Print rnArray (iRw, 1)Seuraava iRwEnd Sub |
