Veta hur man använder Excels makron för att tvinga den att göra i ett kalkylblad säkerställer att formlerna i dina arbetsböcker fram korrekta värden . Excel beräknar automatiskt formler som standard , vilket kan leda till långa handläggningstider för arbetsböcker med många formler . Växla till manuell beräkning löser detta problem , men skapar problem med felaktiga formler . Excels VBA-makron kan återställa , antingen tillfälligt eller permanent , automatisk beräkning . En fördel med att använda makron för att räkna i motsats till återaktivering av automatisk beräkning alternativet är att du kan välja exakt vilka celler att räkna , som undviker de tidsfördröjningar som skapas genom att beräkna en helt kalkylblad . Instruktioner
1
Klicka på " Arkiv " -menyn " Alternativ " -knappen , klicka sedan på " formler" länken . Klicka på " Manual " alternativet , sedan " OK " för att stänga " Alternativ" i dialogrutan . Detta steg stängs av automatisk beräkning , som ditt makro återställer
2
Skriv följande i cellerna A1 till C1 i det aktuella kalkylbladet : . 5 , 10 , " . = A1 * a2 " Observera att formeln i C1 är felaktigt , på grund av ditt val av det manuella alternativet i steg ett . Din makro återställer automatisk beräkning .
3
Klicka på " Utvecklare " fliken för " Visual Basic " knappen för att öppna Visual Basic-programmering miljö . Klistra in följande program i fönstret som visas . Detta program använder " Range " objektet för att ange värden i två olika kalkylbladsceller , och en formel i en annan cell . Programmet har två uttalanden som tvingar det aktuella kalkylbladet för att uppdatera sin beräkning . Den första är " Application.Calculation = xlCalculationAutomatic . " Detta uttalande ställer " Beräkning " egendom Excel själva ansökan . Den andra är en ringa " Beräkna "-funktionen i " ActiveSheet " objektet . Detta uttalande säger bara det aktiva bladet att beräkna , inte hela arbetsboken .
Public Sub räkna om ( ) katalog
'Enter siffror i en cell
' Enter en calulation som beror på dessa siffror
" Force omräkning
Application.Calculation = xlCalculationAutomatic
Range ( " A1 " ) = 5
Range ( " A2 " ) = 10
