Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come scrivere in una tabella mediante VBA in Excel

Scrivendo a 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 di colonna del foglio di lavoro . Istruzioni
1

lancio di 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 procedura secondaria : .

CreateAndPopulateTable Sub ( )
3

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

Dim Osh come manuale

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

Copia e incolla il seguente codice VBA per scrivere i dati al vostro tavolo :

oSh.Range ( " B2 " ) Valore = 1

oSh.Range ( " C2 " ) Valore = 1

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

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

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

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 = "riga 4 Valore "

oSh.Range ( " D5" ) . value = "riga 4 Valore "

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

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

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

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

 

software © www.354353.com