Hands-on esperienza è uno dei modi migliori per ottenere introdotto per il Visual Basic, Applications Edition (VBA) la lingua. VBA è un linguaggio di programmazione disponibile in tutte le applicazioni di Microsoft Office, come Access e Excel. In Access, quando si crea un nuovo database, in genere si inizia con la creazione di un tavolo e l'inserimento dei dati in esso. Questo processo può essere facilmente automatizzato tramite l'uso di VBA. In Excel, è possibile automatizzare le attività per le macro VBA prima registrazione. È possibile modificare una macro VBA per soddisfare le vostre esigenze dopo che è stato registrato.

istruzione

1 Avviare Microsoft Access, scegliere "Database vuoto" e fare clic sul pulsante "Crea" per creare un nuovo database. Fai clic su "Strumenti database" e fare clic su "Visual Basic" per lanciare l'editor VBA. Fare clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice.

2 Copia e incolla il seguente codice per creare una tabella e inserire una riga di dati utilizzando le istruzioni SQL:

Private Sub CreateTable ()

Dim strSQL As String

strSQL = "CREATE TABLE MyTbl (fName TESTO, LName TESTO)"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORI MyTbl ( 'John', 'Smith')"

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

End Sub

3 Premere il tasto "F5" per eseguire la procedura.

4 Avviare Microsoft Excel, fare clic sulla scheda "Sviluppatore" e fare clic su "Registra macro" per avviare la registrazione di una macro VBA. Fai clic su "OK" nella finestra di dialogo "Macro Record". Tipo "2" in A1 e "4" in "B1". Fai clic su "Stop Recording" e fare clic su "Visual Basic" per lanciare l'editor VBA.

5 Espandere la cartella "Moduli" e fare doppio clic su "Module1" per visualizzare il codice seguente macro:

Range ( "A1"). Selezionare

ActiveCell.FormulaR1C1 = "2"

Range ( "B1"). Selezionare

ActiveCell.FormulaR1C1 = "4"

6 Aggiungere il seguente codice alla macro per visualizzare l'aggiunta di A1 e B1 in C1:

Dim a as Integer

Dim b As Integer

totale Dim As Integer

Range ( "A1"). Selezionare

a = Range ( "A1"). Value

Range ( "B1"). Selezionare

b = Range ( "B1"). Valore

totale = a + b

Range ( "C1"). Selezionare

ActiveCell.FormulaR1C1 = totale

7 Premere il tasto "F5" per eseguire il codice macro VBA.