Schrijven naar een tafel met behulp van Visual Basic for Applications in Microsoft Excel is niet zo ingewikkeld als u misschien denkt . VBA is een programmeertaal gebruikt in Microsoft Office-toepassingen om routinetaken te automatiseren . In VBA kunt u de " ListObjects.Add " methode gebruiken om een nieuwe tabel in uw werkblad . Gebruik de " Range "-methode om waarden aan de tabel wilt toevoegen door gebruik te maken van de kolom en rij waarden van het werkblad . Instructies Lancering Microsoft Excel 1 . Klik op het tabblad " Developer " en selecteer " Visual Basic . " Klik op het menu "Invoegen " en kies " Module " om een nieuwe VBA-code -module plaatsen 2 Voeg de volgende code om een nieuwe sub- procedure te maken: . Sub createAndPopulateTable ( ) op Twitter 3 Maak twee variabelen die je zal gebruiken om gegevens naar de tabel : Dim Osh als Aantekenvel Set OSH = ActiveSheet Goedkope 4 Maak de tafel met vijf rijen , met behulp van de kolommen B , C en D : ActiveSheet.ListObjects.Add ( xlSrcRange , Range ( " $ B $ 1: $ D $ 5 " ) , , xlYes ) . Naam = _ " myTable " ActiveSheet.ListObjects ( " myTable " ) . TableStyle = " TableStyleLight2 " 5 Kopieer en plak de volgende VBA- code om gegevens naar uw tafel te schrijven : oSh.Range ( " B2 " ) Value = 1 oSh.Range ( " C2 " ) Value = 1 oSh.Range ( " D2 " ) . Value = 1 oSh.Range ( " B3 " ) . Value = 2 oSh.Range ( " C3 " ) . Value = 2 < br oSh.Range > ( " D3 " ) . Value = 2 oSh.Range ( " B4 " ) . Value = 3 oSh.Range ( " C4 " ) . value = oSh.Range 3 ( " D4 " ) . value = oSh.Range 3 ( " B5 " ) . value = " rij 4 value " OSH . Range ( " C5 " ) . value = " rij 4 value " oSh.Range ( " D5 " ) . value = " rij 4 value " oSh.Range ( " B6 " ) . Value = 5 oSh.Range ( " C6 " ) . Value = oSh.Range 5 ( " D6 " ) . Value = 5 6 Voltooi de procedure door te typen " End Sub " als de laatste regel code in je module . Druk op " F5 " om de procedure uit te voeren.
|