Nwlapcug.com


Come scrivere in una tabella utilizzando VBA in Excel

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 operazioni di routine. In VBA, è possibile utilizzare il metodo "ListObjects" per creare una nuova tabella nel foglio di lavoro. Utilizzare il metodo "Range" per aggiungere i valori alla tabella utilizzando i valori di riga e di colonna del foglio di lavoro.

Istruzioni

1

Avviare Microsoft Excel. Scegliere la scheda "Sviluppo" e selezionare "Visual Basic". Fare clic sul menu "Inserisci" e scegliere "Modulo" per inserire un nuovo modulo di codice VBA.

2

Aggiungere il codice seguente per creare una nuova routine sub:

Sub createAndPopulateTable()

3

Creare due variabili che si utilizzerà per scrivere i dati nella tabella:

Dim oSh As Worksheet

Set oSh = ActiveSheet4

Creare la tabella con cinque righe, 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").Value = 1

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").Value = 3

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

oSh.Range("B5").Value = "row 4 value"

oSh.Range("C5").Value = "row 4 value"

oSh.Range("D5").Value = "row 4 value"

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

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

oSh.Range("D6").Value = 56

Termina la procedura digitando "End Sub" come la riga finale del codice nel modulo. Premere "F5" per eseguire la procedura.