Tento tutoriál předvede, jak vyvést pole do rozsahu pomocí VBA.
Výstup (tisk) pole na rozsah
Data uložená v poli lze snadno odeslat do listu aplikace Excel. Existují 3 způsoby, jak to provést.
Výstup dat do jiného rozsahu
Mohli bychom pole naplnit daty z jednoho rozsahu v aplikaci Excel a poté data odeslat do jiného rozsahu v aplikaci Excel.
| 12345678 | Veřejný výstup subtestu ()'deklarujte poleDim rnArray () jako varianta'naplňte pole rozsahem.'rnArray = Rozsah ("A1: H24")'výstup pole do jiného rozsahu buněkRozsah ("J1: Q24") = rnArray ()End Sub |
Celé pole je zkopírováno do jednoho řádku kódu do pole a poté je celé vydáno do jiného rozsahu buněk na listu.
Smyčka v poli a výstup dat
Tento příklad bude procházet polem a výstup pole do rozsahu.
| 12345678910111213 | Veřejný dílčí testLoopArray ()'deklarujte poleDim rnArray () jako varianta'Deklarováním celého čísla uložte počet řádků.'Dim iRw As Integer'Přiřaďte rozsah proměnné polernArray = Rozsah ("A1: A10")'procházejte hodnotami v poliPro iRw = LBound (rnArray) Do UBound (rnArray)'naplňte data jiným rozsahem.'Buňky (iRw, 2). Hodnota = rnArray (iRw, 1)Další iRwEnd Sub |
LBounda UBoundvrací Počáteční index (Dolní vazba) a Koncový index (Horní vazba) pole, v tomto případě 1 a 10.
Transponujte data pole
Můžeme také transponovat data v poli do listu aplikace Excel. Transponovat umožňuje zobrazit data horizontálně na listu aplikace Excel.
Pokud například máme seznam stavů v Excelu a chceme je transponovat.
Potom bychom mohli spustit následující kód:
| 12345678 | Public Sub TestOutputTranspose ()'deklarujte poleDim rnArray () jako varianta“naplňte to rozsahemrnArray = Rozsah ("A1: A38")„transponovat dataRozsah (buňky (1, 3), buňky (1, 40)). Hodnota = Application.Transpose (rnArray)End Sub |
Což by mělo za následek následující:
Výstup do Debug.Print
Hodnoty pole můžeme také odeslat do ladicího okna.
| 12345678910111213 | Veřejný dílčí testLoopArray ()'deklarujte poleDim rnArray () jako varianta'Deklarováním celého čísla uložte počet řádků.'Dim iRw As Integer'Přiřaďte rozsah proměnné polernArray = Rozsah ("A1: A10")'smyčka mezi řádky - 1 až 10Pro iRw = 1 až UBound (rnArray)'výstup do bezprostředního oknaDebug.Print rnArray (iRw, 1)Další iRwEnd Sub |
