Ako písať do tabuľky pomocou jazyka VBA v programe Excel

Zápis do tabuľky pomocou jazyka Visual Basic for Applications v programe Microsoft Excel nie je tak zložité , ako si môžete myslieť . VBA je programovací jazyk použitý v aplikáciách Microsoft Office pre automatizáciu rutinných úloh . Vo VBA , môžete použiť metódu " ListObjects.Add " pre vytvorenie novej tabuľky v liste . Pomocou metódy " Range " pre pridanie hodnôt do tabuľky pomocou hodnôt stĺpcov a riadkov na liste . Pokyny dovolená 1

Spustite program Microsoft Excel . Kliknite na kartu " Vývojár " , a vyberte " Visual Basic " . Kliknite na " Vložiť " menu a vybrať " modul " pre vloženie nového modulu kódu VBA
2

Pridajte nasledujúci kód vytvoriť nový čiastkové postup : .

Sub createAndPopulateTable ( )
3

Vytvorte dve premenné , ktoré budete používať pre zápis dát do tabuľky :

Dim BOZP ako list

Set OSH = ActiveSheet
stránka 4

Vytvorte tabuľku s piatimi riadkami , pomocou stĺpce B , C a D :

ActiveSheet.ListObjects.Add ( xlSrcRange , Range ( " $ B $ 1 : $ D $ 5 " ) , , xlYes ) . Name = _

" myTable "

ActiveSheet.ListObjects ( " myTable " ) . TableStyle = " TableStyleLight2 "
5

skopírujte a vložte nasledujúci VBA kód zapísať dáta do tabuľky : ..

oSh.Range ( " B2 " ) Value = 1

oSh.Range ( " C2 " ) Value = 1

oSh.Range ( " D2 " ) . Value = 1 celým

oSh.Range ( " B3 " ) . Value = 2 celým

oSh.Range ( " C3 " ) . Value = 2

oSh.Range ( " D3 " ) . Value = 2 celým

oSh.Range ( " B4 " ) . Value = 3 celým

oSh.Range ( " C4 " ) . value = 3

oSh.Range ( " D4 " ) . Value = 3

oSh.Range ( " B5 " ) . Value = " riadku 4 hodnota "

BOZP . Range ( " C5 " ) . Value = " riadku 4 hodnota "

oSh.Range ( " D5 " ) . Value = " riadku 4 hodnota "

oSh.Range ( " B6 " ) . Value = 5

oSh.Range ( " C6 " ) . Value = 5

oSh.Range ( " D6 " ) . Value = 5
6

Dokončite postup zadaním " End Sub " ako posledný riadok kódu vo vašom module . Stlačením tlačidla " F5 " spustiť procedúru .

• Predchádzajúca strana: Ako Potvrďte záznamy vložený do Excelu 
• Ďalšia strana: Ako zobraziť obsah pre témy pomoci v programe Excel