Skrivning til en tabel ved hjælp af Visual Basic for Applications i Microsoft Excel er ikke så kompliceret som du måske tror . VBA er et edb-programmering sprog, der anvendes i Microsoft Office-programmer til at automatisere rutineopgaver. I VBA kan du bruge " ListObjects.Add " metode til at oprette en ny tabel i regnearket. Brug " Range " metode til at tilføje værdier til din tabel ved hjælp af kolonne og række værdier i regnearket. Instruktioner
1

Launch Microsoft Excel. Klik på " Udvikler "-fanen og vælg " Visual Basic ". Klik på " Indsæt" menuen og vælg " Modul " for at indsætte en ny VBA-kode modul
2

Føj følgende kode til at oprette en ny sub procedure : .

Sub createAndPopulateTable ()
3

Opret to variabler, som du vil bruge til at skrive data til tabellen :

Dim Osh som Regneark

Set Osj = ActiveSheet

4

Opret tabel med fem rækker , ved hjælp af kolonnerne B , C og D : Hej

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

" MinTabel "

ActiveSheet.ListObjects ( " MinTabel "). tabelstiler = " TableStyleLight2 "
5

Kopier og indsæt følgende VBA-kode til at skrive data til din tabel :

oSh.Range ( " B2 " ) Værdi = 1

oSh.Range ( " C2 " ) Værdi = 1

oSh.Range ( " D2 "). Værdi = 1

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

oSh.Range ( " C3 "). Værdi = 2 < br >

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

oSh.Range ( " B4 "). Værdi = 3 fotos

oSh.Range ( " C4 "). værdi = 3 fotos

oSh.Range ( " D4 "). værdi = 3 fotos

oSh.Range ( " B5 "). value = "række 4 værdien "

Osj . Range (" C5 "). value = "række 4 værdien "

oSh.Range ( " D5 "). value = "række 4 værdien "

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

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

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

Afslut proceduren ved at skrive " End Sub " som sidste linje kode i dit modul . Tryk på " F5 " for at køre proceduren.