VBA ( Visual Basic for Applications ) indeholder evnen til at skrive instrukser oprette en makro , der vil efterligne bruge en lommeregner til at indtaste en række tal , og derefter beregner gennemsnittet. Koden er kun 13 linjer lang. Det kunne være nyttigt i nogle af de Microsoft Office- programmer uden en indbygget lommeregner. Da Excel indeholder en gennemsnitlig funktion, ville der ikke være nogen grund til at bruge denne makro i Excel. Men som i dette eksempel , hvor makroen er bygget i Microsoft Word , kan det gøre noget fornuft . Instruktioner
1
Åbn et Microsoft Office-program , der understøtter VBA ( Visual Basic for Applications ) . I dette eksempel bruger Microsoft Word .
2
Klik på " Developer " efterfulgt af " Visual Basic ", som er noteret på længst til venstre på en menu , der vises i Developer -gruppen. Dette åbner VBA editeringsvindue
3
Indtast følgende kodelinjer nøjagtigt som de vises nedenfor: .
Sub AverageMyNumbers () Dim strData som stringDim i, sglNbr , sglSubT , sglAverage da Singlei = 0Do Indtil strData = "X" strData = InputBox ("Indtast tallene skal gennemsnit , en ad gangen , tryk på 'Enter ' for at fortsætte til det næste nummer. Indtast et kapital X når færdig . " ;) sglNbr = Val ( strData ) sglSubT = sglNbr + sglSubTi = i + 1LoopsglAverage = sglSubT /(i - 1 ) MsgBox ("The gennemsnit af disse numre er" & sglAverage ) End Sub
4
Test nøjagtigheden af programmet ved at angive en række tal på papir , i alt dem og dividere med antallet af enkelte poster. Tryk på " F5 " for at køre makroen og beregne gennemsnit. Følg anvisningerne , og indtast den samme talrække , slutter med en kapital X. Hvis resultaterne ikke stemmer overens, kontrollere rigtigheden af koden , du har indtastet , sammenligne det til trin 3. .
5
Klik på " makroer" i Word-dokumentet . Gemme makroen i " Normal.dotm ", hvis du ønsker at bruge den i alle Word-dokumenter. Andre muligheder eksisterer såsom gemme kun til brug i det aktive dokument , gemme som en del af en bestemt skabelon , eller gemme i alle aktive skabeloner og dokumenter.