Hvordan beregne makroer i Excel

Å vite hvordan du bruker Excel makroer for å tvinge omberegning av et regneark sikrer at formlene i arbeidsbøkene produserer nøyaktige verdier. Excel beregner automatisk formler som standard, noe som kan resultere i lange behandlingstiden for arbeidsbøker med mange formler. Bytte til manuell beregning løser dette problemet, men skaper problemet med unøyaktige formler. Excel VBA makroer kan gjenopprette, enten midlertidig eller permanent, automatisk beregning. En fordel å bruke makroer for å rekalkulere i motsetning til re-aktivere automatisk beregning alternativet er at du kan velge nøyaktig hvilke celler til å beregne, som unngår forsinkelser skapt ved å beregne en hele regnearket.

Bruksanvisning

1 Klikk på "File" menyen "Alternativer" -knappen, og klikk "formler" linken. Klikk på "Manuell" alternativet, og deretter "OK" for å lukke "Alternativer" i dialogboksen. Dette trinnet slår seg av automatisk beregning, som makroen vil gjenopprette.

2 Skriv inn følgende i cellene A1 gjennom C1 av gjeldende regneark: 5, 10, "= a1 * a2." Legg merke til at formelen i C1 er feil, på grunn av valget av det manuelle alternativet i trinn en. Makroen vil gjenopprette automatisk beregning.

3 Klikk på "Utvikler" fanen "Visual Basic" -knappen for å gå inn i Visual Basic programmeringsmiljø. Lim inn følgende programmet i vinduet som vises. Dette programmet bruker "Range" objekt for å angi verdier i to forskjellige regnearkcellene, og en formel i en annen celle. Programmet har to uttalelser som tvinger gjeldende regneark for å oppdatere beregningene. Den første er "Application.Calculation = xlCalculationAutomatic." Denne uttalelsen setter "Beregning" eiendom av seg selv Excel-programmet. Den andre er det en kaller "Beregn" funksjon for "Active" objekt. Denne uttalelsen forteller bare det aktive arket for å beregne, ikke hele arbeidsboken.

Public Sub Recalc ()

"Skriv inn tall i en celle

'Skriv en calulation som er avhengig av disse tallene

'Force rekalkulering

Application.Calculation = xlCalculationAutomatic

Range ( "a1") = 5

Range ( "A2") = 10

Range ( "a3"). Formula = "= a1 * a2"

ActiveSheet.Calculate

End Sub

4 Trykk "F5" for å kjøre programmet.

5 Klikk på "Excel" ikonet på oppgavelinjen i Windows for å gå tilbake til Excel. Legg merke til at cellen A3 har en funksjon som krever oppdatert beregning, og at resultatet av beregningen, produktet av regneark to øverste cellene, er korrekt.