In questo articolo verrà illustrato come inserto dati in un Excel tavolo utilizzando VBA codice Con l'aiuto delle proprietà e dei metodi incorporati di Excel, possiamo facilitare la funzionalità di aggiunta o sovrascrittura dei dati in una tabella in modo semplice. Vediamo gli esempi per comprendere chiaramente i metodi e i codici VBA.

Scarica il quaderno di esercizi

Scaricate questo quaderno di esercizi per esercitarvi durante la lettura di questo articolo.

4 esempi per inserire dati in una tabella usando VBA in Excel

Diciamo che abbiamo un listino di vendita di un negozio con dettagli quali la data dell'ordine, il nome del prodotto, la quantità, il prezzo unitario e il prezzo totale.

Come creare una tabella in Excel

A girare il set di dati in un Tabella Excel , eseguire le seguenti operazioni.

• Selezionare il intero set di dati .
• Vai al Scheda Inserisci dal Nastro di Excel .
• Cliccare sul Tabella opzione.

• Infine, fare clic sul pulsante Pulsante OK nel Finestra Crea tabella.

• Siamo riusciti a convertito il set di dati in un Tabella Excel .

Per inserire i dati in una tabella di Excel, utilizzeremo diversi strumenti Funzioni VBA e proprietà nel nostro codice La sezione seguente descrive come aperto e scrivere il codice nel editor di Visual Basic.

Scrivere codice nell'editor di Visual Basic

Seguire il passi a aperto il editor di visual basic e scriverci del codice.

• Vai al sito Sviluppatore dalla scheda Nastro di Excel .
• Cliccare il Opzione Visual Basic.

• Nel Visual Basic per le applicazioni fare clic sul pulsante Inserire un menu a tendina a selezionare il Nuovo modulo

Ora che un nuovo modulo è aperto scrivere un po' di codice e premere F5 a correre.

1. Inserire dati nell'ultima riga di una tabella utilizzando VBA in Excel

In questo esempio, si utilizzerà un elemento VBA codice a aggiungere a nuova riga al fondo del tavolo e poi inserire i dati Nella nostra tabella abbiamo 4 file di dati Per aggiungere l'opzione 5° uno , copia e pasta il seguente codice nell'editor di Visual Basic.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = "1/1/2022" .Range(2) = "Apple" .Range(3) = 5 .Range(4) = 1.77 End With End Sub 

Premere F5 a corsa il codice.

Abbiamo inserito a nuova riga di dati al fondo del tavolo esistente .

Codice Spiegazione:

• Nel nostro codice, abbiamo usato l'opzione Oggetto ListObjects di Excel VBA per afferrare il tavolo con il suo nome Per ulteriori informazioni, ciascuno del Oggetto-lista è un oggetto tavolo sul foglio di lavoro Per ottenere il nome della tabella, clicca sul tavolo > clicca sul Scheda Progettazione tabella nel Nastro di Excel.

• Poi, abbiamo usato il metodo ElencoRighe . Aggiungi metodo per aggiungere un nuova riga nel tavolo . questo metodo prende due argomenti : Posizione e SempreInserito .

Inserendo un numero intero , possiamo specificare il valore posizione relativa del riga aggiunta di recente nel tavolo In questo esempio, abbiamo lasciato in bianco il argomento di posizione , come risultato, un nuova riga è stato aggiunto al fondo del tavolo .

• Infine, abbiamo impostato i dati in ciascuno del celle del nuovo riga aggiunta In questo caso, i dati sono stati .Range(1) = "1/1/2022" come Data ordine, .Range(2) = "Mela" come Prodotto, .Range(3) = 5 come Quantità, .Range(4) = 1,77 come Prezzo unitario.

Per saperne di più: Nome della tabella di Excel: tutto quello che c'è da sapere

2. Eseguire un codice VBA per inserire dati in una riga specifica di una tabella in Excel

In questa illustrazione, si procederà a aggiungere una riga di dati a riga specifica relativa alla tabella utilizzando lo stesso pezzo di codice che abbiamo usato nell'esempio precedente. In questo caso, abbiamo solo bisogno di specificare il Argomento della posizione del Metodo ListRows.Add nel nostro codice. Diciamo che vogliamo aggiungere i dati di vendita per Arancione con dettagli in numero di riga 3 relativo al tavolo esistente Perché questo accada, copia e pasta il seguente codice nell'editor di codice visivo.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "Orange" .Range(3) = 3 .Range(4) = 2.14 End With End Sub 

Esecuzione del codice da parte di premendo F5 ha inserito il dati di vendita per Orange nel 3a riga relativa alla tabella .

Per saperne di più: Codice VBA di Excel per ogni riga di una tabella (aggiunta, sovrascrittura, eliminazione, ecc.)

Letture simili

• Somma dei campi calcolati divisa per il conteggio nella tabella Pivot
• Come illustrare la distribuzione di frequenza relativa in Excel
• [Impossibile raggruppare le date nella tabella pivot: 4 possibili soluzioni
• Come calcolare la distribuzione percentuale di frequenza in Excel (2 metodi)
• La tabella pivot non si aggiorna (5 problemi e soluzioni)

3. Inserire e sovrascrivere dati in una tabella utilizzando VBA in Excel

Qui illustreremo come sovrascrivere il dati esistenti in un tabella invece di inserimento a nuova riga di dati Per farlo, è necessario utilizzare l'opzione Proprietà ListObject.ListRows di Excel invece del Proprietà ListRows.Add abbiamo usato prima . il Proprietà ListObject.ListRows prende anche numero di riga ( Intero valore ) come suo argomento Diciamo che vogliamo cambiamento il prezzo unitario del Arancione da 2,14 a 2,35 che noi inserito nel esempio precedente . Copia e pasta il seguente codice nell'editor di Visual Basic.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "Orange" .Range(3) = 3 .Range(4) = 2.35 End With End Sub 

Nel nostro codice, noi set il argomento per il Proprietà ListObject.ListRows come 3 dove il dati per Arancione appartiene a . il codice premendo F5 e vedere il differenza .

Il codice ha modificato solo il prezzo unitario del dati a numero di riga 3 relativo al tavolo .

Per saperne di più: Come inserire o eliminare righe e colonne da una tabella di Excel

4. Eseguite un codice VBA per inserire i dati in una tabella di Excel in base all'input dell'utente

In questo esempio, si procederà a inserto il nome della tabella e dettagli della vendita di un prodotto come input dell'utente piuttosto che codice fisso nel Codice VBA ogni volta Seguire le istruzioni riportate di seguito.

• Copia e pasta il seguente codice nell'editor di codice visivo.

 Sub InsertDataIntoTable() Dim tableName As ListObject Dim A, B, C, D, tName As String tName = Application.InputBox(Prompt:="Nome della tabella: ", Type:=2) A = Application.InputBox(Prompt:="Data ordine: ", Type:=2) B = Application.InputBox(Prompt:="Nome prodotto: ", Type:=2) C = Application.InputBox(Prompt:="Quantità: ", Type:=2) D = Application.InputBox(Prompt:="Prezzo unitario: ",Type:=2) Set tableName = ActiveSheet.ListObjects(tName) Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = A .Range(2) = B .Range(3) = C .Range(4) = D End With End Sub 

• Stampa F5 a corsa il codice.
• Mettere il nome del tavolo nel casella di input ( Tabella1 in questo esempio) e premere OK.

• Quindi inserire i valori per Data dell'ordine, Nome del prodotto, Quantità, e Prezzo unitario nel caselle di input che sono apparsi in sequenza In questo esempio, i valori utilizzati sono 1/1/2022, Arancione, 3, e 35.

• Di conseguenza, abbiamo un nuova riga con il dati inseriti al fondo del tavolo .

Per saperne di più: Suggerimenti per la formattazione delle tabelle di Excel - Cambiare l'aspetto della tabella

Note

Quando aggiunto a nuova riga con dati utilizzando il codice VBA, il formato , e formule ottenere trasportato alla nuova riga automaticamente Nel nostro esempio, il Prezzo totale colonna uscite il prodotto delle colonne Quantità , e Prezzo unitario . Noi inserito solo il Quantità e Valori del prezzo unitario ; il nuova riga è stato inserito con il prodotto di questi due valori nel Colonna Prezzo totale.

Conclusione

Ora sappiamo come inserire dati in una tabella di Excel utilizzando il codice VBA. Speriamo che questo vi aiuti a utilizzare questi metodi con maggiore sicurezza. Per qualsiasi domanda o suggerimento, non dimenticate di inserirlo nella casella dei commenti qui sotto.