La scrittura di una tabella utilizzando Visual Basic, Applications Edition in Microsoft Excel non è così complicato come si potrebbe pensare. VBA è un linguaggio di programmazione utilizzato in applicazioni di Microsoft Office per automatizzare le attività di routine. In VBA, è possibile utilizzare il metodo "ListObjects.Add" per creare una nuova tabella nel foglio di lavoro. Utilizzare il metodo "Gamma" per aggiungere valore al vostro tavolo, utilizzando i valori di riga e colonna del foglio di lavoro.

istruzione

1 Avviare Microsoft Excel. Fare clic sulla scheda "Sviluppatore", e selezionare "Visual Basic". Fare clic sul menu "Inserisci" e scegliere "modulo" per inserire un nuovo modulo di codice VBA.

2 Aggiungere il seguente codice per creare una nuova routine Sub:

Sub createAndPopulateTable ()

3 Creare due variabili che si intende utilizzare per scrivere i dati nella tabella:

Dim oSh As Worksheet

Set Osh = ActiveSheet

4 Creare la tabella con cinque file, utilizzando le colonne B, C e D:

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

"MyTable"

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

5 Copiare e incollare il seguente codice VBA per scrivere i dati al vostro tavolo:

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

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

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

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

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

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

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

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

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

oSh.Range ( "B5"). Value = "riga 4 valore"

oSh.Range ( "C5"). Value = "4 valore di riga"

oSh.Range ( "D5"). Value = "4 valore di riga"

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

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

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

6 Terminare la procedura digitando "End Sub", come la riga finale di codice nel modulo. Premere il tasto "F5" per eseguire la procedura.