Hvordan skrive til en tabell ved hjelp av VBA i Excel

Skriving til et bord ved hjelp av Visual Basic for Applications i Microsoft Excel er ikke så komplisert som du kanskje tror. VBA er et programmeringsspråk som brukes i Microsoft Office-programmer for å automatisere rutineoppgaver. I VBA, kan du bruke "ListObjects.Add" metode for å lage en ny tabell i regnearket. Bruk "Range" metode for å legge til verdier i tabellen ved hjelp av rad- og kolonneverdiene i regnearket.

Bruksanvisning

1 Start Microsoft Excel. Klikk på "Utvikler" fanen, og velg "Visual Basic." Klikk på "Insert" -menyen og velg "Module" å sette inn en ny VBA kodemodul.

2 Legg til følgende kode for å opprette en ny under prosedyre:

Sub createAndPopulateTable ()

3 Lag to variabler som du vil bruke til å skrive data til tabellen:

Dim oSh As Worksheet

Sett OSH = Active

4 Opprett tabellen med fem rader, ved hjelp av kolonnene B, C og D:

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

"MyTable"

ActiveSheet.ListObjects ( "MyTable"). TableStyle = "TableStyleLight2"

5 Kopier og lim inn følgende VBA-kode for å skrive data til tabellen:

oSh.Range("B2").Value = 1

oSh.Range ( "C2"). Verdi = 1

oSh.Range ( "D2"). Verdi = 1

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

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

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

oSh.Range ( "B4"). Verdi = 3

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

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

oSh.Range ( "B5"). value = "rad fire verdi"

oSh.Range ( "C5"). value = "rad fire verdi"

oSh.Range ( "D5"). value = "rad fire verdi"

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

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

oSh.Range ( "D6"). Verdi = 5

6 Avslutt prosedyren ved å skrive "End Sub" som den siste linjen med kode i modulen. Trykk "F5" for å kjøre prosedyren.