Hands - on erfaring er en af ​​de bedste måder at få indført til Visual Basic for Applications ( VBA ) sprog . VBA er en computer programmeringssprog til rådighed i alle Microsoft Office- programmer som Access og Excel . I Access , når du opretter en ny database du typisk begynde med at oprette en tabel og indsætte data i den. Denne proces kan nemt automatiseres gennem brugeren af ​​VBA . I Excel , kan du automatisere opgaver ved første optagelse VBA-makroer . Du kan ændre et VBA-makro til at opfylde dine behov , efter at den er blevet registreret. Ting du skal
Microsoft Office
Vis Flere Instruktioner
1

Launch Microsoft Access , klik på " Tom database " og klik på knappen "Opret" for at oprette et nyt databasen . Klik på " Database Tools" og klik på " Visual Basic " for at starte VBA editor. Klik på " Indsæt" menuen og klikke på " Modul " for at indsætte en ny kode modul
2

Kopier og indsæt følgende kode til at oprette en tabel og indsætte en række af data ved hjælp af SQL-sætninger : . < Br >

Private Sub createTable ()

Dim strSQL As String

strSQL = " CREATE TABLE myTbl ( fname TEKST , lname TEXT) "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO myTbl VALUES ( ' JOHN ', ' SMITH ' ) "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )
< p> End Sub
3

Tryk på " F5 " for at køre proceduren.
4

Launch Microsoft Excel , skal du klikke på "Udvikler " fanen og klik på " Record Macro "for at begynde at optage et VBA-makro . Klik på " OK " i " Indspil makro " dialogvindue . Type " 2" i A1 og "4 " i " B1 ". Klik på " Stop Recording" , og klik på " Visual Basic " for at starte VBA editoren
5

Udvid " Moduler " mappen og dobbeltklik på " Module1 " for at se følgende makrokode : .

Range (" A1 "). Vælg

ActiveCell.FormulaR1C1 = "2 "

Range (" B1 "). Vælg

ActiveCell.FormulaR1C1 = "4 "
6

Føj følgende kode til makroen for at vise tilsætning af A1 og B1 i C1 : Hej

Dim a As Integer

Dim b As Integer < br >

Dim total As Integer

Range (" A1 "). Vælg

a = Range (" A1 "). Value

Range (" B1 " ) . Vælg

b = Range (" B1 "). Value

total = a + b

Range (" C1 "). Vælg

ActiveCell.FormulaR1C1 = total
7

Tryk på " F5 " for at køre makroen VBA-kode.