Skriva till en tabell med hjälp av Visual Basic for Applications i Microsoft Excel är inte så komplicerat som du kanske tror . VBA är en dator programmeringsspråk som används i Microsoft Office-program för att automatisera rutinuppgifter . I VBA kan du använda " ListObjects.Add " metod för att skapa en ny tabell i kalkylbladet . Använd " Range "-metoden för att lägga till värden i tabellen med hjälp av kolumn och rad värden i kalkylbladet . Instruktioner
1
Launch Microsoft Excel. Klicka på " Utvecklare " -fliken och välj " Visual Basic . " Klicka på " Infoga " -menyn och välj " modul " för att infoga en ny VBA kodmodul
2
Lägg till följande kod för att skapa en ny sub förfarande : .
Sub createAndPopulateTable ( ) Addera 3
Skapa två variabler som du använder för att skriva data till tabellen :
Dim arbetsmiljöfrågor som Arbetsblad
Set OSH = ActiveSheet
4
Skapa tabellen med fem rader , med kolumnerna B , C och D :
ActiveSheet.ListObjects.Add ( xlSrcRange , Range ( " $ B $ 1 : $ D $ 5") , , xlYes ) . Name = _
" mytable "
ActiveSheet.ListObjects ( " mytable " ) . TableStyle = " TableStyleLight2 "
5
Kopiera och klistra in följande VBA-kod för att skriva data till ditt bord :
oSh.Range ( " B2 " ) Värde = 1
oSh.Range ( " C2 " ) Värde = 1
< p . . > oSh.Range ( " D2 " ) . Värde = 1
oSh.Range ( " B3 " ) . Value = 2 Review
oSh.Range ( " C3 " ) . Value = 2
oSh.Range ( " D3 " ) . Value = 2 Review
oSh.Range ( " B4 " ) . Value = 3 bilder
oSh.Range ( " C4 " ) . Value = 3
oSh.Range ( " D4 " ) . Value = 3
oSh.Range ( " B5 " ) . Value = " rad 4 value "
arbetsmiljöfrågor . Range ( " C5 " ) . Value = " rad 4 value "
oSh.Range ( " D5 " ) . Value = " rad 4 value "
oSh.Range ( " B6 " ) . Värde = 5
oSh.Range ( " C6 " ) . Value = 5
oSh.Range ( " D6 " ) . Value = 5
6
Avsluta proceduren genom att skriva " End Sub " som sista kodrad i din modul . Tryck " F5 " för att köra proceduren .
