praktisk erfarenhet är en av de bästa sätten att bli introducerad till Visual Basic for Applications ( VBA ) språket . VBA är en dator programmeringsspråk finns i alla Microsoft Office-program , t.ex. Access och Excel . I Access , när du skapar en ny databas , börjar du vanligtvis genom att skapa en tabell och infoga data i den. Denna process kan lätt automatiseras genom användaren av VBA . I Excel kan du automatisera uppgifter från första inspelning VBA-makron . Du kan ändra ett VBA-makro för att möta dina behov efter att det har registrerats . Saker du behöver
Microsoft Office
Visa fler instruktioner
1
Launch Microsoft Access , klicka på " Tom databas , " och klicka på " Skapa " -knappen för att skapa ett nytt databas. Klicka på "Database Tools " och klicka på " Visual Basic " för att starta VBA editorn . Klicka på " Infoga " -menyn och klicka på " modul " för att infoga en ny kodmodul
2
Kopiera och klistra in följande kod för att skapa en tabell och infoga en rad med data med SQL-uttryck : .
Private Sub createTable ( ) katalog
Dim strSQL As String
strSQL = " CREATE TABLE myTbl ( fname TEXT , lname TEXT ) "
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO myTbl VALUES ( ' JOHN ' , ' SMITH ' ) "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) katalog
End Sub
3
Tryck " F5 " för att köra proceduren .
4
Launch Microsoft Excel , klicka på " Utvecklare " fliken och klicka på " Record Macro " för att börja spela in ett VBA-makro . Klicka på " OK " i " Spela in makro " dialogrutan . Skriv " 2 " i A1 och " 4 " i " B1 . " Klicka på " Stop Recording " och klicka på " Visual Basic " för att starta VBA editorn
5
Expandera " Modules " -mappen och dubbelklicka på " Module1 " för att visa följande makrokoden : .
Range ( " A1 " ) . Välj
ActiveCell.FormulaR1C1 = " 2 "
Range ( " B1 " ) . Välj
ActiveCell.FormulaR1C1 = " 4 "
6
Lägg till följande kod i makrot för att visa tillsättning av A1 och B1 i C1 :
Dim a As Integer
Dim b As Integer
Dim totalt As Integer
Range ( " A1 " ) . Välj
a = Range ( " A1 " ) . Value
Range ( " B1 " ) . Välj
b = Range ( " B1 " ) . Value
totalt = a + b på
Range ( " C1 " ) . Välj
ActiveCell.FormulaR1C1 = total
7
Tryck " F5 " för att köra makrot VBA-kod .
