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