VBA ( Visual Basic for Applications ) inkluderar möjligheten att skriva instruktioner skapar ett makro som ska efterlikna använda en miniräknare för att skriva en serie siffror och sedan beräkna medelvärdet . Koden är bara 13 rader lång . Det kan vara användbart i vissa Microsoft Office-program utan en inbyggd räknare . Eftersom Excel innehåller ett genomsnitt funktion , skulle det inte finnas någon anledning att använda detta makro i Excel . Men , som i detta exempel , där makrot är byggd i Microsoft Word , kan det göra någon mening . Instruktioner
1
Öppna ett Microsoft Office-program som har stöd för VBA ( Visual Basic for Applications ) . För detta exempel använder Microsoft Word .
2
Klicka " Utvecklare " följt av " Visual Basic ", som är noterat på den längst till vänster av en meny som visas i Developer -gruppen . Detta öppnar VBA redigeringsfönstret
3
ange följande kod rader exakt som de visas nedan : .
Sub AverageMyNumbers ( ) Dim strData som stringDim jag , sglNbr , sglSubT , sglAverage som Singlei = 0Do tills strData = " X " strData = InputBox ( " Ange siffrorna som medelvärdet , en i taget , tryck ' Enter ' för att fortsätta till nästa nummer . Ange en huvudstad X när du är klar . " ;) sglNbr = Val ( strData ) sglSubT = sglNbr + sglSubTi = i + 1LoopsglAverage = sglSubT /(i - 1 ) MsgBox ( " Medelvärdet av dessa siffror är " & sglAverage ) End Sub
4
testa riktigheten av programmet genom att lista en rad siffror på papper , totalt dem , och dividera med antalet enskilda objekt . Tryck " F5 " för att köra makrot och beräkna medelvärden . Följ anvisningarna och ange samma nummerserie , som slutar med en huvudstad X. Om resultaten inte stämmer , kontrollera riktigheten av den kod du angett , jämföra det till steg 3 .
5
Klicka på " Makron " i Word-dokumentet . Spara makrot i " Normal.dotm " om du vill använda den i alla Word-dokument . Andra alternativ finns t.ex. att spara endast användas i det aktiva dokumentet , spara som en del av en särskild mall , eller spara i alla aktiva mallar och dokument . Addera
