Tento tutoriál predvedie, ako vytvoriť pole na určitý rozsah pomocou jazyka VBA.
Výstup (tlač) pole na rozsah
Údaje uložené v poli je možné jednoducho preniesť do listu programu Excel. Existujú 3 spôsoby, ako to urobiť.
Výstup údajov do iného rozsahu
Mohli by sme pole naplniť údajmi z jedného rozsahu v programe Excel a potom údaje odoslať do iného rozsahu v programe Excel.
12345678 | Verejný výstup subtestu ()'deklarujte poleDim rnArray () ako variant'naplňte pole rozsahomrnArray = rozsah ("A1: H24")'výstup poľa do iného rozsahu buniekRozsah ("J1: Q24") = rnArray ()Koniec pod |
Celé pole je skopírované do jedného riadka kódu do poľa a potom je celé odoslané do iného rozsahu buniek v hárku.
Smyčka cez pole a výstup údajov
V tomto príklade sa bude cyklicky prechádzať poľom a pole sa bude vydávať do rozsahu.
12345678910111213 | Public Sub TestLoopArray ()'deklarujte poleDim rnArray () ako variant'Deklarujte celé číslo na uloženie počtu riadkovDim iRw ako celé číslo'Priradiť rozsah k premennej poľarnArray = rozsah ("A1: A10")'prechádzajte hodnotami v poliPre iRw = LBound (rnArray) Do UBound (rnArray)„naplňte údajmi iný rozsahBunky (iRw, 2). Hodnota = rnArray (iRw, 1)Ďalej iRwKoniec pod |
LBounda UBoundvráti počiatočný index (dolná hranica) a koncový index (horná hranica) poľa, v tomto prípade 1 a 10.
Transponujte údaje poľa
Údaje v poli môžeme tiež transponovať do listu programu Excel. Transpozícia vám umožňuje zobraziť údaje horizontálne na hárku programu Excel.
Napríklad, ak máme zoznam stavov v programe Excel a chceme ich transponovať.
Potom by sme mohli spustiť nasledujúci kód:
12345678 | Verejný čiastkový testOutputTranspose ()'deklarujte poleDim rnArray () ako variant'naplňte to rozsahomrnArray = rozsah ("A1: A38")„transponovať údajeRozsah (bunky (1, 3), bunky (1, 40)). Hodnota = aplikácia. Transponovať (rnArray)Koniec pod |
Čo by malo za následok nasledovné:
Výstup do Debug.Print
Hodnoty poľa môžeme tiež odoslať do okna ladenia.
12345678910111213 | Public Sub TestLoopArray ()'deklarujte poleDim rnArray () ako variant'Deklarujte celé číslo na uloženie počtu riadkovDim iRw ako celé číslo'Priradiť rozsah k premennej poľarnArray = rozsah ("A1: A10")'slučku v riadkoch - 1 až 10Pre iRw = 1 až UBound (rnArray)'výstup do bezprostredného oknaDebug.Print rnArray (iRw, 1)Ďalej iRwKoniec pod |