Hands - on ervaring is een van de beste manieren om kennis te maken met de Visual Basic for Applications ( VBA ) taal . VBA is een programmeertaal beschikbaar in alle Microsoft Office-toepassingen zoals Access en Excel . In Access , wanneer u een nieuwe database maakt , je meestal beginnen met het maken van een tafel en het invoegen van gegevens in het. Dit proces kan gemakkelijk worden geautomatiseerd door de gebruiker van VBA . In Excel kunt u taken kunt automatiseren door eerst VBA-macro's . U kunt een VBA- macro aanpassen aan uw behoeften te voldoen nadat het is opgeslagen . Wat je nodig hebt
Microsoft Office
Toon Meer Aanwijzingen
Lancering Microsoft Access 1 , klikt u op " Lege database , " en klik op de knop "Create " om een nieuwe te maken database. Klik op " Database Tools" en klik op " Visual Basic " om de VBA -editor te starten . Klik op het menu "Invoegen " en klik op "Module " om een nieuwe code -module plaatsen
Copy 2 en plak de volgende code om een tabel te maken en steek een rij van gegevens met behulp van SQL-instructies : . < Br Private Sub createTable ( ) > Dim strSQL
als Koord strSQL
= " CREATE TABLE myTbl ( fname TEKST , lNaam TEXT ) " DoCmd.RunSQL ( strSQL
) strSQL = " INSERT INTO myTbl VALUES ( ' JOHN ' , ' SMITH ' ) " DoCmd.SetWarnings
False DoCmd.RunSQL ( strSQL )
End Sub
Druk op " F5 " 3 om de procedure uit te voeren.
Lancering Microsoft Excel 4 , klikt u op het tabblad " Developer " en klik op "Record macro " om te beginnen met het opnemen van een VBA- macro . Klik op " OK " in het " Macro opnemen " dialoogvenster . Type " 2 " in A1 en " 4 " in " B1 ". Klik op " Stop met Opname" en klik op " Visual Basic " om de VBA- editor te starten
5 Vouw de map " Modules" en dubbelklik op " Module1 " om de volgende macro code te bekijken: .
Range ( " A1 " ) . Selecteer
ActiveCell.FormulaR1C1 = " 2 " Range
( " B1 " ) . Selecteer
ActiveCell.FormulaR1C1 = " 4 "
6 Voeg de volgende code toe aan de macro aan de toevoeging van A1 en B1 weer in C1 : Dim a As Integer Dim b
als Geheel < br Dim totaal > As Integer Range
( " A1 " ) . Selecteer
a = Range ( " A1 " ) . Value Range
( " B1 " ) . Selecteer
b = Range ( " B1 " ) . Value totaal
= a + b Range
( " C1 " ) . Selecteer
ActiveCell.FormulaR1C1 = totale
Druk op " F5 " 7 op de macro VBA- code uit te voeren .
|
