Wie man zu einer Tabelle mit VBA in Excel schreiben . VBA ist eine Programmiersprache in Microsoft Office-Anwendungen verwendet, um Routineaufgaben zu automatisieren . In VBA , können Sie mit dem " ListObjects.Add " Methode, um eine neue Tabelle in Ihrem Arbeitsblatt zu erstellen. Verwenden Sie die "Range" -Methode , um Werte an Ihren Tisch , indem Sie die Spalte und Zeile Werte des Arbeitsblatt. Anleitung
1

Starten Sie Microsoft Excel. Klicken Sie auf die Registerkarte "Entwicklertools" , und wählen Sie " Visual Basic. " Klicken Sie auf das Menü "Einfügen" und wählen Sie "Module" ein neues Modul VBA-Code einfügen
2

Fügen Sie den folgenden Code , um eine neue Sub-Prozedur zu erstellen : .

Sub createAndPopulateTable ()
3

erstellen Sie zwei Variablen, die Sie verwenden, um Daten in die Tabelle schreiben wird :

Dim Osh As Worksheet Set

Osh = ActiveSheet

4

erstellen Sie die Tabelle mit fünf Zeilen mit Spalten B , C und D:

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

" myTable "

ActiveSheet.ListObjects ( " myTable " ) . TableStyle = " TableStyleLight2 "
5

Kopieren Sie den folgenden VBA-Code , um Daten zu Ihrem Tisch schreiben:

oSh.Range ( "B2" ) Wert = 1

oSh.Range ( "C2" ) Wert = 1
< p . . > oSh.Range ( "D2" ) . Value = 1

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

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

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

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

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

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

oSh.Range ( " B5 " ) . Value = " Zeile 4 Wert "

Osh . Range (" C5 " ) . Value = " Zeile 4 Wert "

oSh.Range ( " D5 " ) . Value = " Zeile 4 Wert "

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

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

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

Beenden Sie den Vorgang durch Eingabe von " End Sub " als die letzte Codezeile in Ihrem Modul . Drücken Sie "F5" um die Prozedur auszuführen .