Skrive til en tabell 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 "-metoden for å legge til verdier i tabellen ved hjelp av kolonne og rad verdier i regnearket . Instruksjoner
en
Launch Microsoft Excel . Klikk på " Developer "-kategorien , og velg " Visual Basic. " Klikk på " Insert"-menyen og velg " Module " for å sette inn en ny VBA-kode modul
2
Legg til følgende kode for å opprette en ny sub prosedyre : .
Sub createAndPopulateTable ( )
3
Lag to variabler som du vil bruke til å skrive data til tabellen :
Dim OSH som regneark
Set Osh = ActiveSheet
4
Lag tabellen med fem rader , med kolonner 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 ") Verdi = 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 ") . Verdi = " rad fire value"
OSH . Range (" C5 ") . Verdi = " rad fire value"
oSh.Range ( " D5 ") . Verdi = " rad fire value"
oSh.Range ( " B6 " ) . Verdi = 5
oSh.Range ( " C6 ") . Verdi = 5 bilder
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.